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Local Shared Resources 



VSAM now supports the 3330-1 1 and the 3350 in non-compatibility mode. 
All references to the 3330 now refer to the Model 1 1 also, unless otherwise 
stated. 



The following data areas have been added to Section 5: 

Command Control Block (CCB) 
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Close Work Area 
EXCPAD Parameter List 
I/O Arguments (IOARG) 
I/O Driver Block (IODRB) 
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These error codes are now documented in greater detail than previously. 



Numerous miscellaneous changes have been made to increase clarity and 
accuracy. 



VSAM now shares its buffers and channel programs amongst the tasks and 
data sets in a partition. 
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The execution of these macros has been modified so as to provide better 
performance. 



The method used by OPEN to allocate virtual storage to the control blocks it 
builds for data sets being opened has been changed to provide better utiliza- 
tion of storage. 



This macro, which permits display of certain catalog information, is now 
supported by VSAM. 



No changes. 
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Preface 



This logic manual is the fourth in a series of four volumes providing detailed 
information about the DOS/VS Logical IOCS program. The four volumes 
are: 

Volume 1: General Information and Imperative Macros Logic, SY33-855 9 

Volume 2: SAM Logic, SY33-8560 

Volume 3: DAM and ISAM Logic, SY33-8561 

Volume 4: VSAM Logic, SY33-8562 

This manual is mainly intended for persons involved in program maintenance 
and for system programmers who are altering the program design. Logic 
information is not necessary for the operation of the programs described. 

This manual and the code it supports should be viewed as a maintenance set. 
This means that the module prologues and comments contain certain types of 
information and that this manual contains other kinds of information. Thus, 
the listings provide the description of the internal logic of modules, and the 
manual uses Method of Operations diagrams to show what the functions of 
VSAM are and how the modules work together to carry out those functions. 
The term data set is used in this manual instead of file to conform to the 
program listings. 

Effective use of this publication requires an understanding of system opera- 
tion, PL/S language, assembler language, and its associated macros. 



Organization of This Publication 



This publication is organized in the following manner: 

• Section 1. Introduction, which describes the major components of 
VSAM. 

• Section 2, Method of Operation, which describes the functions per- 
formed by VSAM. 

• Section 3. Program Organization, which describes the information 
contained in VSAM program listings and the relationship of the program 
structures to the issued macro. 

• Section 4. Directory, which contains lists of phases, components, mo- 
dules, routines, catalog external entry points, and data areas. 

• Section 5. Data Areas, which describes control blocks used by VSAM 
and describes VSAM data, index, and catalog records. 

• Section 6. Diagnostic Aids, which contains diagnostic aids, such as error 
codes, 

• Glossary, which defines terms relevant to VSAM. 



Preface V 



Required Publications 



Related Publications 



Using This Publication 



• Index, which is a subject index to the publication. 



The following publications should be read and understood before using this 
publication: 

DOS/VS Data Management Guide, GC33-5372, which describes 
VSAM data management. 

DOS/VS Supervisor and I/O Macros, GC33-5373, which tells how to 
code VSAM macros in application programs. 

DOS/VS LIOCS Volume 1: General Information and Imperative 
Macros Logic, SY33-8559, which contains brief descriptions of how 
DOS/VS open, close and end-of-volume routines interact with VSAM. 



Other publications that may be of interest in conjunction with this manual 
are: 

DOS/VS Access Method Services User's Guide, GC 3 3 -5 3 8 2, which 
explains how to use Access Method Services commands to carry out 
various utility operations. 

DOS/VS Access Method Services Logic, SY33-8564, which documents 
the logic of Access Method Services. 

DOS/VS System Management Guide, GC33-5371, which explains how 
DOS/VS is organized and how system facilities can be utilized. 

DOS/VS System Control Statements, GC33-5376, which describes JCL 
as it relates to VSAM. 

DOS/VS DASD Labels, GC33-5375, which describes VSAM label 
formats and label processing. 

DOS/VS Messages, GC33-5379, which includes all messages originated 

by VSAM. 

DOS/VS Serviceability Aids and Debugging Procedures, GC33-5380, 
which describes how to determine and correct errors in programs that use 
VSAM; it also discusses VSAM use of problem determination aids. 

DOS/VS System Generation, GC33-5377, which describes how to 
include VSAM in a DOS/VS system. 



This publication is designed to be used with the VSAM program listings. The 
diagrams in Method of Operation describe the major functions performed by 
VSAM; these diagrams are intended to be your key to a module name (and 
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routine name, as appropriate) in the listing. See the Method of Operation 
chapter for a description of how to read these diagrams. For information on 
what is available in the program listings, see the chapter Program 
Organization. 

The module directory in the Directory chapter lists the modules by symbolic 
name (all of which start with IKQ, IIP, IGGO, or $$B) and contains page 
references to the appropriate method of operation diagram or program 
structure that applies to each module. If you wish to see how modules are 
grouped according to component (such as open, record management, etc.) see 
the component directory. The routine directory, where relevant, further 
shows how the modules are subdivided into routines. 

The Directory chapter also contains the names of the catalog external entry 
points (which start with IGGP). These external entry points are cross- 
referenced in the module directory by module name. As a further aid, charts 
showing program flow for each catalog module are contained in the Program 
Organization chapter. The charts are numbered sequentially by an alphameric 
code that corresponds to the last two characters of the symbolic module 
name, for example, module IGGOCLAG is flowcharted in Chart AG. 
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BS Volume entry translation (IGGOCLBS) 3.89 

BT Modify volume entry translation (IGGOCLBT) 3.90 

BU Catalog read/write Format-4 DSCB (IGGOCLBU) . . 3.91 

BW Delete/insert subfunction (IGGOCLBW) 3.92 

BX CMS define - fourth module (IGGOCLBX) 3.94 

BY CMS define - fifth module (IGGOCLBY) 3.97 

B8 Define space recovery (IGG0CLB8) 3.98 

CA Define alternate index (IGGOCLCA) 3.99 

CB Release function (IGGOCLCB) 3.101 

CD CMS alter - fourth module (IGGOCLCD) 3. 102 

CG Catalog I/O subroutine - second module (IGG0CLCG) 3. 103 

CL CMS delete space - second module (IGG0CLCL) 3. 105 

CO Open catalog recovery area (IGG0CLCO) 3. 106 

CP Define path (IGG0CLCP) 3. 107 

CR Define catalog recovery area - first module(IGGOCLCR) 3. 109 

CS Define catalog recovery area - second module (IGG0CLCS) 3. 1 1 I 

CX CMS delete - third module (IGG0CLCX) 3.112 

CY CMS define - sixth module (IGG0CLCY) 3.115 

C9 Catalog first module (IGG0CLC9) 3. 1 16 
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Acronyms and Abbreviations 



I AC allocation chain 

ACB access method control block 

ACC AMS Catalog communication area 

ACE argument control entry 

ADDR address 

ADR addressed accessing 

AIX alternate index 

AMBL access method block list 

AMCBS access method control block struc- 
ture 

AMDSB access method data statistics block 

AMDTF access method define the file 
(ISAM only) 

ANCHT anchor table 

ARDB address range definition block 

AU allocation unit 

BCB buffer control block 

BCR base cluster record 

BHD buffer header 

BKPHD block pool header 

BKWD (also backward 
BWD) 

BLK block 

BSPH buffer subpool header 

BUFF buffer 

BUFH buffer header 

CA control area 

CAT catalog 

CAXWA catalog auxiliary work area 

CB control block 

CCA catalog communications area 

CCB command control block 

CCR catalog control record 

CI or CNV control interval 

CIDF control interval definition field 

CINV control interval 



CIWA (also control interval work area 
CIW) 

CM catalog management 

CMS catalog management services 

CNV or CI control interval 

COMREG communications region (DOS) 

CP channel program 

CPA channel program area 

CPAH channel program area header 

CPL catalog parameter list 

CRA catalog recovery area 

CTGFL catalog field parameter list 

CTGFV catalog field vector table 

CTGPL catalog parameter list 

DADSM direct-access device space manage- 
ment 



DDname 


data definition name 


DIR 


direct processing 


DLBL 


DASD label 


DOS/VS 


disk operating system/ virtual stor- 




age 


DS 


data set 


DSCB 


data set control block (in DOS, 




DASD label) 


DSN (also 


data set name 


DSNAME) 




DSORG 


data set organization 


DTF 


define the file 


ECB 


event control block 


EDB 


extent definition block 


EOD 


end of data 


EOF 


end of file 


EOV 


end of volume 


ESDS 


entry-sequenced data set 


EXCP 


execute channel program 


EXLST 


exit list 
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FCDB 

FKS 

Fn 



field control and data block 
full key search 
format n 



FPL (also FL) field parameter list 

FS free space 

FVT field vector table 

FWD forward 

GEN generic key search 

GO group occurrence 

GOP group occurrence pointer 

ID identifier 

IIP ISAM interface program 

I/O input/output 

ISAM indexed sequential access method 

JIB job information block 

KEQ search on key equal 

KEY keyed accessing 

KGE search on key greater or equal 

KRDR key range determination routine 

KSDS key-sequenced data set 

KWTC keyword type code 

LOC locate 

LPMB logical-to-physical mapping block 

LRD last record 

LUB logical unit block 

MVE move 



n 


number 


JtfSP 


note string position 


NUB 


no user buffer 


NUP 


no update 


OAL 


open ACB list 


O/C/EOV 


open/close/end of volume 


OPNWA 


open work area 



PIB program information block 

PL/S programming language/system 

PLH placeholder 

PSW program status word 

PT or PTR pointer 

PUB physical unit block 

RAB record area block 

RBA relative byte address 

RDF record definition field 

REP replication 

Rn register n 

RPHD resource pool header 

RPL request parameter list 

RRDS relative-record data set 

RSCB resource sharing control block 

SCIB search compressed index block 

SEOF software end of file 

SEQ sequential 

SKP skip sequential 

SS sequence set 

SVC supervisor call 

THB track hold block 

TIC transfer in channel 

UBF user buffer 

UCAT user catalog 

UPD update mode (or data modify) 

USB upgrade set block 

USVR user security verification routine 

VOLID volume identification 

VRPPL BLDVRP parameter list 

VSAM virtual storage access method 

VSRT VSAM shared resource table 

VTOC volume table of contents 

WA work area 
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Section 1. Introduction 



Virtual Storage Access Method (VSAM) is an access method that operates 
under DOS/VS. VSAM is used with direct-access storage to provide fast 
storage and retrieval of data. 

VSAM is divided into modules, which are logically grouped into the following 
components: 

• Control block manipulation, which allows the user program to create, 
modify, display, and test the contents of some VSAM control blocks (the 
ACB, EXLST, and RPL, which are described under Data Areas in this 
publication), and to build or delete a VSAM resource pool. 

• Open, which connects a user's program to a VSAM data set and builds 
the control blocks required to permit the user to read from and write to 
the data set. 

• ISAM interface, which allows the user program to issue ISAM macro 
instructions to process records in a VSAM data set. 

• Catalog management, which writes and updates catalog records. Catalog 
management processes the catalog to obtain information for Open, Close, 
end-of -volume, and Access Method Services. 

• DADSM, which allows the system to maintain VTOC records for data 
sets. In VSAM, DADSM is used by the catalog to create and delete data 
spaces, both unique and nonunique. 

• Record management, which reads and writes records in response to 
user-issued VSAM and ISAM macro instructions. This component also 
reads and writes records for the catalog management component. 

• End of Volume, which mounts volumes and allocates space. End of 
Volume modifies the existing control blocks to reflect the newly mounted 
volumes and newly allocated space. 

• Close, which disconnects a user's program from a data set and releases 
the data set's control blocks built by Open. Close also updates statistics in 
the VSAM catalog. 

• Service aids, which enable program maintenance and Field Engineering 
personnel to obtain dumps, maintain DSCBs, and load phases. 

For a list of the modules in these components, see the Directory in this 
publication. 
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Section 2. Method of Operation 



Reading Method of Operation Diagrams 



Method of operation diagrams depict the internal functions of a programming 
system, in this case, an access method. The internal functions are categorized 
by the macro instructions issued by the user, such as the GENCB, MODCB, 
OPEN, GET, PUT, CLOSE and ENDREQ macro instructions. 

Diagram AB shows the basic organization of the method of operation dia- 
grams according to the macro instructions mentioned above. References lead 
from the high-level charts showing subfunctions required to carry a request to 
its completion. 

Note the relationship of function (exemplified by the macro instructions) to 
component. Starting with an OPEN issued by the user, a logical progression is 
made from Open modules to supporting Catalog modules. When a record 
management macro instruction such as PUT is issued by the user, not only the 
Record Management modules are involved (which include modules that 
perform buffer and I/O management and end-of- volume processing) but the 
Catalog modules which, in turn, call upon the DADSM modules for space 
management. 

The diagram contain three blocks of information: input, processing, and 
output. The left-hand side of the diagram shows the data that serves as input 
to the processing steps on the center of the diagram, and the right-hand side 
shows the data that is output from the processing steps. Input is anything 
significant that program processing steps refer to or get. Processing is the 
steps that support the function or subfunction represented by the diagram. 
Output is any significant change effected by a processing step, for example, 
register contents, or control blocks created or modified. The processing steps 
are numbered and the numbers correspond to notes, if any, on the pages 
following the appropriate diagram (s). If notes are given, they include referen- 
ces to modules, routines, and/or labels shown on the extreme right-hand side 
of the diagram. These references are your link to the program listings. Figure 
2 shows the symbols used in these diagrams and describes their meaning. 

As an example of how to interpret a typical method of operation diagram, see 
page 2 of Diagram IA, which graphically depicts the CLOSE/TCLOSE 
functions. The left-hand side of the diagram shows the significant input 
required by the processing steps shown in the diagram. For example, register 
points to a list of DTF pointers for an ISAM user and ACB pointers for a 
VSAM user. The data-set information in the ACB is input to steps 5 and 7 in 
the processing portion of the diagram. The processing portion of the diagram 
shows the processing steps required to fulfill the function described by the 
diagram. Note that the function described by one diagram may be performed 
by one or more VSAM modules; that is, the diagrams not only show program 
flow, but show the subfunctions that are required to carry out the function 
and that are subsequently shown in separate diagrams. 

Note that some diagrams have more than one entry point. In Diagram IA, for 
example, there are three entry points: 
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(1) at step 1 for an automatic Close, 

(2) at step 5 after a user-issued CLOSE macro 

(3) at step 7 after a user-issued TCLOSE macro 

The notes provide details about the processing shown in the diagram. For 
example, note 5 tells what action the DOS/VS Close Monitor takes (in step 
5) when it examines the DTF-type field in the list of ACBs and DTFs passed 
by the user. The notes also name the modules and routines that perform the 
functions represented. 

The diagrams are numbered in a sequence that follows the pattern CCn, 
where the first character, in general, represents a part of VSAM such as 
catalog management, the second character represents a category within 
catalog management, and the number represents the first, second, third, etc., 
page of that particular diagram. Thus, DEI would be the first page (1) of the 
Locate function (E) for catalog management (D). See the list of diagrams for 
details. 



c> 



O 

t 



DATA MOVE — shows input and output of data to and 
from the processing steps 

FLOW OF ACTION - shows the flow of action through 
the processing steps 

ERROR FLOW — shows the flow of action in the case of 
an error or for unusual conditions. This symbol is normally 
used only in the steps where an error causes a change of 
flow. Further error processing uses the normal symbols for 
flow of action. 

POINTERS — these are the interconnections between the 
control blocks and data areas 

REFERENCE INDICATOR - means refer to this item 

I/O INDICATOR — used where arrows had to be inter- 
rupted, or where one input or output is used for several 
steps. Circles within one diagram with identical letters are 
regarded as being logically connected. 

ONPAGE CONNECTOR - used together with the flow 
of action symbols to indicate a branch, within the same 
diagram, to the step number within the circle, regardless of 
whether the diagram is on more than one page. 



OFFP AGE CONNECTOR 

between diagrams. 



used for backward reference 



ADDRESS — indicates, within control blocks, that this 
field contains the address of the specified field. 



Figure 2.1 



Symbols used on method of operation diagrams 
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Diagram AA1. Method of operation contents 
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Diagram AB1. VSAM overview 
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processing (see Diagrams AC1 and AD1) 
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Diagram AC1. GENCB: Build a new control block 
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4. Is this request for an EXLST? 

No Yes 

\ 

5. Is this request for an RPL? 

No Yes 



6. Is the request for more than one copy? 



Yes 



No 

\ 

7. Build an allocation unit and initialize its header 

•© 
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Module 
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Diagram AC2. GENCB: Build a new control block 
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,12. Set up the control block with default values in 
the control block area 



Argument control entry (ACE) processing 



Keyword table 



Do steps 13 to 20 for each ACE keyword: 

13. Locate entry in keyword table associated with the 
ACE keyword 



7 Subtable 



: — ^14. Determine entry type 

IA ) i^^' ^ or an a ddress-type entry, branch to routine 

pointed to by subtable entry to process the 
address-type entry 



16. For a bitstring-type entry, locate bitstring entry in 
subtable 



(pt\ j^i7. Validate bits in keyword entry and place them in 

^^ j I block 
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Diagram AC3. GENCB: Build a new control block 
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19. Move the exit address from the keyword entry 
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Module 
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Notes for Diagram AC 
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Description Label 

1 The GENCB macro is issued to create an IKQGENOO 

ACB, RPL, or EXLST dynamically. If an 
ACB, RPL, or EXLST has not been 
requested, an error exit is taken. 

2-3 The ACB and RPL are fixed-length control B1-B5 

blocks but the EXLST length is variable. 
If a user area is supplied for an EXLST, 
this routine uses a minimum length of ten 
bytes to find out if the user area is large 
enough. If a user area is not supplied for 
an EXLST, this routine calculates the 
amount of space needed for the EXLST 
and any copies the user requested. 

4-7 If only a single ACB is requested, and no BA1-BA5 

user area is supplied, an allocation unit is 
built to contain an allocation unit header, 
an ACB, an AMBL, and as many RPLs 
and PLHs as indicated by the STRNO 
parameter. 

8-9 If an RPL is requested for an ACB which C2-C2B 

is suballocated, and if there is sufficient 
space in the ACB's allocation unit, the 
RPL is suballocated. 

10 The routine issues a GETVIS macro to C2C-C4 

obtain the required virtual storage for any 
block for which a user area is not 
provided. 

12 The block is initialized to its default C5-C8 
values. Information is subsequently added 

to the block as specified by the keyword 
entries. 

13 For the last argument entry, the high-order Dl 
bit in the parameter list pointer is 1 . 

14 Three types of entries are identified in the G1-G6 
keyword table: address, bitstring, and 

normal. 



Description 

15 If the entry is an address type, the 

keyword table points to an offset in the 
subtable that contains a pointer to a 
routine that generates information to be 
placed in the appropriate control block 
field. 

16-17 If the entry is a bitstring type, the keyword 
table points to a series of bit entries in the 
subtable. The indicated bits are placed in 
the block. 

1 8-1 9The size of the EXLST is adjusted to the 

actual amount of space required to satisfy 
the user request. If the user-supplied area 
is not large enough, a return is made to 
the user. 

When the last keyword has been 
processed, any surplus space obtained by a 
GETVIS is reclaimed (surplus 
user-supplied space is not reclaimed). As 
each keyword is processed, the EXLST is 
checked to see if space is available at the 
proper offset for that keyword. If no slot 
is available, a GETVIS obtains additional 
space, provided the space was originally 
obtained by a GETVIS. 

1 4 If the entry is a normal type, the value in 

the argument control entry is moved into 
the block. 
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Diagram AD1. MODCB, SHOWCB, TESTCB: Modify, display, or test a control block 



User-issued 
MODCB, SHOWCB 
or TESTCB 



1 . Analyze the request and build a parameter list. 



2. Are control block and function type valid? 

Yes No DCv Return 



I 
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Notes for Diagram AD 



< Description 



The MODCB, SHOWCB, and TESTCB macros are 
issued to modify, display, and test, respectively, the 
ACB, RPL, or EXLST. 



E" The macros are analyzed by the user macro 

7] IKQCB2. If this user macro actually builds the 

jr parameter list, it can ensure that the parameters are 

< valid. In this case, control is then passed to the 

> module IKQTMSF (F = fast = without diagnostics). 

If the user provides a ready-built parameter list, the 
macro IKQCB2 cannot check the validity of the 
parameters and passes control to the module 
IKQTMSD (D = diagnostic). 

Each module contains routines for processing all 
possible combinations of request and control block 
(such as SHOWCB for ACB, TESTCB for an RPL, 
etc.). 



Diagram AE1. SHOWCB: Display a control block 
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Diagram AE2. SHOWCB: Display a control Mock 
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Notes for Diagram AE 



The processing shown here can take place in module 
IKQTMSF or IKQTMSD (see notes for Diagram 
AD). 

The subroutines, which have identical names in both 
modules, are: 
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Diagram AF1. MODCB: Modify a control block 
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Diagram AF2. MODCB: Modify a control block 
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— Notes for Diagram AF 



< The processing shown here can take place in module 



v: 



< 



IKQTMSF or IKQTMSD (see notes for Diagram 
AD). 

The subroutines used for MODCB, which have 
identical names in both modules are: 



= Block Label 

L ACB MODACB 

< RPL MODRPL 

£ EXLST MODEXL 



Diagram AG1. TESTCB: Test a control block 



Rl 



Parameter list 



User-supplied 
argument 
control entries 



Header 



Keyword 



Keyword 



Keyword 



\N 



* 



\ J Keyword table 



\ \ 
\ \ 



1. Is a control block specified? 
Yes No 



fc 2. Does the control block at the given address 
match the type specified? 



y Subtable 



ACB, RPL 
or EXLST 



Yes No 

\K 4 

\ 3. Locate the keyword table entry 



►Return! 



\ 



^ --& 



©■ 



4. Is the entry valid (IKQTMSD only)? 

Yes No 



I 



Return. 



f^5. If this is a 'normal' keyword, compare the 
< argument field with the control block field 



1^ 

c _ -2^ 6. If this is a 'bitstring' keyword, test the control 






block field bit by bit, according to information in 
the subtable and the keyword 



► Return 



- 7. Locate the keyword table entry 



t 



Z> 



R15 



O 



RO 




F 


4 


RO 
1 1 3 or 14 1 








K> 



Diagram AG2. TESTCB: Test a control block 



< 






< 

> 



Rl 



Parameter Ust 



User-supplied 
argument 
control entries 



Header 



Keyword 



Key word 



evword 



8. Is the entry valid (IKQTMSD only)? 



/ 



Yes 



No 



► Return" 



/. 



\ KVwwrwH tuhl^ ' 



J — t^*»9. Compare the user-specified length with the 

I 'v standard control block length 

/ /L 

/ 






Keywordjable 



Return 



// 



Z> 



R15 



^> 



PSW 



Condition 
code 



: c 



RO 



Notes for Diagram AG 



The processing shown here can take place in module 
IKQTMSF or IKQTMSD (see notes for Diagram 
AD). 

The subroutines used for TESTCB, which have 
identical names in both modules, are: 

Block Label 



ACB 


TESTACB 


RPL 


TESTRPL 


EXLST 


TESTEXL 


None 


TESTNOB 



3 



O 



Diagram AH1. BLDVRP: Build VSAM Shared Resource Pool 



< 



vi 
< 



< 
v 
> 



User-issued 
BLDVRP macros 



VRPPL 



VSRT 



VSRTRLEN 



1 . Is the BLDCRP parameter list valid? 

Yes No ' — ■ 4 * Return 



* 



2. Issue CDLOAD for the header (VSRT) of the 
VSAM Shared Resource Pool (phase IKQVRT) 

3. Get control of the VSRT 

. 4. Does a VSAM Resource Pool already exist? 

No Yes BBl^mj 



I 



5. Calculate the length of the resource section of 
the resource pool 

6. Obtain the necessary storage by means of 
GETVIS 



7. Was GETVIS successful? 

No 



R 15 



C> 



Error code 



VSRT 



£> 



VSRTGATE 



=> 



Virtual Storage 



IKQBRP 



BRP100 



BRP150 



BRP160 



LENC000 



Diagram AH2. BLDVRP: Build VSAM Shared Resource Pool 



Build resource section of VRP 



8. Store addresses and lengths of resource pool 
sections into VSRT 



9. Build PLH pool 

10. Build buffer pool 

1 1 . Build CR A pool 



12. Release control of VSRT 



i 



Return 



Note: 



VSRT 




BLD000 



BRP400 



2. The phase IKQVRT is an assembled CSECT that contains only the VSRT. 






to 



Diagram All. DLVRP: Delete VSAM Shared Resource Pool 



< 



< 



< 

> 



VSRT 



VSRTUNCT 



VSRTRLEN 



VSRTTHBA 



VSRTTHBL 



VSRTCPAH 



VSRT 1 STB 
VSRTBFLN 



VSRTRP 



VSRT 



User-issued 
DLVRP macro 



I 



1 . Load the header (VSRT) of the VSAM shared 
resource pool (CDLOAD for phase IKQVRT) 

2. Get control of the VSRT 



^»3. Is the resource pool still in use, or is it 
non-existent? 



No 



Yes 



>4. Free the storage occupied by the resource section 
by means of FREEVIS 

5. Release control of the VSRT 



4- 

Return 




IKQDRP 



DRP150 



DRP300 



DRP400 



Note: 



1 . For an existing VSRT, CDLOAD simply provides addressability to the VSRT. 



Diagram BA1. OPEN: Connect a user's program to a VSAM data set 



RO 



f List 



tDTF 



tACB 



tACB 



SVC2 



ACB 



A CB I D 



ACBOPEN 



ACBLSR 



ACBUBF 



ACBKEY 



ACBADD 



User issued 
OPEN 
(SVC2 issued) 



I 



DOS/VS open monitor 



1 . Does the address in the list of ACBs and DTFs 
point to an ACB? 



Yes 



No 



I 



(SVC2 issued) 

£ VSAM open interface processing 



2. Obtain and initialize a work area 

3. Issue a CDLOAD for IKQVRM, IKQVOPEN, 
IKQVLAB, IKQVCLOS, IKQVCAT, IKQVMSG, 
IKQVCLC, IKQVSTM, IKQVLASM, and 
IKQVLASF (phase names) 



— I 

(SVC2 issued) 

I VSAM open processing 



4. Is the ACB correctly identified and not open? 
Yes No CBa^65 



5. User buffer processing requested together with 
keyed processing, addressed processing, or 
resource pooling? 



No 

* 



Yes 



™*© 



Non VSAM open: 



See DOS/VS LIOCS Vol. 1 : 
General Information and 
Imperative Macros, 
SY33-8559 



C>c 



Work area 



Module or 
routine 



$$BOPEN 

$$BOPEND 

$$BOPENl 



$$BOVSAM 



IKQOPN 
CHECKACB 






to 



< 



< 



< 
> 



Diagram BA2. OPEN: Connect a user's program to a VSAM data set 



Partition CQMREG 



COMLBLCY 




*j^ 6. Is this an open of a CRA by catalog management ? 

Yes No 



\ 



7. Build a dummy label record for the CRA and 
insert the logical unit from the ACB 

*^ 12 

8. Read the label information cylinder record 

9. Is this a catalog OPEN? 

Yes No 



\ 



10. Is a unit specified for the catalog? 



No 



Yes 



1 1 . Insert SYSCAT as the symbolic urn 

1 2. Is this a catalog open or CRA OPEN for recovery ? 

Yes No WM ^( 25 



4 



l 13. Is there a CAXWA? 
No Yes 

14. Build and initialize CAXWA 

15. Build channel program to read labels 



-© 



OPNWA 



LABICPTR 



XD 

LABICREC V 




ACB 



© 



S> 







ACBUAPTR 










¥ CAXWA 








CAXDRWP 










^ Work area 




CCB 




CCWs 





Module or 

routine 

CALLKLAB 



IKQOPN 



SVASSOC 



IKQOPNCT 



Diagram BA3. OPEN: Connect a user's program to a VSAM data set 



COMREG 



Catalog volume 



SYSRES volume 



Yes 




L.16. If 'DASD file protect' is specified, set up JIBs 

I to allow access to entire catalog volume. 

17. Read VOL1 label and find VTOC address 

I 

18. Read format-4 label 

__ _ ^-19. Is this a CRA open? 



No 



20. Extract CRA location from F4 label 



21. Extract the limits of the VTOC from F4 label 
Read Fl label to get address of catalog 
^> 23. Read cluster record of catalog or CRA 

24. Build a catalog parameter list and field parameter 
list 

25. Is a user catalog specified in the DLBL 
statement? 




Yes 



No 



r^>26. Read the label cylinder record for the UCAT and 
insert the UCAT true-name into the CPL 



27. Return code 0? 

Yes No 



DC#0 



Work area 



:> 



X> 



Module or 
routine 



IKQOPNCT 




IKQOPN 



IKQOPNUC 
IKQLAB 









Diagram BA4. OPEN: Connect a user's program to a VSAM data set 



r 



< 

> 



OPNWA 



ACB 



ACBCAT 



ACBSCRA 



ACBUCRA 



Catalog 



OPNWA 



AIXFLG 



.28. Is this an open for CRA or catalog? 
Yes No 



29. Simulate a locate of the catalog entry for the 
44-character name 



I^>30. Get catalog entry for the 44-character name 



<7 



See Diagram DEI , LOCATE: Retrieve catalog 
information 

31. Is it a Path catalog entry? 



/ 



/ 







DSTYPNAM 


FLMISCLA 


, =^ 






ENTYPE 









/ 



/ 



\ 



\ 



\ 



\ 



\ 



Yes Na 

\ 

32. Save information about all objects related to the 
path 



33. Return code 0? 
Yes No 



\ 



DC^0 



\ 



34. Is this an A1X which is being opened for 
independent processing? 



Yes 



No 



35. Change the entry type to cluster 
^ 36 p at fc erv t r y cluster being handled? 

No Yes 



L 



© 



Open 
Work area 



0> 



c> 



AIXENTR 



AIXDNAM 



AIX INAM 



BCDNAM 



BCINAM 



DSTYPNAM 



t 



ENTYPE 



Module 
or Label 
IKQOPNHC 



IKQOPNHC 



IKQOPN 



IKQOPNA1 



IKQOPN 



Diagram BA5. OPEN: Connect a user's program to a VSAM data set 



OPNWA 







NAMEDS 




FLNAMDSA 














TYPE 






NAME 






TYPE 






NAME 


Jy 




ACB 



ACBOUT 



37. Save catalog internal names of data and index 
components 



^38. Get the data component information 



See Diagram DE, LOCATE: Retrieve catalog 
information 

39. Is this a reusable data set which is to be reset? 




Open work area 



Yes 



No 



- — >40. First time at this step? 
Yes No 



41. Reset the data set 

See also Diagram DM, Release extents 



:^42. Is data set to be opened 

for update? 

Yes No 



s 


Open Work Area 








5 




FPL 




r a 








NAMEDS 




k 


FLNAMDSA 








r. 
















c. 






1 



4 



43. Set the open for output flag 

See Diagram DG1, UPDATE: Modify catalog 
information 

44. Is there an upgrade set associated with the cluster? 
Yes No 



45. Save the name of the related upgrade set 



I 46. Is 



this an open for a recoverable catalog? 



Yes _ 



No 



LABFNAME 



INDEXSAV 



AIXYENTR 



Catalog 



=> 



Open work area 




Module or 
routine 



IKQOPNHC 



IKQOPNRD 



IKQOPNHC 



1KQLASMD 



IKQOPN 






DC 



Diagram BA6. OPEN: Connect a user's program to a VSAM data set 



< 



SI 

< 



4-* 
< 
> 



Open 
Work Area 



AIXPE 



AIXUPGR 



AIXYENTR 



Catalog 



47. Set the recoverable flag in the CAXWA 



• 48. Is this a potential base cluster? 
Yes No 



* 




' 49. Is there an upgrade set associated with the 
cluster? 



Yes 

\ 



No 



^ 50. Retrieve names of upgrade set members from the 
catalog 



51. Allocate USB and copy names of upgrade set 
members 



52. Return code 0? 

Yes No 



\ 



■=■*© 



53. Obtain virtual storage, suballocate control blocks, 
and initialize them 

See Diagram BB, Allocate control blocks and 
buffers 



54. Return code 0? 

Yes No 

\ 

55. Set open flag 



mm&® 



© 



Open 
Work Area 



£> 



N AMEDS 



USB 



Header 



ACB 



:> 



ACBOPEN 



IKQOPNUS 



IKQOPN 



Diagram BA7. OPEN: Connect a user's program to a VSAM data set 









ACB 



ACBCRA 



ACBCAT 



ACBUCRA 



ACBOPEN 



OPNWA 



AIXFLG 



USACBAD 



OPNWA 



AIXBASE 



AIXMUS 



ACB 



ACBSCRA 



ACBCAT 



ACBUCRA 



ACBOPEN 



56. Is this an open for catalog or CRA 



/ 



/ 



/ 



/ 



/ 



Yes 



No 



57. Indicate to catalog that open is complete 

See Diagram DE, LOCATE: Dummy locate of 
data set in catalog 



— -~^^*58. Is an AIX structure being handled and current 

open completed correctly? 

Yes 



} : 



\ 



No 



59. Switch to next cluster 

See Diagram BC, Switch to next cluster 

B 60. Is the base cluster of a path or an upgrade set 
member still to be opened? 



No 



Yes 



_- =^> 61. Is this an open for catalog or CRA? 

No Yes 

62. Is ACBOPEN set? 

Yes No 

\ 

63. Build an entry in the OAL 



© 



Module or 
routine 



IKQOPNNC 



C>C 



OAL 






Diagram BA8. OPEN: Connect a user's program to a VSAM data set 



< 



< 



< 

> 

2 



m. 



OPNWA 



CLWAAD 



AIXUPGR 



USBAD 



List 



AIXBUFAD 



BCACBAD 



AIXPATH 



tDTF 



tACB 



*64. Any more ACBs in list of DTFs and ACBs? 
Yes No 



tACB 



SVC2 



I 



Exit to $$BCVS02 



Open Error Handling 



RACB 



L 



USB 



USBACB 



USBACB 



-65. Release Close Work Area if existent. 



66. Release cluster in error 

See Diagram BD, Release cluster 

■67. Does an upgrade set exist? 
Yes No 



\ 



IT 



68. Release all members of upgrade set 
See Diagram BD, Release cluster 

69. Free upgrade set buffers if existent 

-70. Release path entry cluster 

See Diagram BD, Release cluster 

71. Does path entry exist? 
Yes No 



L 



5>" 



Module or 

routine 

OPWAPUP 



IKQOPNDO 



Diagram BA9. OPEN: Connect a user's program to a VSAM data set 



OPNWA 



II 



LSRCNT 



UALBAD 1 — IT* 72 * Release path entry cluster 

See Diagram BD, Release cluster 



— ^ 73. Were data sets attached to the resource pool? 



\ 



\ 



\ 



V 



Yes No 



^ 



I 



74. Decrement the user count in resource table 



Module or 
routine 



VSRT 

^> 1 VSRTUCNT 






w Nates for Diagram BA 



\ 17. If the user catalog is not mounted before the 59. This can be a base cluster of a path or 

^ first job is run that opens that catalog, the upgrade set member(s) for a base cluster 

r job is terminated. 

^ 24. The contents of the following combination 

< names are fetched from the catalog: 

§■ NAMEDS 

B DSTYPNAM 

r, 

■U " ■ . ' ■ 

" 30. The contents of the following fields and 

v: . combination names are fetched from the 

^ catalog: 

NAMEDS 

DSTYPNAM 

RGATTR 

DSCATACB 

36. Path entry cluster is an AIX which is part 

of a VSAM path 

38. The contents of the following fields and 

combination names are fetched from the 
catalog: 

ENTVOL 

DSATTR 

OPENIND 

BUFSIZE 

HURBADS 

NAMEDS 

EXCEPEXIT 

AMDSB 

CATFILT 

DSCATACB 

48. Base cluster is a cluster which is not PE or 

UPGR 

50. The contents of combination name 

NAMEDS are fetched from the catalog. 

57. This releases resources obtained by the 

catalog. 



Diagram BB1. Allocate control blocks and buffers 



LABICREC 



3 



ACB 



ACBLSR 



I — 

— ^^1. Obtain space for close work area and volume list. 
Build volume list from extent information on 
label cylinder. 

2. Suballocate and initialize AMBL 
Request-specific control blocks 



OPNWA 



AIXMUS \— — 



3. Is the LSR specified or is an upgrade set being 
handled? 



No 



Yes 



4. Allocate PLHs 

5. Is LSR specified? 

No Yes 



i 



6. Allocate RSCB 






Close 
Work area 



Volume 
list 



AMBL 



IKQOPN 



K> 



Diagram BB2. Allocate control blocks and buffers 



o 



o 
o 



< 

o 



> 



VSAM Catalog 



-AMDSB group- 



Data Component processing 



LABICREC 



-ENTVOL group 
-VOLDDD group 
^RBA EXTENTS 
-EXTENTS 



L 



>^--_ 



1 — 'time stamp — - ^ 




7. Suballocate control blocks specific to the data 
component of the cluster (data AMDSB, EDB, 
LPMB, BHD) 

8. Initialize data AMDSB 



9. Suballocate and initialize data ARDB's and any 
additional EDB's and LPMB's required for the 
data component 



1 0. Test if proper volumes are mounted ; if not, 
request mount of correct volumes 



. ^-11. Check volume time stamp 



EDB 



data component volume 



\. 



© 
^© 



Allocation Unit for the cluster: 



ACB 



ACBKEYOK 



*12. If file protection is specified build JIBs 
I 

,^13. Is an index to be opened? 

Yes No 



>© 



I 



L_ 





ACB 
1 1 








¥AMBL 


Data AMDSB 




"I 


/ 


© 


Data ARDBj 


♦ Data EDBs 


© ■ 




© 1 


1 




I 


RSCB 


k 






PLHs 


DataLPMBsT 






© i 


1 




1 


DataBHDs DataBCBs 


" © : 


'— 


"1 


i 




i 







IKQOPNOV 



IKQBOVS01 



IKQOPNOV 



JIB's 



h 



IKQJIBSM 



Diagram BB3. Allocate control blocks and buffers 



VSAM Catalog 



— AMDSB group 



Index component processing 



— ENTVOL group ) 

— VOLDDD group I 

*RBA EXTENTS ( 

— EXTENTS J 



" time stamp -— . . 



14. Suballocate control blocks specific to the index 
component of the cluster (index AMDSB, EDB, 
LPMB, BHD) 

15. Get index information 

See Diagram DEI, LOCATE: Retrieve catalog 
information 

16. Initialize index AMDSB 



— >17. Suballocate and initialize index ARDB's and any 

additional EDB's and LPMB's required for the 
index component 

18. Test if proper volumes are mounted; if not 
request mount of correct volumes 




Index component volume 



EDB 



5 



-S^i 1 ^- Check volume time stamp 

' " II ■ 

. . — ^-20. If file protection is specified build JIBS 



© 
© 



Allocation Unit for the cluster 



ii 



s© 



ACB 



ACBLSR 



/, 



/ 



No 



OPNWA 



/ 



Yes 



AIXMUS 



/ 



/ 



X 



x 



^^21. Is LSR specified or is an upgrade set being 
if handled? 



J\ 



\ 



\ 



\ 





ACB 




Data AMDSB 


1 




/ 






\f AMBL / 


/ 


Index AMDSB 




- 


i 


-^3* 


© 


Index ARDBs/\ 


l|f Index EDBs 




© : 


— g: 


© l 


] 


I 


\ 


PLHs 




\ ! Index LPMBs 


^ 






© i 






i 


I'DataBHDs _ 


Data BCBs 




-|-5» 


" 


] 


i 




i 


[ndex BHDs 




Index BCBs 




© ■ 


f 


l 




i 


i 









IKQOPN 
IKQOPNHC 

IKQOPN 
IKQOPNOV 

SSBOVS01 

IKQOPNOV 

IKQJIBSM 

IKQOPN 



A 



JIB's 



h 









Diagram BB4. Allocate control blocks and buffers 



< 



< 



< 

> 



AMDSHR 



Allocation Unit for the cluster 



Buffer, CPA and THB processing 



22. Determine the number of buffers and suballocate 
BCBs (for data or data and index) 

23. Allocate Channel Program Area 

24. Allocate buffers and connect them to the BCBs 

25. Share option 4 specified? 



ACB 



AGBKEYOK ~ 



Yes 



No 



26. Suballocate and build 2 Track Hold Blocks per 
PLH 





Data AMDSB 




Index AMDSB 














AMDSTMST 


AMDSTMST 

















• 27. Does Cluster contain data and index component? 

Yes No K 29- 



28. Compare time stamps to see if index was 
changed since the data was last changed 

29. Is LSR specified? 
Yes No 



Resource Sharing 



30. Load Resource Table 



PLH's 




Data BHD BCB's 



© 



if- THB's \lndex BHD BCB's 







Data AMDSB Index AMDSB 



Data Buffer's 



Index Buffers 



IKQOPN 



IKQOPNRP 



Diagram BB5. Allocate control blocks and buffers 



VSRT 



Resource Pool 



— -s»" 31. Attach PLH-pool to the cluster 



— — — -^ 32. Attach buffer subpool to the cluster (data or data 
and index) 
NT 



\ 



Mi 



33. Attach Channel Program Area 



X 



34. Increase the use count 



35. Return 



Allocation Unit for the cluster 




VSRT 



©^ 



VSRTUCNT 






i* Notes for Diagram BE 



oc 



- 4. PLHs for data sets with LSR already exist 

^ in the resource pool. Members of an upgrade 

set share one PLH which was allocated by 
IKQOPNNC. The RSCB is not allocated for 
j* LSR because it is a member of the resource 

pool. 

25. If the data set was defined SHARE (4) but 

the DOS/VS supervisor was not generated with 
< track hold support, then the AMD SB is altered 

£ in storage to reflect SHARE (2). The AMDSB 

^ group occurence in the catalog is not modified. 



Diagram BC1. Switch to next cluster 



to 

2 






l> 



/ 



.'/ 



/ 



OPNWA 



AIXFLG 



AIXPE 



AIXBASE 



AIXUPGR 



AIXMUS 



/ 



1 . Is the current cluster a path entry? 

No 10 



Yes 



2. Switch to base cluster and suballocate ACB and 
RPLs in a new allocation chain 



2^3. Is the current ACB a base cluster? 

Yes No 



\ X 

\ \ 

\\ 
\ 

\ 
\ 



* 



4. Reset base cluster processing 

5. Is there an associated upgrade set? 
Yes No 



» Return 



USB 



* 



6. Is this the first member of the upgrade set? 

Yes No ^^^^^11 

7. Switch to upgrade set processing 



OPNWA 



©$ 








AIXFLG 






AIXBASE 




AIXMUS 


AIXPE 












BC-Allocation cha in 
AU 1 BC-ACB^ 



r>8. Move UCB into base cluster allocation unit and 
suballocate a common upgrade set RPL 



BC-ACB , . 

I ACBLSR 1 > 9 - Resource sharing? 



L 



No 

i 



Yes 




AC = allocation chain 
AU = allocation unit 



IKQOPNNC 



IKQOPNNC 



to 



Diagram BC2. Switch to next cluster 



< 



< 



< 
> 



OPNWA 



UPACBAD 



USB 



Names of 
US-members 



10. Suballocate common US control blocks in base 
cluster allocation unit 



1 1 . Resource sharing? 

No Yes 



12. Attach common upgrade set control blocks to the 
control blocks for this upgrade set member 



^H3. Attach this upgrade set member to the USB 
1 4. Search for next (first) member of upgrade set 




"15. Have all members of the upgrade set already 
been handled? 



No 



Yes 



16. Switch to next member and suballocate ACB in a 
new allocation chain 

BHBH^Return 

17. Resource sharing? 

No Yes 



* 



18. Allocate minimum number of common upgrade 
set buffers and attach them to the common 
upgrade set control blocks 



IKQOPNNC 



19. Reset upgrade set handling flag 



► Return 



OPNWA 






AIXFLG 








AIXBASE 






AIXMUS 












UPACBAD 













AU 



ACB 




■©-[ 



1 Index 
Buffer 



AC = allocation chain 
AU = allocation unit 



Diagram BD1. Release a cluster 



2 






OPNWA 



QUTCOUNT 



FILEPROT 



AMDSB 



AMDFSEDB 



AMDFSBCB 



CPL 



FPL 



CTGFIELD 



| QPENIND ^ 



CTGFLDNM 



EDB 



EDBMNT 



2T 



1. Decrement the open count for this cluster (data 
and index) 



2. Is the number of output users now zero? 

Yes No •■"■^V 4 ) 

♦ 

^^ 3. Turn off "open for output" indicator in catalog 
See Diagram DG1 : Modify Catalog 
. 4. Free Job Information Blocks if existent 



ACB 

I ACBLSR h - 



Free Allocated Storage 



BCB 

H BUFCBAD" 



T 



Sf 



AMDCCWA — • — - — •— - -*- h— -^— — ■— ■ -— -—- 



AMBL 



-PLH 



AMBAMBUF 



AMBLPLHF 



l_PLHPARML J=j 
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Description Module 

The DOS/VS OPEN Monitor examines $$BOPEN 

the DTF-type field (offset 20 of the $$BOPEND 

address passed in the list) of the DTFs or $$BOPENl 

ACBs. If the byte indicates an ISAM file 
(X'24\ X'25\ X'26\ or X'27'), an SVC 2 
is issued and $$BOPEN2 is fetched into 
the B-transient area, (If the file is not an 
ISAM file, the regular OPEN continues.) 

The list pointed to by register may 
consist of pointers to DTF tables and/or 
ACBs. Register is provided by the user 
program. 

LABEL TYPE' A' means that an ISAM file $$BOPEN2 

is connected with a VSAM data set. 

IIPOPEN is loaded into the SVA, and its 
address (in the SVA) is returned in Rl 

IIPPRCPR is loaded into the SVA, and its 
address (in the SVA) is returned in Rl. 

Bit X'80' in FLAGBYTE is set by IIPOPNOO 

IIPOPEN after the first successful OPEN 
for the VSAM data set. 

The information needed to initialize the 
fields in part 1 of the DTF table is derived 
from part 2 of that table. The only 
purpose of this transformation is to 
provide better access to these items for the 
ISAM interface processor. 

The AMDTF table contains the parameter 
lists for the GENCB ACB, GENCB RPL, 
SHOWCB, and MODCB RPL macros, and 
the ERREXT parameter list used by the 
ISAM program in case of errors. The 
ADMTF table is loaded via the LOAD 
macro. 






Description 

1 1 The parameter list in the AMDTF table 

for the GENCB macro is completed as 
follows: 

. Copy the filename from the DTF table 
. Specify the MACRF element according 
to the IOROUT parameter in DTFIS: 

IOROUT KEY DIR SEQ IN OUT 

LOAD XXX 

ADD XX X 

ADDRTR X X X X X 

RETRVE X X X X X 

13 The address of the ACB (pointed to by 

R0) is followed by a non-zero byte to 
make sure that control returns to IIPOPEN 
after opening the ACB. 

1 5 Since key length and record length are not 
generated in the DTFIS macro expansion 
for retrieve files, this information is 
extracted from the ACB via a SHOWCB, 
The field LRECLEN eventually contains 
the VSAM record length for blocked 
records and the VSAM record length 
diminished by the key length for unblocked 
records. 

1 6 The parameter list for the GENCB macro 
in the AMDTF table is completed by 
storing the key length, record length, and 
ACB address in it. 

1 8 The logic module address in the DTF table 

is replaced by the address of the LOAD 
branch vector in IIPPRCPR or the address 
of the general branch vector, depending on 
whether the ISAM file is a LOAD file or 
not (LOGMODAD). The beginning 
address of IIPPRCPR is also stored 
(C1PROCAD). 



Module 



IIPOPNOO 






< 



Notes for Diagram CB (Part 2 of 2) 



Description 



r 18 (cont) The LOGMODAD field is used to pass 

w control from the user to data management. 

^ The address of the ISAM module is 

< replaced by the branch vector address in 
|" IIPPRCPR and control automatically goes 
^ to the ISAM interface processor instead of 
4I the ISAM logic module. CIPROCAD is 

< referenced when the user issues a SETFL, 
£ ENDFL, or SETL macro to pass control 
k from the $$B-phases to the ISAM 

interface processor (CIPROCAD is a 
pointer to the address list at the very 
beginning of IIPPRCPR). 

21 If there is no further element in the list, 

control is returned to the instruction in the 
user program that follows the SVC 2. 
Otherwise, control is returned to the SVC 
2 instruction. 
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Diagram CC2. Load data records 
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Diagram CC3. Load data records 
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7-8 



Description 

Bit in the flag byte (offset 16 in the 
DTF table) is set by IIPOPEN after a 
successful OPEN of the data set. 

Fields in the DTF are set as follows: 

m FNAMEC to X'OO' 

• CISWITCH to 'LOAD' and 'FIRST 
WRITE' 

# KLM1 is initialized with 'key length -1'. 
The key length is derived from the field 
KEYLEN which was initialized by 
IIPOPEN. 

The key information in this form in 
IOAREAL is used after SETFL by various 
problem programs, for example, PL/I. 

Control is passed from the user to the 
ISAM interface processor via the 
LOGMODAD field in the DTF table, 
which, after OPEN, contains the address 
of the LOAD branch vector in the ISAM 
interface processor. 

The two switches referenced in these steps 
are set by the ISAM interface processor 
routine SETFL. 

To perform the sequence check, a dummy 
GET is issued that is prepared by a 
MODCB with the OPTCD code: KEY, 
DIR, SYN, NUP, KGE, FKS, LOC. 

If the return code following the GET 
operation is zero, this indicates that a 
sequence error has occurred, that is, that a 
record with a key equal to or greater than 
that in WORKL is already on the data set. 



Module Label 

$$BSETFL 

IIPPRCPR SETFL 
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WRSTENKL 



12 



13 



15-16 



Description 

If the return code following the GET 
operation is not zero, control is passed to 
the general error routine ERGN in 
IIPPRCPR. This routine analyzes the 
error. If the error is NO RECORD 
FOUND' and the FIRST WRITE' bit in 
CISWITCH is on, the error is ignored and 
normal processing continues. 

Note: The sequence check for subsequent 
PUTs is done by VSAM. 

A MODCB is issued with the following 
OPTCD code: KEY, SEQ, SYN, NUP, 
MVE. 

The AREA element in the MODCB 
parameter list is initialized. It specifies the 
address of WORKL. Since the address of 
WORKL is not supplied in the DTF macro 
expansion for LOAD files, it is derived 
from the address of the key in WORKL if 
RECFORM=FIXUNB and the address of 
the data in WORKL if 
RECFORM=FIXBLK. 

The key is stored in IOAREAL mainly for 
the benefit of problem programs (for 
example, PL/I) which may check this 
field. 

Bit in the flag byte (offset 1 6 in the 
DTF table) is set by IIPOPEN after a 
successful OPEN of the VSAM data set. 
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Description 

Control is passed from the user to the 
ISAM interface processor via the 
LOGMODAD field in the DTF table, 
which, after OPEN, contains the address 
of the general branch vector in the ISAM 
interface processor. 

A MODCB is issued with the following 
OPTCD code: KEY, DIR, SYN, NUP, 
MVE. 
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Diagram CE2. Direct processing of data records 
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Description 

Control is passed from the user to the 
ISAM interface processor via the 
LOGMODAD field in the DTF table, 
which, after OPEN, contains the address 
of the general branch vector in the ISAM 
interface processor. 

The records are processed by YSAM in 
MOVE mode when WORKR=name and 
RECFORM=FIXBLK are specified in the 
DTFIS. The OPTCD parameters for the 
RPL modifications are KEY, DIR, SYN, 
UPD, KEQ, FKS, and MVE. 

The records are processed by VSAM in 
LOCATE mode in all other cases, and the 
OPTCD parameters are KEY, DIR, SYN, 
UPD, KEQ, FKS, and LOC. 

The WORKRAD1 field in the DTF table 
(which contains a pointer to WORKR) 
used for MOVE mode is initialized by 
IIPOPEN, as well as KARGAD1 (which 
contains a pointer to the key). 

If LOCATE mode is specified, VSAM 
returns the address of the VSAM record in 
the DTF AFTER the GET operation. 

See note 1. 

See notes 1 and 2. 

Since VSAM does not allow update of 
records in LOCATE mode on the one 
hand and the ISAM interface processor, on 
the other hand, needs update in LOCATE 
mode, a special PUT is issued which, by 
means of the value passed in register 0, 
indicates to VSAM that the request comes 
from the ISAM interface program. 

See note 1 . 
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Diagram CF1. Sequential processing of data records 
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Diagram CF2. Sequential processing of data records 
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Description 

1 Bit in the flag byte (offset 16 in the 

DTF table) is set by I1POPEN after a 
successful OPEN of the data set. 

3-5 A MODCB is issued with the following 

OPTCD parameters to prepare for 
subsequent GETs and PUTs: KEY, SEQ, 
SYN, UPD, and LOC. 

Thus, all records are to be processed in 
LOCATE mode. 

6 Control is passed from the user to the 

ISAM interface processor via the 
LOGMOD AD field in the DTF table, 
which, after OPEN, contains the address 
of the general branch vector in the ISAM 
interface processor. 

10 See note 6. 

10-12 Since VS AM does not allow update of 
records in LOCATE mode on one hand 
and the ISAM interface processor, on the 
other hand, needs update in LOCATE 
mode, a special PUT is issued which, by 
means of the value passed in R0, indicates 
to VSAM that the request comes from the 
ISAM interface program. 
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See note 6. 
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Diagram CGI. CLOSE: Disconnect a user's ISAM program from a VSAM data set 
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Description 

Bit in the flag byte (offset 1 6 in the 
DTF table) is set by IIPOPEN after a 
successful OPEN of the data set. 

When no elements are left in the list, 
control is returned to the instruction 
immediately following the SVC 2 in the 
user program. Otherwise, control is 
returned to the SVG 2. 



Module 
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Diagram CHI. ISAM interface error processing 
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Notes for Diagrams CHI, CH2 



Diagram CHI Module 

If the ISAM interface processor is not $$BOPEN2 

loaded, a separate message routine must IIPOPN00 
be used. 

Return code is moved to RO, in 
preparation for the message routine. 

Return code loaded into RO during step 2 IIPBMROO 

determines message. 

Registers are set up for IIPPRCMR IIPOPN00 

Data set must be closed IIPPRCPR 

Uses registers set up in step 5. IIPPRCMR 



Diagram CH2 Module 

If the ISAM interface processor is not $$BCLOSE 

loaded, a separate message routine must 
be used. 

Return code is moved to RO, in 
preparation for the message routine. 

Return code loaded into RO during step 2 IIPBMROO 

determines message. 

Registers are set up for IIPPCRMR IIPCLSOO 

Uses registers set up in step 5. IIPPRCMR 
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■1. Build and initialize a CCA for the caller's request 



2. Determine if the specified catalog is open and if 
not, open the catalog and build control blocks 
and work area 

See Diagram BA, OPEN: Open the catalog 



(a) ^-3. If the caller issued an Access Method Services 

^-^ command, process it and bypass steps 4-9 



Vsam catalog 



See Diagram EB1, Catalog Management Services 



overview 




4. Verify that caller's work area and each CTGFL 
is within the caller's address space 



f B j ^5. Retrieve the catalog record identified by the 

^^^ caller 

See Diagram DC1, Search: Retrieve the base 
catalog record 



£>6. Check the password value for catalog security 
processing, if required 

See Diagram DD1, Check the password 

Authorized Not authorized MZMEM^[10 



t 



Rll 



tCCA 



=o 



y cc a 



tCTGPL 



tBuffer 




CM Buffer 



£> 



CTGPL 




CTGFLs 





ACB 


AMCBS 




CAXWA 

































Catalog record 
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(a) Update M^> See Diagram DG1, UPDATE: 

Modify catalog information 

(b) Locate M^ See Diagram DEI, LOCATE: 

Retrieve catalog information 



» 8. Update catalog control record if not already 
updated 

■> 9. Free the RPL 

10. Release virtual storage obtained for this request 
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Description 

VSAM catalog management (CM) is called with a 
CATLG macro instruction by VSAM Open, Close, 
and end-of-volume routines. In addition, a user's 
program can process VSAM catalog records by 
issuing an Access Method Services request. Access 
Method Services also issues the CATLG macro, 
which translates the request into an SVC 65 and a 
catalog parameter list (CTGPL). 

The CATLG macro instruction checks to see if the 
called VSAM CM module is in storage. If it isn't, 
the module is loaded from the core image library. 
Register 1 contains the address of the caller's 
CTGPL. The CTGPL identifies which catalog record 
to process and what process to be perform. 

1 The catalog control area (CCA) contains 
data about catalog records retrieved to 
process the request. The CCA also 
contains a register save area that shows 
the flow of control between CM routines 
used to process the request. 

Each time a CM routine is called by 
another CM routine, the contents of 
registers 12, 13, and 14 are put in the 
CCA's register save area. See Data Areas 
for details about the CCA and CTGPL 
and Diagnostic Aids for information about 
the CCA register save area. 

The catalog driver is then called to 
determine what request was issued and 
which routine processes the request. 

2 The master catalog's AMCBS is built, if it 
has not already been built. A check is 
then made to see if the master catalog is 
open. If it is not open, IGGOCLAD calls 
$$BOPEN to open the master catalog and 
then builds the master catalog's ACB and 
CAXWA. Control is returned to 
IGGOCLAC and then to IGGOCLAB. 



Module 



Procedure 



IGG0CLC9 



BLDCCA 



IGGOCLAB 



IGGOCLAC 
IGGOCLAD 
$$BOPEN 
IGGOCLAD 



IGGPACDV 



IGGPMCO 
IGGPMC02 

IGGPMCQ2 



Description 

An Access Method Services command is 
translated into a catalog management 
services (CMS) request to define (create), 
alter, delete, or list catalog records. 
IGGOCLAT then returns to IGGOCLAB. 

The caller's work area and each CTGPL is 
checked to ensure that it is within the 
caller's address space. 



The field-name value in the field 
parameter list (CTGFL) is used to obtain 
dictionary data that defines the field's 
characteristics and location within the 
record. Control is returned to 
IGGOCLAB. 

The catalog record is identified by the 
caller's DSNAME value, volume serial 
number, or control interval number; If the 
CTGPL's catalog identifier addresses the 
record's control interval number, the 
catalog record can be retrieved without a 
search of the catalog's index. Control 
returns to the calling function. 

The caller's request type determines the 
password value that, when supplied by the 
operator or input stream, allows the 
VSAM CM routines to complete the 
caller's request. 

The catalog cluster record is retrieved for 
catalog security processing. The password 
group occurrence data must also be 
retrieved, if it exists. Control is then 
returned to the catalog calling function. 



Module Procedure 

IGGOCLAT IGGPCD VR 



IGGOCLAY IGGPSCNC 



IGGOCLAY IGGPSCNC 



IGGOCLAH IGGPSCAT 



IGGOCLBM IGGPCKAU 



IGGOCLAG IGGPGET 
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Notes for Diagram DB (part 2 of 2) 



Description Module 

7 (a) An Update request modifies information in IGGOCLAV 

a catalog record. An Update request can IGGOCLBB 

also obtain direct-access space for the data 
set or index identified by the DSNAME 
value. Control is then returned to the 
catalog calling functions. 

(b) A Locate request retrieves information IGGOCLAZ 

from the catalog record. IGGOCLAB is IGGOCLBA 

called to determine those occurrences from 
which field data should be retrieved. 
Control is then returned to the catalog 
calling functions. 

8 When the VSAM catalog driver IGG0CLC9 
(IGGOCLAB) returns to the catalog first IGGOCLAG 
load module, IGGPRCU finds out if the 

CCR has been updated in virtual storage. 
If so, IGGPCCCR is called to update the 
CCR and returns to caller. 



Procedure 
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IGGPUPDE 
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IGGPTSTS 
IGGPGVAL 
IGGPGREC 



IGGPRCU 
IGGPCCCR 



IGGPRPLF frees the RPL for other 
requests and returns to the catalog first 
load module. 



IGGOCLAB IGGPRPLF 



All virtual storage obtained for work areas 
and control blocks is freed and returned to 
the DOS/VS system. A return code is set 
in register 15 and control returns to the 
caller. 
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Description 

The CTGPL's catalog identifier field, set by the 
caller, can contain the address of a catalog's ACB, 
the address of a catalog's DSNAME, or 0. 



Module 



Procedure 



See 'Data Areas' 
and CTGPL. 



for details about the CCA, ACB, 



The CMS DEFINE routine calls the search catalog 
routine to confirm that when a caller wants to create 
a VSAM cluster or catalog, the new cluster or 
catalog DSNAME is not duplicated in the catalog. 
The caller (CMS DEFINE) expects the 'no record 
found' return code. 

4 If the catalog record identifier is not a true 

name, it must be a control interval 
number. In this case, the catalog identifier 
(CTGCAT) must contain the address of 
the catalog's ACB. 

8 The caller did not know the address of the 

catalog's ACB and IGGOCLAH must 
locate it. 

10-12 If the AMCBS indicates the presence of 

IDCDF60 (an AMS parameter list) catalog 
management must use the CRA to retrieve 
data set information. This is the type of 
processing used by the AMS EXPORTRA 
and IMPORTRA functions. 

1 3-16 If the CTGPL's catalog identifier field 

CTGCAT and/or the CTGPL's pointer to 
the user catalog's filename CTGDDUC 
contain 0, then the job catalog is searched 
if it exists, and if it does not, the master 
catalog is searched. Otherwise the 
specified user catalog is used. The AMCBS 
contains the address of the CAXWA 
chain. 



IGGOCLAH IGGPSCAT 



IGGOCLAH IGGPSCAT 



IGGOCLAH IGGPSCAT 



Description 

19-20 The CAXWA chain contains only 

CAXWAs referring to the ACBs of open 
catalogs or CRAs. 

22 If the CAXWA was not found, then the 

corresponding user-catalog must be 
opened, if an entry exists in the master 
catalog. 

26 OPEN recursively calls the search catalog 

module. Procedure IGGPIOSI takes 
account of OPEN-build case. 

37 If CTGCAT contains a pointer to a 

44-character name, it must be the data set 
name of the catalog as contained in the 
CAXWA. 

If the CTGPL's catalog record identifier 
field addresses the record's control interval 
number, the catalog record can be , 
retrieved without a search of the catalog's 
index. 

The search catalog routine assigns an RPL 
to the caller. Catalog management (CM) 
routines issue GET and PUT macro 
instructions to retrieve and write catalog 
records. Each record management request 
(GET, PUT, etc.) needed to satisfy the 
caller's CM request refers to the RPL. 
The RPL is initialized for a caller and used 
as often as necessary to process the 
caller's CM request. When the caller's CM 
request is completed, the RPL is assigned 
to another caller. 



Module 



Procedure 
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18 For DEFINE of user catalog the CAXWA 

chain cannot contain the requested 
CAXWA. Therefore no scanning is 
necessary. 



Notes for Diagram DC (Part 2 of 2) 



Description Module Procedure 

38 At this time, the CCA (CCAACB) IGGOCLAH IGGPSCAT 
contains the ACB address of the catalog or 

CRA. 

39 The goal of the search is to find the IGGOCLAG IGGPGET 
true-name record identified by the 

DSNAME or the volume serial number. 
The true-name record contains the cluster's 
DSNAME or volume serial number and 
the control interval number of the cluster 
or volume catalog record. 

The search catalog routine sets the 'no 
record found' error code in the field 
CCACD2 of the CCA and returns to the 
caller. If the VSAM catalog has been 
unsuccessfully searched, the search catalog 
routine returns to the caller with the same 
error code set. 

See 'Diagnostic Aids' for CM error codes. 

41 The catalog record is located by its control IGGOCLAG IGGPGET 

interval number and read into a CM 
buffer. The buffer's address is put into the 
CCA. 
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Description 

When the VSAM Open routine (IKQOPN) calls 
VSAM catalog management to retrieve a cluster 
catalog record, the password checking routine 
(IGGOCLBM) confirms the user's authorization to 
gain access to the cluster. 

When an Access Method Services routine calls a 
catalog management services routine (see Diagram 
EB1, step 1), the password checking routine 
confirms the user's password to gain access to the 
VSAM catalog or a specific catalog record. 

The catalog record containing the password(s) is 
available in the buffer addressed in the caller's CCA. 

The type of processing that the user is allowed to do 
with the data set is determined by the password: 

Master password: The user is allowed to modify 
passwords and catalog records that describe his data 
set, and to process his data set's control intervals 
and records. 

Control-interval password: The user is allowed to 
process the data set's control intervals as well as its 
records. 

Update password: The user is allowed to process his 
data set's records. 

Read-only password: The user is allowed to read, 
but not to write (add or update), records in his data 
set. 

1 If the user's password has been verified 

during a previous CM request, the caller 
(VSAM Open or CMS) can set the 
CTGPL's bypass-password-checking flag 
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Description 

The caller can indicate the minimum level 
of password to be verified with the 
CTGPL, but the password checking 
routine determines the type of password 
required for the request. 

The password is in the password group 
occurrence in the catalog record. 

The console operator can reply to the 
VSAM request for a password message 
with a password. If the operator replies 
with CANCEL or EOB, error code 56 is 
returned and module IGG0CLC9 cancels 
the job. 



If the user supplied the correct master 
password, the user security verification 
routine (USVR), if it exists, is bypassed. 
If a USVR exists, the USVR exit is taken 
even though the user provided another 
type of password correctly. 

If a user security verification routine exists 
for the user, its name is in the catalog 
record's password group occurrence. 

See Data Areas for details about the 
cluster catalog record and password group 
occurrence. 

The user security verification routine is an 
installation-supplied routine that confirms a 
user's authorization to gain access to the 
data set. The USVR confirms that the 
user satisfies the installation's security 
verification criteria. 
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combination name 
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See Diagram DK1, Obtain a 
talog record field's value 

Put the field's data in the caller's work area 

^> 9. Add the data field's length to the current total 
length 

10. Is the current total length greater than the work 
area length? 



Move the field's data into the 
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Put the data's length and address 
into the CTGFL 
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Notes for Diagram DE (part 1 of 2) 



Description 

The VSAM Open routine (IKQOPN) issues the 
CATLG instruction to obtain data set and volume 
information about the user's data set and index. 

The VSAM end-of -volume routine (IKQEDX) issues 
the CATLG macro instruction to obtain volume 
information about the extents added to the user's 
data set. 

When the caller issues a CATLG macro instruction, 
register 1 points to the caller's CTGPL. The 
CTGPL's request options are decoded and the base 
catalog record is retrieved for the request. 

1 The Locate routine processes each CTGFL 
associated with the caller's CTGPL and 
returns as much caller-requested data (in 
the caller's work area) as the caller's test 
conditions and work area size permit. 

2 The caller's CTGFL list (CTGFIELD in 
the CTGPL) contains the address of each 
CTGFL required to satisfy the caller's 
need for catalog information. Each 
CTGFL describes one of the catalog 
record fields to be retrieved. Each 
CTGFL is completely processed before the 
next one is started. 

A caller might make conditional requests 
for retrieval of catalog record fields. For 
example, a chain of CTGFLs might be 
supplied with the request and processed 
together. The first CTGFL identifies a 
field to be retrieved and points to 
subsequent CTGFLs that contain the 
names of the catalog fields to be tested, 
the test conditions (equal, low, high, etc.) 
and the address and length of the caller's 
test data area. The catalog record fields 
identified by the second and subsequent 
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Description 

CTGFLs are compared to (or tested 
against) the caller's data. If the 
comparison satisfies the test conditions, the 
catalog record field specified by the first 
CTGFL is retrieved. 

If the caller wants to retrieve a catalog 
record's header field, the field's data is 
retrieved if all tests are satisfied. 
If the caller wants to retrieve a field from 
one of the group occurrences that follow 
the header field, the field's data is 
retrieved from each group occurrence that 
satisfies all tests. 

The sequence number of each group 
occurrence that satisfies the tests is put in 
the CCA. When all group occurrences 
have been tested, the sequence numbers in 
the CCA are used to identify each group 
occurrence that contains caller-requested 
data. 

If none of the group occurrences satisfy 
the test conditions specified by test 
CTGFLs, the next CTGFL in the catalog 
parameter list (CTGPL) is processed. 

A combination name refers to a set of 
related catalog field names, and is used by 
the caller instead of a separate CTGFL for 
each field name. 

The combination name index has an entry 
for each field name in the combination. 
The Locate routine processes each field 
name entry in the combination name index 
sequentially, starting at the address of the 
first field name entry for the combination, 
and ending when the number of entries 
processed equals the number of field 
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Description 

names associated with the combination 
name. 

The test sequence, if any, associated 
with a combination-name CTGFL is done 
only once, not once for each field name in 
the combination. 

The address of the catalog's ACB is in the 
CCA. All other catalog record fields that 
the caller can request are in the catalog 
record. Each catalog record field is 
identified by its field name. 

Diagram DK1 shows how the requested 
catalog record field (specified by its field 
name in the CTGFL) is located for the 
Locate routine. 

The first two fields in the caller's work 
area specify the number of bytes the caller 
allocated to the work area and the number 
of bytes that contain catalog record field 
data (the current total length field). 

If the current total length exceeds the 
work area length, the current total length 
field is updated with the length of the 
catalog record data, but the data itself is 
not moved in the caller's work area. 

The Locate routine puts the beginning 
address and the length of the catalog field 
into the CTGFL's field-data entry. 

The CTGFL's field-data entry contains the 
beginning address and length of the data in 
the caller's work area. When control is 
returned to the caller, the caller can use 
the field-data entry to locate a specific 
field's data in the work area. 
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Diagram DG1. Update: Modify catalog information 
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See Diagram DM. Release Extents 
f B J J> 2. Save the serial number of the volume containing 
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the current CRA 

,3. Is this a call from VSAM 'Get next extent' 
routine for more space? 

No Yes 

♦ 

See Diagram DH1, Update Extend: 
Obtain additional space for a VSAM 
object 

4. Check the inhibit update bit in the dictionary 
entry of each field to be updated 

5. Are all inhibit update bits set? 
No Yes 
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Diagram DG2. Update: Modify catalog information 
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Do steps 7 through 12 to process each of the caller's 
CTGFLs 

Test the catalog record field 

, — , — __ ^ 

7. Is the field to be updated only if caller-specified 
test conditions are satisfied? 



8. Identify each group occurrence 
that satisfies the test conditions 

9. Does at least one group 
occurrence satisfy the test 
conditions? 

No. 



Sequence 
number 



10. Is more than one field identified by the field 
name (a combination name)? 



o step 1 2 for each field 
associated with the combination 
name 

12. Replace the field's data with the caller's update 
data 

See Diagram DLL, Modify a catalog record 
i 13. Write the updated catalog record into the catalog 

14. Have all CTGFLs been processed? 

Yes No 
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Notes for Diagram DG (part 1 of 2) 



Description 

The VSAM Close routine (IKQCLO) issues the 
CATLG macro instruction to modify the data set 
and index statistics maintained in the catalog 
record's copy of the AMD SB. 

The VSAM 'Get new extent'routine (IKQNEX) 
issues the CATLG macro instruction to obtain more 
space for a data set. 

When the caller issues the CATLG macro 
instruction, register 1 points to the caller's CTGPL. 
The CTGPL request options are decoded and the 
base catalog record is retrieved for the request. 

1 If this is a call to release secondary extents 
(for a reusable data set), routine 
IGGPRELE in module IGGOCLCB is 
called. 

2 This information is saved in order to be 
able to supply it for extension records. 

3 If more space is required for the data set, 
the UPDATE-Extend routine 
(IGGOCLBB) processes the caller's 
Update request and returns directly to the 
caller (the VSAM 'Get new extent' 
routine). See Diagram DH for information 
about UPDATE-Extend processing. 

4 Scan through the dictionary information of 
all fields to be updated. 

5 If there are one or more fields in the list 
which require CRA update, the inhibit 
CRA update bit in the CCA (which was 
initially set 'on') is cleared. 



Module Procedure 



1GG0CLAV IGGPUPD 
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IGGOCLAV IGGPSFPL 



Steps 7 through 12 are performed to update each of 
the catalog record fields identified by the caller's 
CTGFL. 

7 The caller's CTGFL list (CTGFIELD in 
the CTGPL) contains the address of each 
CTGFL needed to satisfy the caller's 
updating requirements. Each CTGFL 
describes one of the catalog record fields 
to be updated. Each CTGFL is completely 
processed before the next one is started. 

The caller may want to update a field only 
if another field's value, when compared to 
the caller's test value, satisfies the caller's 
test conditions. If so, the caller builds a 
CTGFL that contains the name of the 
catalog field to be tested, the test 
conditions (equal, high, low, etc.), and the 
address and length of the caller's test 
value. If a CTGFL contains the address of 
another CTGFL, the second CTGFL 
describes a catalog record field that is to 
be compared to the caller's data. If the 
comparison satisfies the test conditions, the 
catalog record field specified by the first 
CTGFL is updated with the caller's data. 

8 If the caller wants to update a catalog 
record's header field, the field's data is 
updated with the caller's data if all tests 
are satisfied. 

If the caller wants to update a field from 
one of the group occurrences that follow 
the header field, the field's data is updated 
with the caller's data for each group 
occurrence field that satisfies all tests. The 
group occurrence that contains the field to 
be updated can also be identified by its 
sequence number. 
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Description 

The sequence number of each group 
occurrence that satisfies the tests is put in 
the CCA. When all group occurrences 
have been tested, the sequence numbers 
are used to identify each group occurrence 
that contains caller-requested data. 

10 A combination name refers to a set of 
related catalog field names, and is used by 
the caller instead of a separate CTGFL for 
each field name. 

1 1 The CCA's combination name index has 
an entry for each field name in the 
combination. The Update routine 
processes each field name entry in the 
combination name index sequentially, 
starting at the address of the first field 
name entry for the combination, and 
ending when the number of entries 
processed equals the number of field 
names associated with the combination 
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Description 

1 3 When the catalog record is updated (in a 

buffer in the Update routine's virtual 
storage), the Update routine sets the 'must 
write' flag on to indicate that the I/O 
manager must write the buffer from virtual 
storage into the catalog before the buffer 
can be made available to contain another 
catalog record. When the caller's Update 
routine needs the buffer to process another 
catalog record associated with the request, 
the Update routine writes the catalog 
record from the buffer into the VSAM 
catalog (on a direct-access storage device). 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 
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The combination name's CTGFL contains 
the beginning address and the total length 
of the group of update data fields in the 
caller's work area. 



The test sequence, if any, associated with 
a combination-name CTGFL is done only 
once, not once for each field name in the 
combination. 
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Allocate space to the object from 
the data space's free space 

See Diagram DJ1, Suballocate: 
Obtain additional space from a 
nonunique VSAM data space 
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Add new extent descriptors to 
the volume information group 
occurrence 

See Diagram DL1, Modify the 
catalog record - add a new group 
occurrence to the record 



Update the volume information group occurrence 
to show the object's newly obtained space 

See Diagram DL2, Modify the catalog record 
change a field within a group occurrence 
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Diagram DH3. Update-extend: Obtain additional space for a VSAM object 
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12. If the object is key-sequenced, is the sequence 
set stored with the data in the data set? 

No Yes 



13. Retrieve the cluster catalog 
record identified in step 1; 
retrieve its association (index) 
group occurrence to locate and 
retrieve the index catalog record 



l£> 14. Allocate part of the data set's 
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Description 

The UPDATE-Extend routine is called whenever a 
VSAM object (data set, index, or catalog) needs 
more space to store its records. 

The VSAM 'Get new extent' routine calls the CM 
Update routine and an amount of space, based on 
the object's direct-access space allocation 
requirements, is allocated from a shared VSAM data 
space that has enough free space to satisfy the 
allocation requirements. 

2 The volume information group occurrence 
is identified by either an RBA or a key 
value. 

3 A shared (nonunique) VSAM data space 
contains all or parts of two or more 
VSAM objects. A unique VSAM data 
space contains all or part of only one 
VSAM object, and is not allowed to 
contain records of another object. 

4 If the object shares its data space with 
other VSAM data sets or indexes, there 
might be enough free space in one of the 
data spaces on the volume to satisfy the 
object's direct-access space allocation 
requirements. 

7 The object's catalog record contains a 

volume information group occurrence to 
describe the object's space on each volume 
that contains a part of the object. If the 
object's newly obtained extent is on a new 
volume, the UPDATE-Extend routine 
builds a volume information group 
occurrence to describe the new volume 
and extent. Otherwise, an existing volume 
information group occurrence is updated 
with the high-allocated RBA and extent 
information in the form 
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Description Module Procedure 

SS CCHH CCHH DDDD DDDD 

where: 

SS identifies the VSAM data space 
CCHH are the low and high cylinder 
and track addresses 
DDDD are the low and high RBAs 

The low and high cylinder and track IGGOCLBB IGGPSSWD 

addresses in the index catalog record's IGGOCLAG IGGPGET 

volume information group occurrence are IGGOCLBB IGGPSSWD 

those of the extent obtained for the data IGGOCLBC IGGPINIT 

set. The low and high RBA values are for IGGOCLBB IGGPSSWD 

the sequence set. IGGOCLBC IGGPSVOL 



Diagram DJ1. Suballocate: Obtain additional space from a nonunique VSAM data space 
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Process each extent in the extent table: 
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extent-table processing occurs 

Is greater than the amount of tracks requested, if 
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currently obtained extent is smaller than the 
previously obtained one, the current extent is 
saved 

0. Is less than the amount of tracks requested, save 
it 
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Reset the space map group occurrence to show 
the newly allocated tracks 
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Description 

The suballocate routine, IGGOCLAR, is called to 
assign a candidate volume to a VSAM object (data 
set, index, or catalog) and to assign available spaces 
on the caller-specified volume. The caller, either the 
UPDATE-Extend routine (Diagram DH) or the 
DEFINE Cluster routine (Diagram ED) builds a list 
of volume serial numbers to identify each volume to 
be assigned to the object as a candidate volume. If 
the caller requests space allocated to the object, the 
list contains one volume serial number. 

1 A candidate volume is available to contain 
a VSAM object's catalog records, but no 
space is allocated to the data space from 
the volume as yet. 

2 The volume must be owned by the same 
catalog that contains the object. 

3 The volume catalog record already 
contains a data set directory entry, the 
volume is either already assigned to the 
VSAM object as a candidate volume or 
has some of its space allocated to the 
VSAM object. 

4 The new data set directory is added to the 
volume catalog record. 

5 If the amount of space requested is a 
number of cylinders, convert it to a 
number of tracks. 

6 The extent table is built by retrieving each 
extent descriptor (from each data space 
occurrence) that might contain enough free 
space to satisfy the request's minimum 
allocation requirement (the number of 
tracks in one control area). 
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Description 

All extents of shared data spaces are 
described in the table until there are no 
more extents to describe or the table is 
full. If the table is full, step 6 is repeated 
when steps 7-10 are completed, until the 
extents of all shared data spaces have been 
examined. 

Each extent descriptor in the extent table 
is processed beginning with the lowest 
extent starting track number (TT) in the 
table, in ascending sequence, until all 
extent descriptors have been processed. 

IGGPBMR examines each extent to find 
an amount of contiguous unallocated 
tracks at least as large as the request's 
minimum allocation unit. IGGPBMR 
examines the space map group occurrence, 
starting at bit position TT (track indicator) 
and ending at bit position TT plus the 
number of tracks in the extent (NN) minus 
1. If IGGPBMR finds a large enough 
amount of unallocated tracks, it returns to 
IGGPEDS with the beginning track 
number (TT) and the number of tracks 
(NN). If the data space's extent contains 
another amount of unallocated tracks at 
least as large as the request's minimum 
allocation unit, IGGPEDS calls IGGPBMR 
to examine the rest of the data space's 
extent. 

If the extent returned by IGGPBMR is the 
exact number of tracks required to satisfy 
the caller's request, no further extent table 
processing is done. Larger or smaller 
extents obtained from previous extent table 
entries are ignored. 
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Description 

9 If the extent returned by IGGPBMR is 
larger than the amount of tracks required 
to satisfy the request, the extent is saved if 
either: 

• No other larger-than-requested-amount 
extent has been returned yet, or 

• The current extent is smaller than a 
previously obtained 
larger-then-requested-amount extent. 

In either case, only one 
larger-than-requested-amount extent value 
is saved. The small extent table (built in 
step 10) is ignored and no longer used. 

10 If the extent returned by IGGPBMR is 
smaller than the amount of tracks required 
to satisfy the request, its TTNN value is 
adjusted so that TT is on a cylinder 
boundary. If NN is now at least as large 
as the request's minimum allocation unit 
(number of tracks for one control area), 
the extent is saved in the small extent table 
if: 

. The table has fewer than five entries 
(or a caller-specified maximum less 
than five) in it, or 

. The table is full and the current 
extent's NN value is greater than the 
table's smallest extent. The current 
extent replaces the table's smallest 
extent. 

In either case, the extent is not put in the 
small extent table if it is too small 
(adjusted NN is less than the minimum 
allocation unit) or if a 
larger-than-requested-amount extent 
already exists (see step 9). 
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IGGOCLAU IGGPEDS 



IGGOCLAU IGGPEDS 



Description 

If, after all data spaces have been 
examined, the total of the NN values in 
the small extent table is less than the 
amount required to satisfy the request, no 
space is allocated to the object. 

11 If the selected extent is larger than or 
equal to the amount of space requested, 
IGGPBMR adjusts the space map group 
occurrence starting at bit position TT 
(track indicator) by turning off NN bits 
(NN is the exact number of tracks 
required to satisfy the request). 

If the space is allocated to an object from 
a number of extents, the small extent table 
is sorted so that the largest NN value is 
first, the smallest last. IGGPBMR then 
adjusts the space map group occurrence 
for each TTNN value in the small extent 
table, until the amount of allocated tracks 
equals the amount of tracks requested. 

12 IGGPSALS returns the sequence number 
of the data space's extent, starting track 
number, and number of tracks of each 
extent obtained for the request. The caller 
uses this information to build extent 
descriptor entries in the VSAM object's 
volume information group occurrence. 
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Diagram DK3. Obtain a catalog record field's value 
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Description 

The obtain-field-value routine is called by other 
catalog management (CM) routines to obtain the 
location and length of a field in a catalog record. 
The record is in a CM buffer in virtual storage. The 
following results could occur: 

• The field is entirely contained in the 
record in the buffer, and the field's 
address and length are set in the 
caller's CCA. 

• The field is partially contained in the 
record in the buffer, and the field's 
address and partial length are set in the 
caller's CCA. The CCA also has the 
not complete flag on and contains the 
control-interval number of the catalog 
record's extension, which contains more 
of the field. 

9 The field is not retrieved because it 
doesn't exist in the caller-specified 
group occurrence, or because there are 
no more group occurrences in the 
record, or because no buffer space is 
available to contain extension record. 

1 The derived volume entry fields are 

retrieved. 

The field-name dictionary is a read-only 
catalog management table. The catalog 
field name dictionary contains an entry for 
each type of catalog record field, based on 
its field name. The caller puts the 
dictionary entry identified by the CTGFL's 
field name into the CCA before calling the 
obtain-field-value routine. 
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Description 

If the field name identifies a header field, 
the field's type code (in its dictionary 
entry) is 0. A nonzero group code 
identifies the group occurrence that 
contains the field identified by the 
CTGFL's field name. 

If the field name identifies a header field 
and the field is fixed-length, it is at a fixed 
displacement from the beginning of the 
catalog record. 

The field's address is obtained by adding 
the displacement in the CTGFL's 
dictionary entry to the beginnning address 
of the record (the contents of 
CCACPElx). The field's length is part of 
the CTGFL's dictionary entry. 

The group occurrence pointer (GOP) is 
used to locate a group occurrence. The 
GOPs are grouped together by a group 
code. Within each group of GOPs, the 
pointers are ordered by sequence number. 

If the caller-specified GOP, identified by 
its sequence number, is found, its 
displacement field and flag field specify 
the location of its group occurrence as: 

• the number of bytes from the beginning 
of the record's group occurrences (the 
contents of CCACPE3x plus the GOP's 
displacement field value), or 

• the control-interval number of the 
extension record that contains the 
group occurrence. The extension record 
contains a GOP that specifies the group 
occurrence's location as a number of 
bytes from the beginning of the 
record's group occurrences. 
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Description 

The actual group occurrences containing 
the field to be retrieved may be contained 
in an extension record. 

Each catalog record in the CM buffer is 
identified by a record area block (RAB) 
within the CCA. The RAB contains flags 
that indicate whether or not the buffer can 
be used to contain another record. If the 
RAB's 'must write' flag is on, the buffer 
cannot be used for another record until its 
contents have been written into the 
catalog. 

Each CCA contains six record area blocks 
(RABs). Each CM request can use a 
maximum of five buffers. If all buffers are 
filled and cannot be released, the 
obtain-field-value routine sets the CCA's 
no buffer space flag on. 

The CCA's not found flag is set off before 
returning to step 3 to examine the 
extension record's GOPs. 

If the GOP contains the control-interval 
number of an extension record, the group 
occurrence is contained on that extension 
record. 

See step 6. 

See step 7. 

The field's length is obtained from the 
CTGFL's dictionary entry (for a 
fixed-length field) or the first two bytes oi 
the field (which are the length bytes of a 
variable length field). The field's address 
is the sum of the address of the group 
occurrence and the number of bytes from 
the beginning of the group occurrence. 
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Description 

A variable- length field might be partially 
contained in an extension record. If so, 
the field's length is greater than the 
number of bytes remaining in the record. 

The caller's information requirements 
might be satisfied with the part of the field 
that is currently available. If not, the 
caller (a CM routine) returns to 
IGGOCLBA to obtain the value of the 
next part of the field from the extension 
record. 

The caller can move that part of the field 
currently in the buffer into a work area. If 
the rest of the field is required, the caller 
can return to IGGOCLBA to retrieve the 
extension record. 
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free catalog record 
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Description 

The modify routine initializes each CTGFL 
with the dictionary entry associated with 
the CTGFL's field-name value. 

The field parameter list (CTGFL) contains 
the field's name, type code, length, and 
displacement from the beginning of the 
record or group occurrence. If the field 
exists, it is either a header field (group 
code 0) or a field within a group 
occurrence. If the caller supplied 
modifying data and test conditions, the 
field is being altered. If the caller supplied 
modifying data and no test conditions, a 
group occurrence is to be added to the 
records. If the caller identified a group 
occurence combination field name but 
didn't supply modifying data, the group 
occurrence is being deleted. 

A new group occurrence requires a group 
occurrence pointer (GOP). 

If a new GOP is built, it is put into the 
catalog record at the end of its group of 
GOPs. The GOPs are grouped by group 
code and, within the group-code group, are 
ordered by sequence number. 

If the new GOP causes the catalog record 
to overflow, an extension record is 
obtained from the catalog's free control 
intervals. All group occurrences in the 
original record are put into the extension 
record. The GOPs displacement value (in 
the original record) is replaced with the 
control interval number of the extension 
record. In addition, a GOP is built and 
put into the extension record for each 
group occurrence in the extension record. 
The GOP in the extension record contains 
the displacement from the beginning of the 
record to its group occurrence. 
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Description 

If the new GOP causes the catalog record 
to overflow and the catalog record 
contains only GOPs, an extension record is 
obtained to contain the new GOP. The 
original record's extension field contains 
the control interval number of the 
extension record. 

This routine activates the GOP by setting 
its inactive flag off. 



Module 



Procedure 



The new group occurrence contains 
fixed-length fields and, possibly, 
variable-length fields. If the new group 
occurrence causes the record to overflow, 
an extension record is obtained to contain 
the new group occurrence. 

Replace the initial field values (from step 
6) with the caller-supplied values 
addressed by the CCA. 

If there are no more CTGFLs to process, 
IGGPSFPL calls IGGPPREC to write each 
updated catalog record into the catalog. 

The CCACPE7x field contains the field's 
address. The CTGFL contains the address 
and length of the data with which to 
update the field. 

The CTGFL flags field (from the catalog 
field name directory) specifies field type. 

The CTGFL contains the length and 
address of the updating data. The data is 
in the caller's work area. 
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Description 

14 The CTGFL flags field (from the catalog 

field name directory) specifies field type. 
If the length of the data to update the 
field within the CTGFL isn't equal to the 
field's length in the CCA, the 
variable-length field's length is either 
increased or decreased, causing a 
corresponding reduction or increase in the 
catalog record's amount of free space. 



Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 
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Description 
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If the modification occurs in a base catalog 
record, the affected group occurrence is 
moved from the base catalog record into 
an extension record. If the available space 
pointer doesn't have an extension control 
interval number, an extension control 
interval number is assigned to the caller. 

The length of the group occurrence to be 
moved is computed. The group occurrence 
and the GOPs are moved and updated. 



The variable-length field's length bytes are 
replaced with the length of the data with 
which to update the field (in the CTGFL). 



The eliminated bytes at the end of the 
record are added to the record's free 
space. 

The additional bytes are obtained by 
reducing the record's free space. 
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Procedure 
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Description Module Procedure 

If the increased length causes the catalog 
record to overflow, an extension record is 
obtained. The original record's data is split 
so that part remains in the original record 
and part is moved into the extension 
record. Each associated GOP is updated to 
show the new position of its group 
occurrence. 



IGGOCLAX IGGPALT2 



IGGOCLAX IGGPALT2 



The catalog control record (CCR) contains 
pointers to two chains rone of unassigned 
records (CIs) and one of free (F type) 
records. The unassigned records are used 
first, down to a minimum 'reserve' of 4 
(needed for catalog extension), after which 
the requests are filled from the free record 
chain. 



1 9 The group occurrence data is split so that 
part remains in the original record and 
part is moved into the extension record. 

20 Each GOP is updated to show the new IGGOCLAX IGGPALT2 
position of its group occurrence. 

21 The GOP's inactive flag is set on, thereby IGGOCLAV IGGPDEL2 
deactivating it. The GOP's type code and 

sequence number fields are unchanged. 
The displacement field is set to 0. 

22 If an extension record contains only 
deleted data, the record is reclaimed by 
CM as a free control interval. 

23-25 The CCR contains the count of free IGGOCLAV 1GGPDEL2 

control intervals available to the catalog IGGOCLAX IGGPDGO 

and the control interval number of the first IGGOCLAV IGGPDEL2 

free control interval. All free control IGGOCLBA IGGPGREC 

intervals are chained together. When a IGGOCLAV IGGPDEL2 

control interval is added to the free control IGGOCLAW IGGPPREC 

interval chain, CM puts the CCR's free IGGOCLAV IGGPDEL2 



IGGOCLAV IGGPDEL2 



Description 

control interval number into the new free 
control interval and puts the new free 
control interval's control-interval number 
into the CCR. The CCR's free 
control-interval count is increased by 1 . 

If a variable-length field within a group 
occurrence spans several physical records, 
multiple extension records must be deleted. 



Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 
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Diagram DM1. Release extents 
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Do steps 1 to 16 for each volume Group Occurrence 

1 . Locate the Volume Group Occurrence 

2. Save the volume serial number 

3. Retrieve the extent descriptor 

Do steps 4 to 10 for each extent field in the volume 
group occurrence 
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Volume record 



Extract the high allocated RBA 

6. Loop to process next extent field 

7. Read the volume record 

8. Add up the released space and the number of 
extents released 

9. Call the bit mask handler to update the volume 
record bit map 

10. Delete the extent field 
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- Diagram DM2. Release extents 



Data or Index catalog record 
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Volume group occurrence 






Extent descriptors 























RUSWKA 



RUSHARBA 



Data or Index catalog record 



Volume group occurrence 



harba; 



1 1 . Are all extent fields in this group occurrence now 



deleted? 



Yes 



4 



No 



12. Set the group occurrence to indicate candidate 
volume 

See Diagram DL. Modify a catalog record field's 
value 




£>13. Zero the high used RBA and high key RBA. 
Set the high-allocated RBA 
Set extents not preformatted 

See Diagram DL. Modify a catalog record's field 
value 



14. Extract the high allocated RBA for the entire 
component 

15. Compute and store the released space 

16. Compute and store the number of released 
extents 

17. Modify the appropriate fields in the Data or 
Index catalog record 

See Diagram DL. Modify a catalog record field's 
value 
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Diagram EA1. Catalog management services contents 
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See Diagram 
EB 




















































DEFINE: 

Create a VSAM 
catalog or 
cluster 






DEFINE 

Non VSAM: 
Define a non 
VSAM 
data set in a 
VSAM catalog 






DEFINE 
AIX 

Create an 
alternate 
index 






ALTER: 

Modify a 
catalog record 






DELETE: 

Remove a VSAM 
or non-VSAM 
data set 




DELETE: 
AIX 

Release a VSAM 
alternate index 


















See Diagram 

EC 


See Diagram 
EF 


See Diagram 
EI 


See Diagram 
EK 


See Diagram 
EM 


See Diagram 
EP 














































DEFINE 

Cluster: 
Create a 
cluster 






DEFINE 

Space: 

Initialize 

a VSAM data 

space 






DEFINE 
PATH: 

Define a VSAM 
path 






LISTCAT: 

Retrieve a 
catalog record's 
contents 






DELETE 

Space: Release 
all of the empty 
VSAM data 
space on a 
volume 






DELETE 
PATH 

Release a 
VSAM path 




















See Diagram 
ED 




See Diagram 
EG 




See Diagram 
EJ 


See Diagram 
EL 


See Diagram 

EN 




See Diagram 
EP 


































DEFINE 

Catalog: 

Create a VSAM 
catalog 




Build CRA: 
Initialize a 
catalog 
recovery 
area. 




SHOWCAT: 

Display 
Catalog 
information 






Modify 
upgrade 
set. 






DELETE 
Catalog: 
Release a 
VSAM catalog 


















See Diagram 
EE 


See Diagram 
EH 


see Diagram 
ES 


See Diagram 
ER 




See Diagram 
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£ Diagram EB1. Catalog management services overview 
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Password group 
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catalog or 
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1. Check the caller's authorization to issue the 
command 

See Diagram DD, Check the password 



2. Did the caller issue a DEFINE command? 

Yes No ^(14 ' 



* 



Create a VSAM Catalog 



f> 4. Build the VSAM catalog 



3. Does the caller want to create the VSAM master 
or a user catalog? 



Yes 



No 



See Diagram EC, DEFINE: Create a VSAM 
catalog or cluster 



5. Is the catalog recoverable? 
Yes No 



►Return 



* 



6. Build a catalog recovery area 
See Diagram EH. Build CRA 



►Return 



VSAM-owned 

direct-access 

volume 




Diagram EB2. Catalog management services overview 
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Data needed 
to create a 
catalog or 
initialize 
a data space 



TZ 



Create a VSAM data space 
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7. Does the caller want to create a VSAM data 
space? 



Yes 

4 



No 



VSAM catalog 



8. Create a VSAM data space 

See Diagram EG, DEFINE space: Initialize a 
VSAM data space 



^ 



9. Is the catalog recoverable? 

Yes No 



I 



► Return 



10. Build a catalog recovery area 
See Diagram EH. Build CRA 



► Return 



Create a data set 



1 1 . Search the VSAM catalog specified in the caller's 
CTGPL to ensure that the new data set's 
DSNAME doesn't duplicate an existing 
DSNAME 

See Diagram DC1, Search: Retrieve a catalog 
record 



12. Did the search routine set the no-record-found 
error code? 



Yes 



© 



No 



►Return- 
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volume 




Initialized 
data space 



CCACD1 
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Updated 
volume record 
that describes 
the new VSAM 
„data space 



~ Diagram EB3. Catalog management services overview 
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catalog or 
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Create a data set (continued) 






13. Process the DEFINE command to create: 

• A cluster (a VSAM data set, with or without an 
f index) 

See Diagram EC1, DEFINE: Create a VSAM 
catalog or cluster 



, • A nonVSAM data set 

See Diagram EF1, DEFINE nonVSAM: Define ; 
nonVSAM data set in a VSAM catalog 

m • An alternate index (a VSAM KSDS with or 
without an upgrade set) 
See Diagram EI. DEFINE AIX 

A path (an access to a base data set plus an 
AIX, or an alternate access to a base data set) 
See Diagram E J. DEFINE Path 
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Return 



Diagram EB4. Catalog management services overview 
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■ ^ 14. Search the VSAM catalog specified in the caller's 
' 4 CTGPL and retrieve the catalog record identified 

by the caller-supplied DSNAME 



^ 



f CTGFVs 



Data needed to 
alter or delete 
catalog 
information 



J f Catalog management buffer 



Catalog record to be listed, altered, or deleted 



o< 



See Diagram DC1, Search: Retrieve a catalog 
record 



15. Process the command to: 

• • Modify a catalog record 

See Diagram EK, ALTER: Modify a catalog 
record 

• Delete a cluster or nonVSAM data set 

See Diagram EM, DELETE: Remove a catalog 
record 

• Delete all empty data spaces on a volume 
See Diagram EN, DELETE Space: Release all 
empty data spaces on a direct-access volume 

• Delete a VSAM catalog 

See Diagram EO, DELETE Catalog: Delete a 
VSAM catalog 

• Delete a VSAM alternate index 
See Diagram EP. DELETE AIX 

• Delete a VSAM path 

See Diagram EP. DELETE Path 

• Retrieve information from a catalog 

See Diagram EL, LISTCAT: List the catalog 
contents 
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- Diagram EC1. DEFINE: Create a VSAM catalog or cluster 
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^ 1. Verify that, if the VSAM master catalog exists, 
this request does not attempt to create another 
one 

A 2. Verify that each of the caller's CTGFVs: 

' • Is within the caller- program's partition, and 

Contains all the information needed to build the 
catalog or cluster 



CTGFLs 



/ 
/ 



CTGFVs 



tCTGFLs 



See "Data 

Areas" 
for a list of 
the FVTs 
needed to 
create a VSAM 
cluster or 
catalog 




^>3. Determine the creation date 

► 4." Verify that each of the caller's CTGFLs: 

• Is within the caller-program's partition, and 

• Contains all the information needed to build the 
catalog or cluster 

5. Did the caller issue a DEFINE catalog request? 

No Yes 

"^> 6. Build the VSAM catalog 

See Diagram EE, DEFINE 
Catalog: Create a VSAM catalog 

► Return 

7. Build the VSAM cluster 

See Diagram ED, DEFINE Cluster: Create a 
cluster 



Creation date CTGF L 
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VSAM cluster 
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Return 
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Notes for Diagram EC 



Description 

When the user issues the Access Method Services 
DEFINE command to create a catalog or a cluster, 
the CMS DEFINE initial processing routine insures 
that the caller has provided all the information 
necessary to create a catalog or a cluster. The field 
CCACD1 is checked for error codes. If no errors 
are found, CCACD1 will be 0. See the module 
prologue for IGGOCLAL for specific error 
conditions. 

1 Only one master catalog is permitted. An 
attempt to define a second master catalog 
will result in an error. 

2 CTGFVs and CTGFLs are checked by 
internal procedures in IGGOCLAL: 

Cluster CTGFV 
Caller's work area 
Data CTGFV structure 
Index CTGFV structure 
Data DSNAME CTGPL 
Index DSNAME CTGPL 
Data space CTGFV 
Catalog space CTGPL 
Key range CTGPL 
File CTGFV 



Module Procedure 



Description 



IGGOCLAL IGGPDEF 



IGGOCLAL 



IGGOCLAL 



IGGPDCWC 

IGGPDCWC 

IGGPDFSC 

IGGPDFSC 

IGGPDDNP 

IGGPDDNP 

IGGPDBVC 

IGGPDCSF 

IGGPDRPG 

IGGPDEF 



Module 

IGGOCLAN 
IGGOCLAP 

IGGOCLAN 



IGGOCLAS 
IGGOCLAN 
IGGOCLAJ 



Procedure 

IGGPDSCB 
IGGPDCDA 

IGGPDCSB 

IGGPDRDA 

IGGPDSCB 

IGGPDEFC 

IGGPDSCB 

IGGPDBDI 



Get the current date from COMREG and 
insert it in the creation date in the 
CTGFL. 

Calculate the amount of work area used or 
needed. The password and owner ID are 
checked in the CTGFL. The CTGFLs are 
then checked and completed by 
IGGOCLAN: 

Space parameter CTGFLs 
Buffer-size CTGFLs 
Average-record size CTGFLs 



IGGOCLAL 
IGGOCLAG 



IGGOCLAL 



IGGOCLAN 



IGGOCLBX 



IGGPDEDE 
IGGPGET 



IGGPDDEP 
IGGPDSTY 

IGGPDEF 

IGGPDSCB 

IGGPDSPF 

IGGPDBSF 

IGGPDALR 






£ Diagram EDI. DEFINE Cluster: Create a VSAM cluster 







1 . Build the cluster's AMDSB group occurrence 



2. Compute the amount of direct-access space 
required for the cluster 



3. Obtain contiguous free catalog records from the 
catalog and assign them to the cluster 




Build the cluster catalog record 



4. Initialize the cluster catalog record's header fields 



5. Build an association group occurrence to point to 
yy the data catalog record and, if the cluster is 
key- sequenced, the index catalog record 



6. Build the cluster's password group occurrence, if 
required 

7. Compute the cluster catalog record's size 



8. Obtain 512 bytes of virtual storage and save the 
cluster catalog record 



Do steps 9 through 23 to: 

^ • Build the data catalog record to describe the data 
^ set and its assigned space 



If the cluster is key-sequenced, build the index 
catalog to describe the data set's index and its 
assigned space 



(A J ^> 9. Initialize the catalog record's header fields 
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Diagram ED2. DEFINE Cluster: Create a VSAM cluster 
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space 
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CTGFLs 



Describe data set 
and index 
volume usage and 
serial numbers 
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Obtain direct-access space to satisfy the data set's 
or index's space allocation requirements 



10. 



Can the data set or index share its space with 
other VSAM data sets and indexes? 



Yes 



No (Unique data set) 



G>=c> 



* 



l£> 1 1 . Allocate a VSAM data space to 
the data set or index 



I \ 



See Diagram EG, DEFINE 
Space: Initialize a VSAM data 
space 



12. Allocate space to the data set or index from an 
existing VSAM data space 

See Diagram DJ, Suballocate: Obtain additional 
space from a nonunique VSAM data space 



£> 13. Build an extent descriptor that describes each 
extent allocated to the data set or index 



O 



14. If the data set is divided into key ranges, assign 
space to each of the data set's key ranges 



( I J tX 15. Assign candidate volumes to the data set or 
index, if required 

See Diagram DJ, Suballocate: Assign a candidate 
volume to the object 
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Diagram ED3. DEFINE Cluster: Create a VSAM cluster 
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group occurrence 
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CTGFLs 



Describe data set 
and index volume 
usage and serial 
numbers 



Build a volume information group occurrence to 
describe 
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16. All extents allocated to the data set or index on 
each volume 



17. All extents allocated to each of the data set's key 
ranges on each volume, if required 



J— -25 



CTGFLs 



Describe data set 
and index 
characteristics 
t 
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\ I Catalog management buffers 



Data catalog record 



Index catalog record 




O 



18. Each of the data set's or index's candidate 
volumes, if required 



•19. Is the 'sequence set with data' option specified? 

No Yes 



L » 




\ 



:T> 20. Assign part of each of the data 
set's extents to the sequence set 



21, Write the cluster catalog record into the catalog 

22. Put each volume information group occurrence 
into the data set or index catalog record 

See Diagram DL, Modify the catalog record 



2.3. Write the data or index catalog record into the 
catalog 

^> 24. Free the virtual storage of the work areas 
obtained by the Define routine 




Return 



CCACD1 

l[> l Return Code 1 



Notes for Diagram ED (part 1 of 2) 
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Description 

The AMDSB contains the clusters 
statistics and fixed characteristics. Each 
time the cluster is opened, the AMDSB is 
retrieved from the data catalog record. 
When the cluster is closed, the AMDSB is 
updated and rewritten into the data catalog 
record. 

The field vector table (CTGFV) contains 
addresses of buffer-size and record-length 
field parameter lists (CTGFLs). This data 
is used to determine the data set's 
control-interval and control-area size, if 
the data set is key-sequenced, other 
buffer-size and record-length CTGFLs 
determine the index's control-interval and 
control-area size. If the key-sequenced 
data set is divided into key ranges, the size 
of each key range is determined. If no 
errors are detected, then control is 
returned to IGGOCLAN. 

IGGOCLBY is called to perform space 
parameter calculations. 

A user's data set is described by a cluster 
catalog record, a data catalog record, and, 
if the data set is key-sequenced, an index 
catalog record. 

IGGOCLAG is called to get 
control-interval numbers assigned. 

For recoverable catalogs, the CRA volume 
has to be known. The cluster record is 
therefore saved until this volume is known. 



Module Procedure 

IGGOCLAN IGGPDSCB 11 
IGGPDRDA 



12 



IGGOCLBX IGGPDSPC 
IGGPDDCE 
1KQVDTPE 

IGGOCLBX IGGPDDCE 
IGGOCLAG IGGPGET 13 
IGGOCLAN IGGPDRDA 

14 



15 



IGGOCLBY IGGPDRSP 



16 



IGGOCLAN IGGPDCCE 



17 



IGGOCLAG IGGPAOCI 



IGGOCLAN IGGPDCCE 



IGGOCLAN IGGPDSCB 
IGGOCLAJ IGGPDBDI 1 8 
IGGPDSPO 



Description 

A data space entry is added to the volume 
catalog record, and the data set's name is 
added to the volume catalog record's data 
set directory. 

The data set's name is added to the 
volume catalog record's data set directory, 
and the volume catalog record's data space 
entry is updated to show the cylinders and 
tracks allocated to the new data set or 
index. 



Each key range is assigned physical space 
and space allocation continues for each 
range. 

A candidate volume is available to contain 
part of the cluster if more space is needed 
later. None of the candidate volume's 
space is allocated to the data set or index 
when the cluster is created. 

Each volume that contains a part of the 
data set or index is described by a volume 
information group occurrence within the 
data or index catalog record. 

If the data set is divided into key ranges, 
each key range's space on a volume is 
described in a separate volume information 
group occurrence. If the key range's space 
is on more than one volume, each volume 
that contains part of the key range's space 
is described in a separate volume 
information group occurrence. 

Construct the volume information group 
occurrence for all candidate volumes of 
the data set. 
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Description 

20 If the sequence set with data' (IMBED) 
option is specified, part of the data set's 
space is allocated to the index for 
sequence-set records. The low and high 
CCHH values in the index record's volume 
information group occurrence are those of 
the extent obtained for the data set. The 
low and high RBA values are for the 
sequence set and are relative to the index 
addresses. 

21 The module calls the clear buffer routine 
to write the cluster record into the catalog. 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 

22 The modify routine (IGGOCLAV) inserts 
each volume information group occurrence 
into the record. 
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23 A CM routine writes the completed data 

or index catalog record into the VS AM 
catalog and frees the CM buffer that 
contains the record. 
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1. Build the catalog's AMDSB 

2. Compute the amount of direct- access space 
required for the catalog 

3. If this is a user catalog, set a user catalog entry 
in the master catalog 

Build the catalog's cluster record (CI#2) 

4. Initialize the cluster record's header fields 



5. Build an association group occurence to point to 
the catalog's data catalog record (CI#0) and 
index catalog record (CI#1) 

6. Build the catalog's password group occurrence, if 
required 

7. Compute the cluster record's size 
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Initialize a VSAM data space 

See Diagram EG, DEFINE space: Initialize a 
VSAM data space 

Assign part of the catalog's space to each part of 
the catalog 

Build a volume information group occurrence to 
describe each part's assigned space (from step 9) 

Build the catalog records that describe the 
catalog as a key-sequenced data set with two key 
ranges 



Build the control blocks to allow the catalog to 
be opened and processed as a VSAM data set 

Open the catalog's ACB to allow catalog records 
to be written 

See Diagram BA, Open: Connect a user to a 
VSAM data set 
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Build and write true-name catalog records for the 
catalog DSNAME and the data space's volume 
serial number 

Close the catalog's ACB 

See Diagram I A, Close: Disconnect a user from a 
VSAM data set 

Delete the control blocks built in step 12 
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See Diagram BA, Open: Connect 
a user to a VSAM data set 
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Description Module Procedure 

The AMDSB contains the catalog's IGGOCLAP IGGPDCDA 1 1 

statistics and fixed characteristics. Each IGGPDCVS 

time the catalog is opened, the AMDSB is IKQVDTPE 

retrieved from the catalog's data catalog 

record (CI #0). When the catalog is 

closed, the AMDSB is updated and 

rewritten into the data catalog record. 

The field vector table (CTGFV) contains IGGOCLAP IGGPDCSP 

addresses of buffer-size and record-length 

CTGFLs. This data is used to determine 

the catalog's control-interval and 

control-area size, and the amount of space 

required for the catalog. 

User catalogs are internally identical to 
master catalogs. The only difference is 
that the master catalog contains an entry 
pointing to the user catalog. 

The cluster catalog contains an associated IGGOCLAN IGGPDCCE 

data set group occurrence to locate the 

catalog's data catalog record (CI #0) and 

an associated index group occurence to 

locate the catalog's index catalog record 

(CI#1). 

The VSAM catalog is always built in a IGGOCLAS IGGPDCSP 

data space that can contain other VSAM IGGOCLAQ IGGPDEFS 

data sets and indexes. A new data space is 
allocated to the VSAM routine, and the 
data space is assigned to the new data set. 

A data set directory entry containing the IGGOCLAS IGGPDCSP 

data set's DSNAME is added to the IGGOCLAR IGGPSALL 

volume catalog record. 

The catalog might contain records that IGGOCLAS IGGPDCLD 

describe the user's VSAM data sets, the 
user's nonVSAM data sets, and 
direct-access volumes. 



Description 

See 'Data Areas' for details about the first 
ten records in the catalog. These records 
define the catalog as a key-sequenced 
VSAM data set, describe the space 
allocated to the catalog's data records, 
index records, and true-name records, 
describe the free space within the catalog, 
and describe the allocated tracks on the 
catalog volume. 
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The define routine (IGGOCLAS) sets a return code 
in CCACD1 and returns to the caller whenever an 
error is detected. 
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Description 

The define nonVSAM routine transfers the 
nonVSAM catalog record from a CM 
buffer in virtual storage to the VSAM 
catalog specified by the caller's DEFINE 
command. 



Module 



Procedure 
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Control interval numbers are assigned for 
the nonVSAM data set. 

The 8-character device name is converted 
into a 4-character device code, using the 
device name table. 

1GG0CLAV is called to add volume 
occurrences. 
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If an error occurs during the define 
process, IGGOCLAN is called to back out 
any CI numbers assigned and any entries 
put into the VSAM catalog. 
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data space as a DOS/VS data set's space 

8. Is this an implicit DEFINE SPACE for a 
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Put the data set's DSNAME in 
the format- 1 DSCB 



10. Write the format- 1 DSCB into the volume's 
VTOC 

See Diagrams FB and FF, Allocate and read 
DSCBs 
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Write the volume catalog record into the catalog 
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Description 



If a volume catalog record exists for the 
volume and if the volume already contains 
a VSAM data space, a data space group 
occurrence is added to the volume catalog 
record to describe the new VSAM data 
space. 



If the volume is a candidate volume (one 
that is eligible to contain a VSAM data 
space, but doesn't as yet), the volume's 
format-4 (VTOC) DSCB is updated to 
show that the VSAM catalog is now the 
volume owner. 

See Data Areas' for details about the 
volume catalog record. 

The volume catalog record is identified by 
the volume's serial number. 

A VSAM data space assigned exclusively 
to one data set is described by a format- 1 
DSCB that contains the data set's 
DSNAME. If a data space can be assigned 
to more than one data set, its format- 1 
DSCB contains a DSNAME generated by 
the define space routine. 
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Description 

10 Prior to calling IKQALL00, IGGOCLAQ 
sets the address of the DADSM exit 
routine IKQDXT (located in IGGOCLAQ) 
into the DADSM parameter list. This 
routine is called by DADSM during space 
allocation to place the Access Method 
Services-specified secondary space quantity 
and an expiration date into those fields of 
the format- 1 DSCB before it is written 
into the VTOC. The secondary space 
quantity is for OS/VS compatibility only. 
This information is not used by DOS/VS. 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 

1 1 See Data Areas' for details about the data 
space entry. 



13 The volume catalog record contains the 

identifier of each data set that resides in 
part or full on the volume. 
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Note: Control is passed to the error handling routine 
(Step 22) whenever an error is detected. 
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Data catalog record 



Index catalog record 



17. All extents allocated to the data set or index on 
each volume 

18. All extents allocated to each of the data set's key 
ranges on each volume 

1 9. Each of the data sets or index's candidate 
volumes 



Cq\ >20. Is the 'sequence set with data' option specified? 

No Yes (IMBED) 

_l * 
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^>21. Assign part of each of the data 
set's extents to the sequence set 



(B ) ^ >22. Put each volume information group 

h ©^ 



occurrence 



into the data or index catalog record 

See Diagram DL1, Modify the catalog record 



C D JZH£>23. Write the data or index catalog record into the 
^-^ I catalog 

(Aj ^>?4 Free the unneeded virtual storage of the work 
areas obtained by the Define routine 

25. Was the data component processed? 

Yes No 
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Diagram EI4. DEFINE AIX: Create an alternate index 
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• 26. Is this AIX to belong to the upgrade set? 

Yes No ■■■■^Return 

27. Add the AIX to the upgrade set 

See Diagram ER. Modify upgrade set 
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information needed to build a path 

( A JZZZ^> 2. Retrieve the association group occurrences from 
^■^^ ■ the base cluster or AIX catalog record 

^> 3 . Check the supplied password against the password 
of the related object, if password protected 



4. Build the new path record and write it into the 
catalog 

5 . Insert a group occurrence for the path into the 
base cluster or AIX catalog record 



Return 
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Diagram EK1. ALTER: Modify a catalog record 
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Modify the catalog record's fields 
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original 
field 





Do steps 1 through 3 for each user-specified field: 

.. 1 . Locate the field's address and length 

See Diagram DK, Obtain a catalog record field's 
value 

2. Modify special fields: 

• Change a data set's DSNAME: do steps 5-9 

• Assign a candidate volume: do steps 10-12 

• Delete a candidate volume: do steps 13-14 

9 Change an AIX's attribute 

(UPGRADE/NOUPGRADE): See Diagram ER, 
Modify the upgrade set 



£> 3. Modify other catalog fields as specified, replacing 
the existing information with the updating 
information 

See Diagram DL, Modify a catalog record field's 
value 
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4. Rewrite the updated catalog record 
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Change a data set's DSNAME 



5. Search the VSAM catalog to ensure that the new 
name doesn't duplicate an existing name 

See Diagram DC 1, Search: Retrieve a catalog 
record 



Build a new true-name catalog record, write it 
into the VSAM catalog, and update the catalog's 
index, and CRA (if the catalog is recoverable). 




7. Is this a UNIQUE data set? 



No 



Yes 

I 



:£> 8. Update the data space's format- 1 
DSCB with the new DSNAME 
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See Diagram FC, Rename data 
set 



^>9. Remove the old true-name record from the 
catalog 
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Diagram EK3. ALTER: Modify a catalog record 
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VSAM catalog 



Assign candidate volumes to a data set 



Confirm that a volume catalog record exists to 
describe each candidate volume 

See Diagram DC, Search: Retrieve a catalog 
record 



J\l 1. Update each volume's catalog record to add the 
data catalog record identifier to the data set 
directory entries and update the CRA if the 
catalog is recoverable 
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Data 
record 

Volume 
record 



Update the data catalog records to add a volume 

information group occurrence to describe the 

candidate volume and update the CRA if the 

catalog is recoverable 

See Diagram DL, Modify a catalog record field's 

value 
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Remove candidate volume information from a data 
catalog record 
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Update each candidate volume's catalog record 
to delete the data catalog record's identifier from 
the data set directory entries and update the 
CRA if the catalog is recoverable 

Update the data catalog record to remove each 

candidate volume's volume information group 

occurrence and update the CRA if the catalog is 

recoverable 

See Diagram DL, Modify a catalog record field's 

value 
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Notes for Diagram EK 
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Description 

The ALTER command enables the user to modify 
some of the information he established when he 
created a VSAM data set. 

2 When the data set name or allocated 

candidate volumes are changed, other 
catalog records besides the data set catalog 
record must be updated. 



Module 



Procedure 



The catalog specified by the ALTER 
command's CATALOG parameter is 
examined. The new name to be added 
must not exist in the catalog. 



A new entry is placed in the high key 
range portion of the catalog. 

A determination must be made as to 
whether or not the data set is unique. 

All volumes that contain a format- 1 DSCB 
must have their names modified in the 
VTOC label. 

The name and control-interval number fields 
in the data set's true-name record are set to 
and the record identifier field of the catalog 
record pointed to by the true-name entry is 
settoCF". 
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Description 

IGGPALVA calls IGGPSALL 
(IGGOCLAR) to assign the candidate 
volume to the data set. If a volume 
catalog record does not exist for the 
candidate volume, the suballocate routine 
(IGGOCLAR) returns an error code. 

See Diagram DJ for details of the 
suballocate routine. 

The volume catalog record contains a data 
set directory that describes each VSAM 
data set's use of the volume's VSAM 
space. 



Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 
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Diagram ELI. LISTCAT: Retrieve a catalog record's contents 
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— -^1. Verify the user's authorization to read the catalog 
information requested 

_jj^ 2. Retrieve the catalog record specified by the caller 



See Diagram DC1, Search: Retrieve the base 
catalog record 

Did the caller supply the catalog's DSNAME? 

Yes No 
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Return the catalog's DSNAME 
caller 

5. Did the caller specify the L1STALL option? 

No Yes wamm^Cr) 

♦ — kj 

6. Search for, and retrieve the first record which 

a) is of the specified type, and 

b) satisfies the test byte (if specified) 



^> 7. Build the CTGFLs necessary to obtain the 
catalog record fields' values 



v>8. Obtain the catalog record fields' values that 
satisfy the caller's request 

See Diagram DK1, Obtain a catalog record 
field's value 
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Description 

The LISTCAT command allows the user to list all or 
a part of a VSAM catalog's contents. 

This routine, however, can return only information 
from one record (including extension records, if any 
are present) each time it is called. It is AMS's 
responsibility to specify the starting point for the 
search operation, so that records which have already 
been processed are not retrieved again. This applies 
regardless of whether LISTALL has been specified 
or only certain types of records are to be handled. 



1 



Module 



Procedure 



IGGOCLBQ IGGPLSTC 
IGGOCLBM IGGPCKAU 



The caller can request the information 
contained in a specific catalog record by 
providing the record's DSNAME (for a 
cluster, nonVSAM data set, or catalog) or 
volume serial number (for a volume). 

See DOS/VS : Access Method Services User's 
Guide, GC33-5382, for details about the 
ENTRIES parameter. 

The true-name catalog records contain the 
DSNAME of each cluster and nonVSAM 
data set described in the catalog. Each 
true-name record also contains the 
control-interval number of its associated 
catalog record. 
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Diagram EMI. DELETE: Remove a VSAM or non-VSAM data set 



Rii 

I tCCA 



CCA 



I tCTGPL U 



VSAM Catalog 



CT 



CTGPL 



Request 
options 



<- 



\> 



|\ 



\ 



Did the caller specify NONVSAM? 
No Yes 



I 



Yes 



See the notes A, B, and C for this diagram 
Check the object's expiration date 



DOS/VS COMREG 



I Date 
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12. Is the PURGE option specified by the user? 

Yes No 




I 



I 



ST 



3. Is the cluster's expiration date 
value less then the current time 
stamp value? 



LM 



No 



►Return 



4. Did the caller specify PATH? 

No 



I 



Yes 



See Diagram EP, DELETE PATH or AIX 
I ^5. Did the caller specify AIX? 



No 



Yes 



See Diagram EP. DELETE PATH or AIX 



6. Did the caller specify 'CLUSTER'? 

Yes No 



* 



Return 



ccAcni 



^> 1 Error code 1 



CCACD1 



*^s \ Error code 1 






- Diagram EM2. DELETE: Remove a VSAM or non-VSAM data set 
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VSAM catalog 




7. Is an upgrade set associated with this cluster? 

Yes No mm^^i 10 ] 

8. Remove the upgrade set association group 
occurrence from the cluster's data component 
record 

^> 9. Rewrite the upgrade set record into the catalog 
as a free record 

The following steps (10 to 26) are carried out for: 

a) each AIX (if any) related to the cluster 

b) the cluster itself 

10. is the object to be deleted in use (open)? 

No Yes ttMltl^ Return 

,1 1. Is any path defined over the cluster or AIX? 
Yes No ■■ ma ^Q 4 J 

I 

Do steps 1 2 and 1 3 for each path 



12. Remove the path association group occurrence 
from the cluster or AIX record 



J^> 13. Rewrite the path catalog record as a free catalog 
record and erase the path's true-name record 
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Diagram EM3. DELETE: Remove a VSAM or non-VSAM data set 
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Do steps 14 and 15 for the base cluster only 




r^>14. Is the ERASE option specified by the user? 




Yes 



15. Overwrite each record in the 
user's data set with Os 

See Diagrams BA and IA, Open 
and close data sets 
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records 
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Data set directory 
entry group occurrence 



Control interval 
number of the 
object's 
.catalog record . 
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Update the volume catalog records 



Do steps 16 through 26 to process each volume 
information group occurrence in the data and/or index 
catalog record: 

16. Retrieve the volume catalog record identified by [ 
an RBA or a key value 

See Diagram DC1. Search: Retrieve the base 
catalog record 

17. Delete the Data Set Directory group occurrence " 
identified by the data and/or index catalog 
record's control interval number 

See Diagram DL1, Modify a catalog record 
field's value 
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Volume catalog record 



"Deleted" flag ON in 
pointer to the data set 
directory group 
occurrence 






- Diagram EM4. DELETE: Remove a VSAM or non-VSAM data set 
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Update the Data Space Information in the Volume 
Catalog Record 



Do steps 1 8 through 25 to process each data space that 
contains part of the data set and/or index records on the 
volume identified in step 16. 

18. Retrieve the Data Space group occurrence 

19. Was this a UNIQUE data set? 



No 



Yes 



20. Delete the Data Space group 
occurrence 



21. Update the Data Space group occurrence to 
show one less data set 




Catalog management buffer 
updated volume catalog record 



Diagram EM5. DELETE: Remove a VSAM or non-VSAM data set 
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Describes the VSAM 
data space as a 
DOS/VS data set 
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Volume information 
group occurrence 
extent descriptors 
( 1 per extent in the 
volume) 



Sequence number 
of the data 
space group 



Starting CCHH 
address 



Ending CCHH 
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Release the Data Set's Space 



Do steps 22 through 25 to release all of the data set 
and/or index space on a VSAM volume: 

22. Was this a UNIQUE data set? 



Yes 



I 




23. Delete the VSAM data space 

See Diagram FD, Scratch DSCBs 

26) 



24. Build a list describing each of the data set's 
extents in the data space 

25. Modify the Space Map group occurrence based 
on each entry in the data set's extent list to 

• Update the space map to show the tracks 
allocated to the data set are now unallocated 



Update the 'tracks used' value 



26. Update the volume catalog record to show one 
less data set on the volume 

27. If the data component of a KSDS or of an AIX 
has just been processed, return to step 10 to 
process the index. 



VSAM-owned 
volume 




Catalog management buffer 



tS> Updated volume catalog record 






- Diagram EM6. DELETE: Remove a VSAM or non-VSAM data set 
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28. Rewrite the data and/or index catalog record 
into the catalog as a free catalog record 

29. Rewrite the cluster or AIX catalog record into 
the catalog as a free record 



r> 30. Erase the data set's and/or index's true-name 
catalog record 

31. Erase the cluster's or AIX's true-name catalog 
record 

32. Return 
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Notes for Diagram EM {Part 1 of 4) 



Description 

The DELETE command enables the user to remove 
from the catalog all information about a specified 
cluster or nonVSAM data set. 

1 The catalog record identifier is examined 
to determine the record type and verify 
that the contents of the parameter list field 
CTGTYPE are correct. 

For processing of a nonVSAM delete 
(CTGTYPE = A), see the additional notes 
A,B, and C following these Notes. 

2 If the user specified PURGE, the data 
set's expiration date is ignored. See 
DOS/VS Utilities: Access Method 
Services, GC33-5382, for details about the 
RETAIN and PURGE parameters. 

3 If the user who created the data set 
specified an expiration date, the data set 
cannot be deleted until after that date 
(unless the PURGE parameter is specified: 
see step 2). 

4 If the user wants to delete a path, control 
is transferred to the delete path driver. 



If the user wants to delete an alternate 
index, control is transferred to the delete 
AIX driver. 



Module 



Procedure 



IGGOCLBG IGGPDEL 
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IGGOCLBG 



IGGPDEL 
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IGGPDEL 

IGGPDELX 

IGGPDEL 

IGGPDEL 

IGGPDELX 

IGGPDEL 



Description 

The upgrade set is retrieved via the 
cluster's data record containing the 
upgrade set (Y) association. In order to 
avoid having to update the Y record each 
time an AIX related to this cluster is 
deleted, the Y record is deleted at this 
point. 



Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which deckle 
whether CRA updating is necessary for a 
given operation. 



Module 



Procedure 
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IGGOCLCX IGGPDELY 
IGGOCLBG IGGPDLCL 
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If the user wants to delete a cluster, 
control is transferred to the delete cluster 
driver. 
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Notes for Diagram EM (Part 2 of 4) 
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Description 

A delete request is rejected if the data set 
is open. The information indicating that a 
data set is open is kept in the 
Look-Aside-Table. 



Note: If the catalog is recoverable, the 
call to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1\ This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



for the cluster itself 
Module Procedure 



for each AIX related to the cluster: 
Module Procedure 
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Notes for Diagram EM (Part 3 of 4) 
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Description 

Each of the cluster data set's records is 
sequentially retrieved and overwritten with 
Os. 



Module Procedure Description 

IGGOCLBG IGGPDLDS 23 If the data or index space is unique, its 

IGGPERAS data space is also deleted. Before the data 

$$BOPEN space is deleted, the volume containing it 

IGGOCLBG IGGPERAS is mounted. 

$$BCLOSE 

IGGOCLBG IGGPERAS The v °l ume containing the data space is 

IGGPDLDS specified by the FILE parameter. 

The extents in the data space's format- 1 

IGGOCLBG IGGPDLDS DS CB and format-3 DSCB, if present, are 

IGGOCLAG IGGPGET scratched from the VTOC. 
IGGOCLBG IGGPDLDS 



Module 
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$$BOVS01 
IGG0CLA7 



IKQSCROO 
IGG0CLA7 



Procedure 

IGGPVMSC 
IGGPDVMV 

IGGPDVMV 
IGGPVMSC 
IGGPDUSC 

IGGPDUSC 
IGGPVMSC 
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18-21 



The volume catalog record also contains a 
data set directory group occurrence to 
describe each VSAM data set that is 
contained, partially or completely, on the 
volume. If the volume is a candidate 
volume for a data set or index, the data _ 
set or index is also described by a data set 
directory group occurrence. 



The volume catalog record contains a data 
space group occurrence to describe each 
VSAM data space on the volume. 
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Each entry in the list identifies one of the 
data set or index extents in one of the data 
spaces on the volume. 



Each of the data space's extents is 
described in the data space group 
occurrence. 



IGG0CLA7 

IGGOCLAZ 
IGG0CLA7 



IGG0CLA7 
IGGOCLBF 

IGGOCLAZ 
IGGOCLBF 



IGGOCLAV 
IGGOCLBF 
IGG0CLA7 



IGGPVMSC 

IGGPDEVG 

IGGPEXT 

IGGPDEVG 

IGGPVMSC 



IGGPVMSC 

IGGPSSCR 

IGGPESDG 

IGGPEXT 

IGGPSSCR 

IGGPSCAN 

IGGPMRLC 

IGGPMOD 

IGGPSSCR 

IGGPVMSC 



IGGOCLBG IGGPDLDS 






— Notes for Diagram EM (Part 4 of 4) 



Notes for non-VSAM DELETE: 



< 






< 
> 



Description 

28-31 The delete routines erase the data set's 

truename record and delete all references 
to the data set's DSNAME in the catalog's 
index. 



Module 

IGGOCLBG 
IGGOCLAN 

IGGOCLAG 

IGGOCLAN 

IGGOCLBG 



Procedure 

IGGPDLDS 

IGGPDUND 

IGGPDEUN 

IGGPGET 

IGGPDDE 

IGGPDEUN 

IGGPDUND 

IGGPDLDS 



Description 

For CTGTYPE = A, control is transferred 
to the delete Alien driver. 



The VTOC of the volume in which the 
nonVSAM resides is updated only if 
'scratch' is specified. 

(The volume information is extracted from 
the 'A' record. A check is done if the 
volume is mounted and the DSCB is 
scratched from the VTOC). 



(for nonVSAM) 

Module Procedure 



IGGOCLBG 



IGGOCLBG 

IGG0CLA7 

IGGOCLAZ 

IGG0CLA7 

IGGOCLBG 

IGG0CLA7 

$$BOVS01 

IGG0CLA7 

IGGOCLBG 

IGG0CLA7 

IKQSCROO 

IGG0CLA7 



IGGPDEL 

IGGPDELA 

IGGPDEL 



IGGPDELA 

IGGPDEMV 

IGGPEXT 

IGGDEMV 

IGGPDELA 

IGGPDVMV 

IGGPDVMV 
IGGPDELA 
IGGPDUSC 

IGGPDUSC 



The 'A' record is deleted from the catalog 



IGGOCLBG 
IGGOCLAN 
IGGOCLAG 
IGGOCLAN 
IGGOCLBG 



IGGPDELA 

IGGPDUND 

IGGPDDE 

IGGPDUND 

IGGPDELA 



Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



Diagram EN1. DELETE Space: Release all of the empty VSAM data space on a volume 



VSAM catalog 




=>0 



VTOC 



& 



& 



? 



* Diagrams EB, EO 



1. Confirm that the volume is mounted 
Check if the volume is to be freed 




2. Is the volume empty or is delete space to be 
forced? 



No 



Yes 



Release the VSAM data space 



Do steps 3 and 4 for each empty VSAM data space on 
the volume 



^>3. Delete the empty and nonunique data space entry 
from the volume catalog record 



;£> 4. Release the VSAM data space and make it 
available to the DOS/VS system 

See Diagram FD, Scratch DSCBs 



Update the volume catalog record 



C> 6. Update the time stamp in the volume catalog 
record 

7. Rewrite the updated volume catalog record into 
the VSAM catalog 



f 



\S 5. Update the time stamp in the volume's Format 4 
i DSCB (VTOC) 






F4DSCB 



Released 
VSAM 
data space 



o© 



VS AM Catalog 



425 5 A Wrong pack, 
mount nnnnnn" 




VTOC 



Return 






- Diagram EN2. DELETE Space: Release all of the empty VSAM data space on a volume 



< 



< 



< 

> 
2 



VSAM 
catalog 



8. Is the catalog recoverable? 

Yes No 

4 

9. Close the CRA 

10. Search for CAXWAs for this CRA in other 
partitions and mark them as deleted 

1 1 . Did the user specify 'force delete space'? 

Yes No 

4 

Update the data set catalog records 



[2. Is the 'force delete' specified for the catalog 
volume? 




No 



Yes 



Return 

£>13. Are any of the data sets on the volume in use? 

No Yes 

B OOnE^ Return 

14. Flag the catalog records of all data sets on this 
volume as unusable 

Q> 1 5. Scratch all VSAM DSCBs from the VTOC of the 

volume 

See Diagrams FD and FF, Read and scratch 
DSCBs 



© 



_j. CC ACPI 

-^ 1 Error code I 



^ CCACD1 

~^^> | Error code | 




VTOC 



Diagram EN3. DELETE Space: Release all of the empty VSAM data space on a volume 



VSAM catalog 




Delete the volume catalog record 

\^>\6. Rewrite the volume catalog record into the 
I VSAM catalog as a free catalog record 

w 17. Update the volume's format-4 (VTOC) DSCB to 
show no VSAM ownership of the volume 

See Diagrams FF and FG, Read and write 
DSCBs 



r 

Return 



VS AM Catalog 




VSAM data 
set's volume 




t^^r ^z^\ 


F4DSCB 




L 


^^^^ 






N> 






- Notes for Diagram EN (Part 1 of 2) 



< 

v 



v 



< 

V 

> 



Description 

The DELETE space command enables the user to 
release all VSAM data spaces on a specified volume. 

1 If the volume isn't already mounted and 

available for use, the DELETE space 
routine issues the appropriate mount 
message to the operator. 



A volume is empty when its volume 
catalog record contains no data set 
directory group occurrence (which 
normally describes data sets on the 
volume). 'Force' is an option the user may 
specify to delete a volume although there 
are still data sets on this volume. 

The volume catalog record contains a data 
space group occurrence to describe each 
VSAM data space on the volume. 



The DADSM routine IKQSCROO releases 
VSAM data space and makes its space 
available to other DOS/VS system users 

The time stamp in the VTOC is updated 
to indicate when the last change to the 
VTOC was made by VSAM 



Module 



IGGOCLBL 

$$BOVS01 
IGGOCLBL 
IKQVDTPE 

IGGOCLBL 

IGGOCLAZ 
IGGOCLBL 



IGGOCLBL 
IGGOCLAZ 
IGGOCLBL 
IGGOCLAV 
IGGOCLBL 
IGGOCLAV 



IGGOCLBL 
IKQSCROO 



IGGOCLBL 

1GG0CLBU 
IGGOCLBL 
IGGOCLBU 
IGGOCLBL 



Procedure 



IGGPDELS 
IGGPDLVM 

IGGPDLVM 



IGGPDELS 
IGGPDLVC 
IGGPEXT 
IGGPDLVC 

IGGPDELS 



IGGPDLCD 

IGGPEXT 

IGGPDLSH 

IGGPMOD 

IGGPDLSD 

IGGPMOD 



IGGPDLSC 



IGGPDELS 
IGGPDLTS 
IGGPF4RD 
IGGPDLTS 
IGGPF4WR 
IGGPDLTS 



Description 

Note: If the catalog is recoverable, the 
call to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 

If a volume owned by a recoverable 
catalog is to be freed, its CRA will be 
scratched. Care must thus be taken that 
no partitions will use this CRA again. 



By closing the CRA, all control blocks in 
the requesting partition will be freed. 



Module 



Partition 



10 The control blocks for the CRA are erased 

at the end of the current job (which issued 
the DELETE SPACE command). If, 
however, a job in another partition issues a 
DEFINE SPACE for the same volume 
before the end of the current job, the 
DEFINE SPACE routine must know that 
is has to build a new CRA. For this 
reason, the CRA's control blocks in all 
other partitions are marked invalid. 

13 As long as any of the data sets on the 

volume is in use, the forced delete space is 
rejected. 



IGGOCLBL IGGPDELS 
IGGOCLAG IGGPPUPC 
IGGOCLBL IGGPDELS 



IGGOCLBL IGGPDELS 



IGGOCLBL 

IGG0CLCO 
IGGOCLBL 
$$BCLOSE 
IGGOCLBL 

IGGOCLBL 
$$BCLCRA 
IGGOCLBL 
IGGOCLBL 



IGGOCLBL IGGPDELS 



IGGOCLBL 
IGGOCLCL 

IGGOCLAZ 
IGGOCLCL 
IGGOCLCX 
IGGOCLCL 



IGGPDELS 
IGGPDLCR 
IGGPSCAX 
IGGPDLCR 

IGGPDLCR 

IGGPDLCR 

IGGPDLCR 
IGGPDELS 



IGGPDELS 

IGGPDLSF 

IGGPDXDS 

IGGPEXT 

IGGPDLSF 

IGGPDELO 

IGGPDLSF 



Notes for Diagram EN (Part 2 of 2) 



14. 



15 



16 



17 



Description 

The catalog records of all data sets on the 
volume are flagged as unusable. Since 
their space will be partly or completely 
gone, they are thus marked to inhibit any 
open requests for output, and to warn 
CMS delete cluster. (CRA duplicates may 
be gone, volume occurrences may point to 
non-existing volumes.) 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 

The VTOC is scanned for VSAM DSCBs 
and all VSAM DSCBs are scratched thus 
returning all space occupied by VSAM to 
the VTOC. 






Reset the volume record and all its 
extension records so that it is available for 
future assignment. 



The format-4 DSCB is the first entry in a 
direct-access volume's VTOC. It contains 
the volume owner's identification and 
information on how the volume is used. 
Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



Module 

empty volume: force delete: 
IGGOCLCL 

IGGOCLAZ 
IGGOCLCL 
IGGOCLAG 
IGGOCLCL 
IGGOCLAG 
IGGOCLCL 

IGGOCLAV 
IGGOCLCL 



IGGOCLBL IGGOCLCL 
IGGOCLCL 
IKQVTCOO 
IGGOCLCL 
IKQRDSOO 
IGGOCLCL 
IKQSCROO 
IGGOCLCL 
IKQVTCOO 
IGGOCLCL 

IGGOCLCL 
IGGOCLBL 

IGGOCLBL 

IGGOCLAG 
IGGOCLBL 
IGGOCLAG 
IGGOCLBL 
IGGOCLBL 
IGGOCLBU 
IGGOCLBL 
IGGOCLBU 
IGGOCLBL 



Procedure 

empty volume: force delete: 
IGGPDLSF 
IGGPDXDS 
IGGPEXT 
IGGPDLSF 
IGGPGET 
IGGPDLSF 
IGGPPUPC 
IGGPDLSF 
IGGPDMDS 
IGGPMOD 
IGGPDLSF 



IGGPDELS IGGPDLS 
IGGPDVSC 

IGGPDVSC 

IGGPDVSC 

IGGPDVSC 

IGGPDVSC 

IGGPDSF 
IGGPDELS 

IGGPDELS 

IGGPDLET 

IGGPGET 

IGGPDLET 

IGGPPDEC 

IGGPDLET 

IGGPDLET 

IGGPF4RD 

IGGPDLET 

IGGPF4WR 

IGGPDLET 

IGGPDELS 



'- Diagram EOl. DELETE Catalog: Release a VSAM catalog 



< 

V 



V 

< 



< 

> 



DOS/VS Supervisor 



CQMREG 



fANCHT 



User's partition 



j r ANCHT 
tAMCBS 1 



■ fAMCRS 
tCAXWAS 



¥ CAXWAs 



^Tr ue-name reco rjs-^ 

For catalog's 
DSNAME 



For catalog volume's 
serial number 



ACB 



Control blocks 
that describe 
the VSAM 
catalog 
as a data set 



^ 



1 . Is the catalog in use? 
to Yes 



No 



r 2. Is the catalog empty? 



Yes 



No 



Return 



Return 



Release a catalog's data spaces 



^3. Release all empty data spaces 



See Diagram EN1, Delete Space: Release all of 
the empty data spaces on a volume 



Delete the VSAM catalog 



4. Which type of catalog is specified in the AMS 
DELETE command? 

Master < 
Usercatalog catalog 

5. Delete the user catalog entry ('U' record) in the 
master catalog 

6. Close the catalog and scratch its DSCB(s) 
See Diagram IA, Close data set 

See Diagram FD, Scratch DSCBs 



^>7. Release all control blocks that allow catalog 
I records to be processed 



Return 




Volume that 
contained the 
VSAM catalog 



O 



Free space 



Master catalog 



:> 



S> 





Closed 
ACB 












Released 

control 

blocks 

(free 

virtual 

storage) 



























, CCACD1 
Z^> \ Return code 



Notes for Diagram EO 



Description 

The DELETE catalog command enables the user to 
release a catalog's space and make it available to 
other DOS/VS system users. The catalog must be 
empty or the request is rejected. 

1 IKQLASMD is called to determine if the 
catalog is in use by some other task. 

2 If the catalog contains more than two 
true-name records, it is not empty and 
cannot be deleted. 

3 The volume catalog record contains an 
entry for each VSAM data space allocated 
on the volume. Each entry contains the 
data necessary to free the data space. 

4 One of these types must be specified for a 
DELETE CATALOG operation. 

5 Each user catalog has an entry in the 
master catalog. 



Module Procedure 



IKQLASMD 



IGGOGLAF IGGPDELC 



IGGOCLAF IGGPSDSP 



Description 

The communications region (COMREG) 
points to the ANCHT which points to the 
AMCBS. The AMCBS points to the 
control blocks that describe the VSAM 
catalog to the DOS/VS system. 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CPA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



Module 

IGGOCLAF 
IGGOCLAL 
IGGOCLAF 
IGGOCLAG 
IGGOCLAF 
IGGOCLAG 
IGGOCLAF 
IKQVDTPE 
IGGOCLAF 
IGGOCLAZ 
IGGOCLAF 
$$BCLOSE 
IGGOCLAF 

IKOSCR00 

IGGOCLAF 

IGGOCLBU 

IGGOCLAF 

$$BOVS01 

IGGOCLAF 

IGGOCLBU 



Procedure 

IGGPDELC 

IGGPDBVC 

IGGPDELC 

IGGPPDE 

IGGPDELC 

1GGPGET 

IGGPDELC 

IGGPDELC 

IGGPEXT 

IGGPDELC 

IGGPDELC 
IGGPSDSP 

IGGPDELC 
IGGPF4RD 
IGGPDELC 

IGGPDELC 
IGGPF4WR 



N> 






- Diagram EP1. DELETE AIX or Path: Release an alternate index or a VSAM path 



< 



< 



< 
in 
> 



R1I 



fCCA 



CCA 



I tCTGPL k - 



CTGPL 



Request 
options 



VSAM Catalog 



Path catalog 
record 

Path's true-name 
catalog record 



I 



* Diagrams EB,EM 



>l. Did the caller specify 'PATH'? 

, No Yes 

Delete a VSAM AIX 



2. Is the data set to be deleted in use (open)? 
No Yes 



Return _ 
to caller- 



3. Is the AIX a member, of an upgrade set for the 
base cluster? 



Yes 



No 



4. Remove the AIX from the upgrade set 
See Diagram ER, Modify the upgrade set 

5. Are there any paths defined over the AIX? 

'es No 



f 



Delete all paths over the AIX 



Do steps 6 and 7 for each path 

6. Remove the path association from the AIX 
catalog record 



^>7. Rewrite the path catalog record as a free catalog 
record and erase the path's true-name catalog 
record 



* 



© 



CCACD1 

I^> I Error code I 



S> 



VSAM Catalog 



Free catalog 
record 



Erased true- 
name record 



Diagram EP2. DELETE AlXorPath: Release an altenate index or a VSAM path 



VSAM catalog 



Base cluster 
catalog record 

AIX's data 
or index 
catalog record 



Volume 
catalog 
record 



CTGPL 




Request 
options 






Delete a VSAM AIX (continued) 



tData catalog record 



t Index catalog record 



^9 



Volume information 
group occurrence 



Data set directory 
entry group occurrence 



Control interval 
number of the 
object's 
catalog record 



Remove the AIX association from the base 
cluster catalog record 

Is the ERASE option specified by the user? 

No wmmm^L 1 1 




I 



10. Overwrite each record in the user's data set with 
0s 

See Diagram BA and I A, Open and close data 
sets 



Update the volume catalog records 



Do steps 1 1 through 2 1 to process each volume 
information group occurrence in the data and index 
catalog records of the AIX: 






Retrieve the volume catalog record identified by 
an RBA or a key value 

See Diagram DC1. Search: Retrieve the base 
catalog record 



^> 1 2. Delete the Data Set Directory group occurrence 
identified by the data and/or index catalog 
record's control interval number 

See Diagram DLL Modify a catalog record 
field's value 



VSAM catalog 



:> 



Modified base 

cluster catalog 

record 



:0 



Data set's 
records 
set to 



CCA 



t Buffer 



=0 



1 J Catalog management buffer 



Volume catalog record 




"Deleted" flag ON in 
pointer to the data set 
directory group 
occurrence 






- Diagram EP3. DELETE AIX or Path: Release an alternate index or a VSAM path 



< 



n 
ji 



< 

> 

2 



Catalog 

management 

buffer 



Volume 
catalog 
record 



VTOC 



Catalog 

management 

buffer 



Data, or index 
catalog record 



Data space group 

occurrence 

(1 per data space) 



"Unique" flag 



Number of VSAM 
objects in the 
data space 




Update the Data Space Information in the Volume 
Catalog Record 




Do steps 13 through 20 to process each data space that 
contains part of the data set and index records on the 
volume identified in step 13: 



13. Retrieve the Data Space group occurrence 



4. Did the AIX have the UNIQUE attribute? 



/ 



/ 



/ 



/ 



Yes 



No 



15. Delete the Data Space group occurrence 



:> 



Describes the VSAM 
data space as a 
DOS/ VS data set 



Volume information 
group occurrence 
extent descriptors 
(1 per extent in the 
volume) 



Sequence number 

of the data 

space group 



Starting CCHH 
address 



Ending CCHH 
address 




16. Update the Data Space group occurrence to 
show one less data set 



t 



Release the Data Set's Space 



Do steps 1 7 though 20 to release all of the data set 
and/or index space on a VSAM volume: 

17. Did the AIX have the UNIQUE attribute? 

Yes No 



18. Delete the VSAM data space 



I I See Diagram FD, Scratch DSCBs 

^>\9. Build a list describing each of the data set's 
extents in the data space 






=CS^> 



Catalog management buffer 



Updated volume catalog record 



^>© 



Volume containing 
the object's records 



:> 



Released VSAM 
data space 



Diagram EP4. DELETE ADC or Path: Release an alternate index or a VS AM path 



Catalog management 
buffer 



Volume 
catalog 
record 



Number of tracks 
allocated to 
VSAM objects 



VSAM catalog 



Release the Data Set's Space (continued) 

^sj : — : — 1 

^>20. Modify the Space Map group occurrence based — 
on each entry in the data set's extent list to 

• Update the space map to show the tracks 
allocated to the data set are now unallocated 

» Update the 'tracks used' value 




21. Update the volume catalog record to show one 
less data set on the volume 

Do steps 22 and 23 for the AIX's data, index, and AIX 
catalog records 

^>22. Rewrite the catalog record into the catalog as a 
free catalog record 



23. Erase the corresponding true-name catalog record - 

■■■■^ Return 
Delete a path 



24. Get the path's base (cluster or A1X) record 

f^>25. Remove the path association from this record 

^> 26. Rewrite the path record as a free record 

27. Erase the path's true-name catalog record 



f 



Return 



Volume containing 
the objects records' 



o> 



Available space in a 
nonunique data space 




Erased true-name 
r>|record 



VSAM catalog 



C> 



C> 



=> 



Modified 
base record 



Free catalog 
record 

Erased true-name 
record 






~ Notes for Diagram EP (Part 1 of 3) 



< 






Description 

The DELETE command enables the user to remove 
from the catalog all information about a specified 
AIX or path. 

I If the user wants to delete a path, control 

is transferred to the delete path driver 



A delete request is rejected if the data set 
is open. The information whether a data 
set is open is kept in the look-aside table. 



3-4 The upgrade set is retrieved via the AIXs 

base cluster data component containing the 
upgrade set association. In case this AIX 
is the last member in the upgrade set, the 
upgrade set and its association are deleted. 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit T^it) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



Module 



IGGOCLBG 
IGGOCLCX 
IGGOCLBG 



IGGOCLCX 
IGGOCLCX 
IKQLASMD 
IGGOCLCX 
IGGOCLCX 

IGGOCLCX 
IGGOCLAG 

IGGOCLCX 
IGGOCLAZ 
IGGOCLCX 
IGGOCLCD 
IGGOCLAG 
IGGOCLCD 
IGGOCLAZ 
IGGOCLCD 
IGGOCLAG 
IGGOCLCD 

IGGOCLAV 
IGGOCLCD 
IGGOCLAG 

IGGOCLCD 
IGGOCLAV 



Procedure 



IGGPDEL 

IGGPDELP 

IGGPDEL 



IGGPDELX 
IGGPDELO 

IGGPDELO 
IGGPDELX 

IGGPDELX 
IGGPGET 

IGGPDELX 

IGGPEXT 

IGGPDELX 

IGGPUPG 

IGGPGET 

IGGPUPG 

IGGPEXT 

IGGPUPG 

IGGPGET 

IGGPUPG 

IGGPMOD 

IGGPUPG 

IGGPPDEC 

IGGPUPG 
IGGPMOD 



Description 



10 



The path association is removed from its 
AIX before the path is actually deleted. 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



The AIX association is removed from its 
base cluster before the AIX is actually 
deleted. 



Each of the cluster data set's records is 
sequentially retrieved and overwritten with 
Os. 



Module 

IGGOCLCX 
IGGOCLAZ 
IGGOCLCX 



IGGOCLCX 
IGGOCLAV 
IGGOCLCX 
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IGGOCLCX 
IGGOCLAG 
IGGOCLCX 

IGGOCLCX 
IGGOCLAV 
IGGOCLCX 

IGGOCLBG 

$$BOPEN 
IGGOCLBG 
$$BCLOSE 
IGGOCLBG 



IGGOCLBG 
IGGOCLAG 
IGGOCLBG 



Procedure 

IGGPDELX 

IGGPEXT 

IGGPDELX 



IGGPDPTH 
IGGPMOD 
IGGPDPTH 



IGGPDPTH 

IGGPPDE 

IGGPDPTH 

IGGPDELX 
IGGPMOD 
IGGPDELX 



IGGPDLDS 
IGGPERAS 

IGGPERAS 

IGGPERAS 
IGGPDLDS 

IGGPDLDS 

IGGPGET 

IGGPDLDS 



Notes for Diagram EP (Part 2 of 3) 
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13-16 



Description 

The volume catalog record also contains a 
data set directory group occurrence to 
describe each VSAM data set that is 
contained, partially or completely, on the 
volume. If the volume is a candidate 
volume for a data set or index, the data 
set or index is also described by a data set 
directory group occurrence. 



The volume catalog record contains a data 
space group occurrence to describe each 
VSAM data space on the volume. 



Module 

IGGOCLBG 
IGG0CLA7 

IGGOCLAZ 
1GG0CLA7 



IGGOCLAZ 
1GG0CLA7 
IGGOCLAV 
1GG0CLA7 



1GG0CLA7 

IGGOCLAZ 
IGG0CLA7 
IGGOCLAV 
IGG0CLA7 



Procedure 

IGGPDLDS 

IGGPVMSC 

IGGPDEMV 

IGGPEXT 

IGGPDEMV 

IGGPVMSC 

1GGPDEDD 

IGGPEXT 

IGGPDEDD 

IGGPMOD 

IGGPDEDD 

IGGPVMSC 

IGGPVMSC 

IGGPDESH 

IGGPEXT 

IGGPDESH 

IGGPMOD 

IGGPDESH 

IGGPVMSC 



19 



20 



Description 

Each entry in the list identifies one of the 
data set or index extents in one of the data 
spaces on the volume. 



Each of the data space's extents is 
described in the data space group 
occurrence. 



21 



Module 

IGG0CLA7 

IGGOCLAZ 
IGG0CLA7 



IGG0CLA7 
IGGOCLBF 

IGGOCLAZ 
IGGOCLBF 



rGGOCLAV 
IGGOCLBF 
IGG0CLA7 



IGGOCLBG 



Procedure 

IGGPVMSC 

IGGPDEVG 

IGGPEXT 

IGGPDEVG 

IGGPVMSC 



IGGPVMSC 

IGGPSSCR 

IGGPESDG 

IGGPEXT 

IGGPSSCR 

IGGPSCAN 

IGGPMRLC 

IGGPMOD 

IGGPSSCR 

IGGPVMSC 



IGGPDLDS 



18 If the data set or index space is unique, its 

data space is also deleted. Before the data 
space is deleted, the volume containing it 
is mounted. 

The volume containing the data space is 
specified by the FILE parameter. 

The extents in the data space's format- 1 
(identifier) DSCB and format-3 
(extension) DSCB are scratched from the 
VTOC. 



IGG0CLA7 

$$BOVS0l 
IGG0CLA7 



IKOSCR00 
IGG0CLA7 



IGGPVMSC 
IGGPDVMV 

IGGPDVMV 
IGGPVMSC 
IGGPDUSC 



IGGPDUSC 
IGGPVMSC 



22-23 The delete routine erase the data set's 

true-name record and delete all references 
to the data set's DSNAME in the catalog's 
index. 

Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to T. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
given operation. 



IGGOCLBG 
IGGOCLAN 

IGGOCLAG 

IGGOCLAN 
IGGOCLBG 



IGGPDLDS 

IGGPDUND 

IGGPDEUN 

IGGPGET 

1GGPDDE 

IGGPDEUN 

IGGPDLDS 



a* 



:3 Notes for Diagram EP (Part 3 of 3) 



< 



'v: 

< 



Description 

24 The base cluster or AIX association is 

extracted from the path and the base 
record is read. 



Module 

IGGOCLCX 
IGGOCLAZ 
IGGOCLCX 
IGGOCLAG 
IGGOCLCX 



Procedure 

IGGPDELP 

IGGPEXT 

IGGPDELP 

IGGPGET 

IGGPDELP 



< 

> 

2 



25 



IGGOCLCX 
IGGOCLAV 
IGGOCLCX 



IGGPDELP 
IGGPMOD 
IGGPDELP 



26-27 Note: If the catalog is recoverable, the call 
to IGGOCLAG will result in a CRA 
update unless bit CCARPUT (the update 
inhibit bit) is set to '1'. This bit is set in 
the calling procedures, which decide 
whether CRA updating is necessary for a 
. given operation. 



IGGOCLCX 
IGGOCLAG 
IGGOCLCX 



IGGPDELP 

IGGPPDE 

IGGPDELP 



Diagram ER1. Modify the upgrade set 




I 



* From Diagrams 
ELEK 



1. Is an AIX to be added to the upgrade set? 
Yes No ^^^^(8 



Add an AIX 



2. Is an upgrade set already defined for the base 
cluster? 



No 



Yes 



3. Obtain a free record and assign it to the upgrade 
set 

4. Build an association group occurrence to point to 
the data and index records of the AIX 

5. Write the new catalog record 

£> 6. Modify the data record of the base cluster by 
adding an association group occurrence for the 
upgrade set record 



Return 



ii 



7. Modify the upgrade set record by adding 

association group occurrences for the data and 
index of the AIX ^ 

Return 



VSAM catalog 



O 



C> 



New upgrade 
set record 



Z^> Modified data 
record of 
base cluster 



Modified 
upgrade set 
record 



Module 
Procedure 



IGGOCLCA 
IGGPAIX 



IGGOCLCD 
IGGPUPD 



IGGPNUPG 



IGGOCLAV 
IGGPMOD 



-J 



£ Diagram ER2. Modify the upgrade set 






< 



< 



< 

> 



VSAM catalog 



Upgrade set 
record 



Data record 

of 
base cluster 




Remove an AIX 



-as- 8. Are the last remaining members of the upgrade 

set to be removed? 



& 



Yes 



No 



3 



9. Rewrite the upgrade set record as a free record 



£>1(X Modify the data records for the base cluster by Z 
removing the association group occurrence for 
the upgrade set record 

Return 



^> 1 1 . Modify the upgrade set record by removing the 

association group occurrences for the data and 

index of the AIX _ 

Return 



VSAM catalog 



O 



=D> 



C> 



Free catalog 
record 



Modified 
data record 



Modified 
upgrade set 
record 



IGGOCLCD 
IGGPUPG 



IGGOCLAG 
IGGPPDE 
IGGOCLAV 
IGGPMOD 



Diagram ESI. SHOWCAT: Display catalog information 






Rl 



f Parameter list 



Label cylinder 



DLBL record 



User-issued 
SHOWCAT 
macro 



I 



1. Obtain virtual storage for CTGPL, CTGFL, and 
work aiea 



.2. Is a DDNAME specified? 

Yes No 



I 



3. Build a parameter list for label cylinder search 
^> 4. Retrieve label cylinder information 



5. Return code 0? 

Yes No 



» 




l£> 6. Save DSNAME and pointer to DSNAME and 
I free virtual storage obtained by IKQLAB. 



■^ 7. Build a CTGPL for the catalog LOCATE 
function 



Build CTGFLs to retrieve basic information 
(entry type, control interval number, and catalog 
ACB) 




Parameter list 



tDDNAME 




tDSNAME 






tGETVIS area 


\l DLBL record 








SHOWCAT work area 






DSNAME 










IKQSCAT 



IKQLAB 









Diagram ES2. SHOWCAT: Display catalog information 



< 



< 



< 

VI 

> 



Catalog 




9. Retrieve the catalog information 

See Diagram DB1, LOCATE: Retrieve catalog 
information 



FPLs 




R15 



SHOWCAT 

Return Area 



SHOWCAT 

Return Area 



-| . — — >10. Return code 0? 

Yes No 



\ 




-11. Is this a valid entry type? 

Yes No 



I 



Return 



^ 



\ 



\ 



\ 



\ 



12. Move the retrieved data into the user's return 
area 

13. Is this a data or index catalog record? 

Yes No 



* 



14. Build a CTGFL to retrieve AMDSB information 



•\ 



"© 



Catalog 



15. Is this an alternate index or path catalog record? 
Yes No •■■■^(20 



\ 



16. Build a CTGFL to retrieve AIX or path 
attributes 



~Z^> 17. Retrieve the catalog information 



See Diagram DB1, LOCATE: Retrieve catalog 
information 



Rl 



R15 
=T> l--x?20' I 



Parameter list 




Diagram ES3. SHOWCAT: Display catalog information 



R15 



Return Area 



1 - -ds* 18. Return code 0? 

Yes No 



4 



OE*© 



l£> 19. Move retrieved data to user's return area 



Catalog 



20. Build a CTGFL to retrieve the association group 
occurrences 



Z^> 21. Retrieve the catalog information 



R15 






See Diagram DB1, LOCATE: Retrieve catalog 
information 



>22. Return code or 4? 

Yes No 



i 



™c^@ 



23. Complete the entries in the user's return area 



24. Free the virtual storage for work area and 
control blocks 



© 



► Return 



Parameter list 




—a 



- Diagram ES4. SHOWCAT: Display catalog information 



R15 



< 



< 



< 

> 

2 



CTGPL 



CTGFBFLG 



CTGFDBK 



,.;-5> 25. Interpret the VSAM error code and set 

equivalent SHOWCAT error code 




l£> 26. Move VSAM error code, reason code, and 
module name into user's return area 



27. Free the virtual storage for work area and 
control blocks 



l- 

Return 



C>c 



R15 



=> 



User 
return area 



Notes for Diagram ES 

Description 

I 256 bytes of virtual storage are needed. 

8 If the CI number was specified, the 

contents of catalog fields ENTYPE and 
CATACB are retrieved. If the true name 
was specified, the field DSTYPN AM must 
be retrieved instead of ENTYPE, in order 
to find the CI number. 

I I Only the following catalog record types 
may be retrieved with the SHOWCAT 
macro: 

Cluster 

Data 

Index 

Alternate index 

Path 

Upgrade set 

22 Return code 4 indicates that the return 
area was too small to accept all group 
occurrences; the information retrieved (as 
much as would fit in the return area) is 
passed to the user. 

23 Information saved before the LOCATE is 
restored and the length counts are 
updated. 



to 

2 






- Diagram FA1. DADSM contents 



< 

VI 



VI 



< 

VI 

> 





Direct or 
indirect (via 
another DADSM 
module) call 
from catalog 
modules 






See Diagrams 
D-E 






























































Allocate 
data spaces 




Rename 
data set 




Scratch 
DSCBs 




Build 
DSCBs 




Read 
DSCBs 




Write 
DSCBs 




Check for 

overlapping 

extents 




Open and 
close VTOC 


See Diagram FB 


See Diagram FC 


See Diagram FD 


See Diagram FE 


See Diagram FF 


See Diagram FG 


See Diagram FH 


See Diagram FI 



Diagram FBI. Allocate data spaces 



Rl 



2 



Parameter list 



DADSVTOP 



tT,ahd record 



DAnTKTRT 



- =»» 1 . Obtain virtual storage for work area and store 
pointer to work area in parameter list 

*2. Open the VTOC 

See Diagram FI, Open and close VTOC 

"^ 3. Does the flag indicate a valid parameter list 

pointer to the label cylinder record for the data 
set needed? 



Yes 



Label cylinder record 



LABEXN 




4. Read the label cylinder record 
and set the flag 



»5. Have extents been provided? 
Yes No 



\ 



Return- 



R15 



Return code | — — 



^>6. Read the F4 DSCB 

See Diagram FF, Read DSCBs 

—^7. Does the return code indicate volume not 
mounted? 



No 

I 

© 



Yes 

* 

8. Mount volume 



.0 



=> 



Parameter list 



=0 



tWork area 



DADLKLBL 



iQ l 40- 



Work area 



£> 






3C 



Diagram ¥%Z. AH®cate data spaces 



< 

*S1 



< 



< 

> 



Work area 



£ 




9. Write F4 DSCB with DADSM flag on 
See Diagram FG, Write DSCBs 

10. Build new DSCB and write it into VTOC 
See Diagram FE, Build DSCBs 



£>11. Read F4 DSCB 

See Diagram FF, Read DSCBs 



P> 12. Write F4 DSCB with DADSM flag off 
See Diagram FG, Write DSCBs 

13. Close VTOC 

See Diagram FI, Open and close VTOC 



r 

Return 




(£>=> 



Notes for Diagram FB 



10 



11,12 



13 



Description 



A JIB must be built if the file protect 
feature is present. 



The F4 DSCB is needed to obtain device 
information. 



The F4 DSCB must be flagged while the 
DADSM routines are using the VTOC. 

After the new DSCB is built, the 
DADSEXIT field in the DADSM 
parameter list is checked. If this field 
contains an address of a DADSM exit 
routine, that exit is taken. See Notes for 
Diagram EG for an explanation of 
IKQDXT processing. 

The DADSM flag bit is turned off in the 
F4 DSCB. 



Module 

IKQALL00 
IKQVTC00 

IKQLAB 
IKQRDS00 

$$BOVS01 
IKQWDS00 

IKQPOP00 



Note: 

The DADSM flag referenced is this diagram is bit 

5 in byte 59 (decimal) of the F4 DSCR. 



IKQRDSOO 
IKQWDSOO 

IKQVTCOO 



c. 






- Diagram FC1. Rename unique data set 



< 



< 



< 
> 



Rl 



Parameter list 



DADSVTOP 



VTOC 



R15 



Work area 



Parameter list 



DADSPROT 



Fj 




© 



Return code 



©= 



0= 



^ 1 . Obtain virtual storage for work area and store 
pointer to work area in parameter list 

2. Open the VTOC 

See Diagram FL Open and close VTOC 



l£> 3. Read F4 DSCB into work area 
I See Diagram FF. Read DSCBs 



V 



4. Does code indicate successful read? 



No 



Yes I 



5. Does code indicate volume not mounted? 
Yes No 

I ■■^^^■^^ Return 

6. Mount volume HO^^Hfe- M ij 



£> 7. Write F4 DSCB from work area into VTOC with 
DADSM flag on 
See Diagram FG. Write DSCBs 



£> 8. Read Fl DSCB for old data set name 
See Diagram FF. Read DSCBs 



h 9. If security bypass bit is on, move new data set 
name into work area 



l£>10. Read Fl DSCB for new data set name 
I See Diagram FF. Read DSCBs 



% 



i>© 



o® 



o© 



Parameter list 



!^> tWork area 



£> 



\ j Work area 



V 



C>n 



R15 




Label or 
module 

IKQRENOO 



IKQVTCOO 



IKQRDSOO 



$$BOVS01 
IKQWDSOO 

GETTER 
GETTER 



Diagram FC2. Rename unique data set 



K> 




1 1 . Does return code indicate 'DSCB not found' 
(code 44)? 



Yes 



I 



No I 



►Return 



In this case 
not an error 



12. Write new Fl DSCB 

See Diagram FG. Write DSCBs 



-=> 13. Reread F4 DSCB 



See Diagram FF. Read DSCBs 

14. Rewrite F4 DSCB with the DADSM flag off 
See Diagram FG. Write DSCBs 



15. Close the VTOC 

See Diagram FI. Open and close VTOC 



r 

Return 







— Notes for Diagram FC 






< 

IT. 



< 



< 

> 

2 



10 

11 

12 
13 : 
15 



Description 



A JIB must be built if the file protect 
feature is present. 

The F4 DSCB is needed for device 
information. 



The F4 DSCB must be flagged while 
DADSM routines are using the VTOC. 

Fetch the Fl DSCB corresponding to the 
old data set name. 

Try to find Fl DSCB for new data set 
name (check for duplicate name already in 
VTOC). 

'DSCB not found' indicates no duplicate 
name found. 



Module 

IKQREN00 

IKQVTC00 

IKQRDS00 

$$BOVS01 
IKQWDS00 

IKQRDSOO 

IKQRDSOO 



Note: 

The DADSM flag referenced in this diagram is bit 
5 in byte 59 (decimal) of the F4 DSCB. 



14 The DADSM flag must now be turned off. 
Any JIB(s) built in step 2 must be freed. 



IKQWDSOO 

IKQRDSOO 
IKQWDSOO 
IKQVTCOO 



Diagram FD1. Scratch DSCBs 




- 1. Obtain virtual storage for work area or use user's 
work area, at user's option 

2. Open the VTOC 

See Diagram FI. Open and close VTOC 

£> 3. Read F4 DSCB into work area 
See Diagram FF. Read DSCBs 

4. Does code indicate successful read? 



B 



Return code r ^C . 



No 



Yes 



Work area 



Parameter list 



DADSPROT 



F1SEC 



5. Does code indicate volume not mounted? 

Yes No 



6. Mount volume 

7. Set DADSM flag on 



Return 



& 



£> 8. Write F4 DSCB back into VTOC 
See Diagram FG, Write DSCBs 



T 



9. Read the Fl DSCB 

See Diagram FF. Read DSCBs 



— 10. Is protect bit off, or did caller specify that the 

DSCB be erased even if protect bit is on? 



Yes 



No 



OCCp Return- 



Work area 



:>C 




Rli. 



lf> l Error Code 63 I (x'3F') 
(Security violation) 



Label or 
module 

IKQSCR00 
GETVIS 



IKQVTC00 



IKQRDS00 



FREE 



$$BOVS01 



IKQWDS00 



IKQRDS00 






- Diagram FD2. Scratch DSCBs 



< 






< 

> 

2 



Work area 





& 



;£> 11. Erase the Fl and all associated F3 DSCBs from 
this volume 
See Diagram FG. Write DSCBs 

^ 12. ReadF4 DSCB 

v> See Diagram FF, Read DSCBs 

13. Reset DADSM flag 



£> 14. Write F4 DSCB back into VTOC 
See Diagram FG, Write DSCBs 

15. Close VTOC 

See Diagram FI. Open and close VTOC 



Return 




Label or 
module 

IKQWDSOO 



IKQRDSOO 



IKQWDSOO 



IKQVTCOO 



Note: 

The DADSM flag referenced in this diagram is bit 

5 of byte 59 (decimal) of the F4 DSCB. 



Diagram FE1. Build DSCBs 



Parameter list 



Rl 



<j> 






\ 



"1. Calculate size of storage required to build 

DSCBs, obtain virtual storage for a work area, 
and store pointer to work area in parameter list 



\ 



\ 1^2. Build Fl and F3 DSCBs 

3. Has caller provided an exit address to enable Fl 
DSCB to be modified? 



Rl 

I tFlDSCB I 



Work area 



No Yes 

I ♦ 

-§-^4. Calk 



Caller may modify Fl DSCB 



•5. Write new Fl DSCB 

See Diagram FG. Write DSCBs 

.6. Does code indicate successful write? 



s 



y 



R15 s 

1 Return code \ t- 



No 

I 



Yes 



►Return 



7. Return uncorrectable error codes (4, 12, 16, 20, 
32, 36, 56, 64) to caller OEmj^Return 

fc 8. Does error return indicate volume not mounted? 
Yes No ■■^(14) 



I 



9. Mount volume 



® 



3C 

^1 



Parameter lj& 




<^=© 



Label or 
module 



IKQPOP00 

INIT 

DSCBUILD 



IKQWDS00 



CHECKERR 



$$BOVS01 



- Diagram FE2. Build DSCBs 



R15 



< 



< 



< 

> 

2 



\ 



Parameter list 



\ 



\ 



\ 



\ 



\ 



\ 



\ 



\ 



\ 



^10. Was volume mount successful? 

No Yes 



*1 1 . Does the operator wish to cancel the job? 
Ao Yes 



12. Set cancel bit in DADSM 
•arameter list 



\ 



\ 



\ 



\ 



\ 



13. Indicate failure to mount volume 



^ 



Return 

14. Was there an overlap (error codes 24, 28)? 

Yes No HH^ Return 

\ 

'15. Is DADSMSG bit on? 

Yes No DOED^ Return 



* 



16. Issue message identifying type of overlap 
condition to operator 



t 

© 



DADSM 

parameter list 



O 



DADSCNSL 



o& 



Console 




_js. i Message to 
-^ I operator 



$$BODADS 



Diagram FE3. Build DSCBs 



Console 




k 17. Does the operator wish to delete data set? 
Yes No 



18. Does operator wish to cancel the 
job? 



Yes No 



19. Set cancel bit in DADSM 
parameter list 



►Return 



►Return 



20. Erase overlapped data set 

See Diagram FD, Scratch DSCBs from VTOC 

21. Reopen VTOC mi—+>(T) 

22. Issue message indicating extent bypassed 

►Return 



DADSM 

parameter list 



£> 



DADSCNSL 



Console 



Zj^l Message to 
1 operator 



IKQSCR00 



IKQVTC00 



$$BODADS 









< 
IT. 



O 
J1 



< 
> 



Diagram FF1. Read DSCBs 



Parameter list 




1 



^Diagrams EG,EH,EN,FB,FC, 
FD,FG,FH 



p 5 * 1- Obtain virtual storage for work area or use 

user-supplied work area at user's option 



i 




2. Did caller specify that the volume 1 label is not 
to be read and checked (and full disk address is 
provided)? 



No 

I 



Yes I 



/ 



Parameter list 



/ 



3. Read the volume 1 label 



4. Read F4 DSCB if 
^ (a) bypass vol. 1 is not requested by caller 

(b) F4 not present in parameter list 

(c) F4 is not record requested by caller 



5. Read the DSCB requested by the caller 



I 



Work area 



£> 



Work area 



:0 



=> 



Work area 



:0 



Label or 
routine 

IKQRDSOO 



READ VOL 1 



SCANVTOC 



SCANVTOC 



Return 



Diagram FG1. Write DSCBs 



Rl 



3 



Parameter list 



3. 



* Diagrams EH,EN,FB,FC,FD,FE 




Work area 



1. Obtain virtual storage for work area or use 
user-supplied work area at user's option 

2. Issue an ENQB to protect the VTOC 

3. Read F4 DSCB unless 

(a) Write of F4 is requested or 

(b) Single write to a known address is requested 

See Diagram FF, Read DSCB 

, 4. Is there only one write DSCB request with an 
address given? 



No 



Yes 



©~ 



*5. Was a disk address provided for the first DSCB? 



R15 






No Yes 

i 

• 6. Check for duplicate name on volume 
See diagram FF, Read DSCBs 

"7. Is return code (duplicate name found)? 

No Yes I 

I Free VTOC CED^ Return 



Work area 



£> 



Work area 



^> 



R15 

!^> l Error code 161 



Label or 
module 



IKQWDSOO 



IKQRDSOO 



FREE 



K> 



- Diagram FG2. Write DSCBs 



< 
it 



< 



< 

> 



R15 



Work area 



R15 



Work area 



2 







*- 8. Does return code indicate DSCB not found? 

Yes No : 

I Free VTOC I ■ ■ + Return 

r 9. Search VTOC for zero records that can be used 
to write new DSCBs 

"10. Check for overlap on data sets already in VTOC 
See Diagram FH. Check for overlapping extents 

-11. Write DSCBs into VTOC (all DSCBs now have 
disk addresses associated with them) 

12. Does return code indicate an error 



Yes 

I 



No 



13. Issue a DEQB for the VTOC I 



^Return 



'14. Erase new record written to VTOC except for 
F4 DSCB and issue a DEQB for the VTOC 



t 



R15 

I^>1 Error code 




=> 



VTOC 



Label 



FREE 



SEARCHF 



IKQCOV00 



WRITEVT 



FREE 
FREE 



Return 



Notes for Diagram FG 
Description 



2 ENQB blocks the B-transient area, resulting in 
serialization, which prevents the VTOC from 
being processed by other VSAM tasks or other 
access methods. 

3 If the request is not to write the Format-4 
DSCB and not to write at a given address, the 
Format-4 DSCB must be read to get the starting 
and ending addresses of the VTOC. 

5 If a disk address is not provided, then the 

DSCB is a Format-1 label. It can be written in 
any available slot in the VTOC. 

6-8 This DSCB can be added to the VTOC only 

if a DSCB with the same name is not found. 

10 The file described by this DSCB must not have 

extents that overlap files already defined by 
DSCBs in the VTOC. 

14 If an error occurs, an attempt is made to 

restore the VTOC to its previous status by 
erasing any new records written for this 
request. 






- Diagram FH1. Check for overlapping extents 






Rl 



Parameter list 



< 






> 

2 



Code 

24 Expired 
and un- 
protected 

28 Unexpired 
and un- 
protected 

32 Unexpired 
and pro- 
tected 

56 Expired 
and pro- 
tected 



Parameter list 



Work area 



>4 . Obtain virtual storage for a work area and store 
a pointer to it in the parameter list 

2. Do the Fl and F3 DSGBs to be built overlap 
each other? 

No Yes 

I 4 

■ 3. Store return code 

\ . ™ *© 

Check VTOC for overlap with existing data sets 




4. Read a DSCB 

See Diagram FF. Read DSCBs 

5. Is it an Fl DSCB? 

Yes No 

I + 

■ 6. Is it an F4 DSCB? 

I Yesp^(T?) No ■■►Qj) 



^> 7. Set return code into work area 



8. Check the following combinations of DSCBs 
extent-by-extent for overlap: 

• New Fl DSCB with old Fl DSCB 

• New F3 DSCBs (if any) with old Fl DSCB 

• New Fl DSCB with old F3 DSCBs (if any) 

9 New F3 DSCBs (if any) with old F3 DSCBs (if 
any) 



© 



Work area 



:> 



Return code 



Work area 



C> 



Return code 



Diagram FH2. Check for overlapping extents 






R15 

I Return code. \ — 



9. Were any overlapping extents found? 
No Yes 



IDE 



►© 



1 0. Clear the return code in the work area 



Increment record address 



U5 



Return cods 



Work area 



1 1 . Check the return code from reading the DSCB 
(step 4) 



Not 







.© 



12. Increment the head number and, if necessary, the 
cylinder number 

13. Has the end of VTOC been reached. 

No Yes 

-►© ^© 

14. Increment the record number to read the next 
record in the VTOC 



Check for overlap with the VTOC 

-JN.I 

-^> 15. Do the new Fl and F3 (if any) DSCBs overlap 

the VTOC? 



Yes 



No 



16. Store return code 36 in the work area 



=C> 



17. Move return code from work area to register 15 



* 




Return 



-- Notes for Diagram FH 






< 






< 

> 



Description 



2 The DSCB(s) to be built are checked for 

mutual overlaps. 

4,5,6 A DSCB is read each time the module 
loops. Only Fl and F4 DSCBs are 
needed. F3 DSCBs are checked in 
combination with their Fl DSCBs. Other 
DSCBs have no extent information. 

7 The return code is stored in the work area 
in case it is needed later. 

8 This step naturally involves reading many 
DSCBs from disk. These read operations, 
which are carried out by module 
1KQRDS00, are not shown here. 

9 The first overlap actually found in step 8 
causes further checking to be abandoned. 

10 If there were no overlaps, the return code 
set up in step 7 is cleared. 

IT A non-zero return code means that the 

record number requested does not exist. 
The fact that this check is carried out 
rather late means that the record read on 
the previous' loop is, in fact, checked 
twice, as it is still in the work area. 

1 2 The head number, and the cylinder 
number if necessary r are incremented by 
one, and the record number is reset to 
one. 

1 3 The incremented track and cylinder 
numbers are checked against information 
saved from the F4 DSCB, to see if the 
end of VTOC has been reached. 



Module 

IKQCOVOO 

IKQRDS00 



Description 

15 When the F4 DSCB is found, the new Fl 

and F3 DSCBs (if any) are checked for 
overlap with extents belonging to the 
VTOC. 

1 7 The return code previously stored in the 

work area is moved to register 15 before 
returning to the caller. 



IKQCOVOO 



Diagram FI1. Open and close VTOC 
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3. Issue an SVC 2 to call $$BJIB00 

4. Is 'DASD file protect' specified? 
Yes No ^■■■^(20) 



'• — — ->• 5. Find the LUB, using the index in the parameter 

list 

6. Get the corresponding PUB and determine the 
device type 

7. Is a JIB of the required type already in the JIB 
chain? 



No 



Yes I 



8. Is there a free JIB available? 
Yes No 

I I 

■ 9. Issue message 'no JIBs available' 
10. Issue an SVC 22 to seize the system 
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17. 
18. 


JIB found? 
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20. Return to IKQVTC00 via SVC 1 1 

21. Set error code and return to caller 
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Notes for Diagram FI 



Description Module 

DASD file protect is a SYSGEN option IKQVTCOO 



2 It is an open request if the bit 

DADSVTOP in the parameter list is on. 
Note: At this point, the parameter list 
pointer is in register 1. It is transferred to 
register 0, by module IKQVTCOO, shortly 
before the SVC 2 is issued. 

4 See note for step 1. $$BJIB00 

5 The parameter list is a 'pseudo CCB' and 
contains the LUB index at the same offset 
as a CCB. 

7 The required type of JIB is identified by 

its extent information. See the diagram 
below. 

9 Control is passed to the message writer 

$$BODADS which writes the message and 
returns control to the caller. 

1 1 See diagram below for details of the extent 

information in the JIB(s). 

14 See note for step 5. $$BJIBFF 

16 See note for step 7. 

21 Module IKQVTCOO returns no error IKQVTCOO 

codes. 
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• 3. Store request-type code into RPL and initialize 
control block registers 



I 4. Is the request an RCLOSE? 
/. No Yes 
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/ .^ 5, Test to see if second or subsequent RPLs in RPL 

chain is held by another request 
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6. Does each RPL in RPL chain have the same 
ACB address? 
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Is LSR specified for this data set? 
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Initialize the PLH assigned from the resource 
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resource pool 
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Store address of user's save area into PLH 
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•14. Analyze request options and parameters 

•15. Was an internal error code set during request 
analysis? 
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• 17. Does an upgrade set exist? 
Yes No 



RPL 
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RPLOPT1 






PLH 



PLHFLG1 
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18. Perform upgrade processing 

See Diagram GD. Alternate Index Upgrade 

-*19. Access via path for GET or POINT? 

Yes No ■■■■►(19) 

;»20. Sequential GET and 'Duplicate Key follows'? 

No Yes wmmm^fis) 
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Request processing based on request type 

21. Perform the function requested 

See Diagram GE, POINT: Position VSAM at a 
record 

See Diagram GF, GET: Retrieve a record 

See Diagram GG, PUT Add: Store a new record 

See Diagram GH, PUT Update or ISAM-issued 
PUT in LOCATE mode: Store an updated record 

See Diagram GI, ERASE: Delete a record 
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See Diagram GS, VERIFY: Reestablish high-used 
and high-key RBAs 

See Diagram HW, WRTBFR: Write deferred 
buffers 
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-22. Is JRN exit active? 
Yes No 

23. Do journaling 



See Diagram HU, JRNAD exit: Journal a 
transaction 



1 Error code I REG15: 
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>24. GET via path? 
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^25. If 'workarea too small' is indicated, set up a 
• larger workarea ^^^^^^^>e l 

^»26. Error detected? 

Yes No 



»27. For PUT or ERASE requests perform Upgrade 
Reset processing if upgrade set is present 

See Diagram GD. Alternate Index Upgrade 



28. Read the AIX record once more 

See Diagram GF. GET: Retrieve a record 
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— ^29. For a GET request via a path perform the access 
^ ■ to the base cluster 

See Diagram GC. Path processing 



,30. If JRNAD exit is active, do journalling. 

See Diagram HU, JRNAD exit: Journal a 
transaction 
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• 32. Are there any more RPLs to process on chain 

associated with this request? 



PLH 



PLHFLAG 



No 



Yes 



AMBL 



AMBLSR 



•33. Does the PLH contain information for further 
requests? 



No 



Yes 



Data and 
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' 34. Is LSR specified for this data set? 

Yes No 
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•35.. Return buffers (BCBs) from the BHDs to the 
resource pool 

See Diagram HY, Terminate a request 
36. Free the PLH 
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38. Post the ECB of the PLH 
Common request processing 



39. Take normal exit 



►Return 



40. Handle error recovery and set error feedback 
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See Diagram HF, Handle errors 



41. Take error exit 

See Diagram HG, Take error exit 
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r47. Return BCBs to the resource pool 

See Diagram HY, Terminate a request 

48. Decrement the number of active PLHs by one 

49. Free PLH and RPLs 



50. Was there another error? 

No Yes 
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Return 
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►44. Store address of user's save area into PLH 

45. Set PLH lock and wait for I/O operations to 
take place before PLH is freed 

See Diagram HH, Record management close: Do 
all I/O operations required on this PLH 

46. Was LSR specified for this data set? 
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See Diagram GF, GET: Retrieve a record 
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19. Journal the transaction 

See Diagram HU. JRNAD exit: Journal a 
transaction 

20. No record found or End of Data or Invalid 
RBA? 



No 



Yes 



.21. Ensure that the record just read is the one 
required 

Correct record found? 



Yes 



No 
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Set error code 



••22. Reload control block pointers referring to the 
path entry cluster 



23. Error detected? 

No Yes 



►Return 
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Description 

If sequential processing is not specified, 
only the first base record associated with a 
given AIX key is retrieved. The indicator 
'Duplicate key follows' is set if applicable. 

Repositioning to the previous BCR pointer 
is required only if the previous sequential 
request ended with a 'no record found' 
condition in base cluster. To prevent tbe 
user from simply skipping this BCR pointer 
(which represents a lack of compatibility 
between AIX and base cluster), the PLH, 
which had been incremented in the 
previous request to point to the next BCR 
pointer, is returned to the faulty BCR . 
pointer. A series of sequential GETs will 
thus return a series of %o record found' 
conditions, all for the same base record. 



Control block notation: 



RPL(A), PLH(A), etc: Control block 
referring to the path entry (AIX) 
RPL(B), PLH(B), etc: control blocks 
referring to the base cluster. 



11. A direct pointer (PLHBCPLH) is used for 

local shared resources. Otherwise the base 
duster PlU is indexed by me AMBL (base 
cluster). 

14. A POINT request is completed when die 

PLH is positioned to the correct BCR 
pointer. A GET request continues and 
actually retrieves the base cluster record 
indicated by tfee current KIR pointer. 

General note for sequential processing 

During sequential processing, the base 
records are returned in the order of the 
BCR pointers in the AIX record, 
regardless of the 'direction' of sequential 
processing (forward or backward). 
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17. Store the address of the previously read record 
into PLH(B) 



1.8. Locate the last control interval in the base cluster 



See Diagram GG, PUT ADD: Store a new 
record 
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► 22. Is the record to be added a spanned record? 
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31. Read the AIX record 

See Diagram GF, GET: Retrieve a record 
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Delete a pointer (continued) 



R15 ^ 

1 1 Error code l ^f 



USB 



32. Error code 'no record found' or 'end of data' 
returned? 



RPL(U) 



RPLBUFL 



RPLAREA 



USBWAPTR' 
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^33. Is the work area too small? 

Yes No 
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PLHUPGAD 


. — 









t^3)_ 



new one which is large enough to receive the 
record 

35. Read the AIX record again 

See Diagram GF, GET: Retrieve a record 



36. Scan the record for the BCR pointer which is to 
-^ be deleted 

Pointer found? 



Yes 



No 



37. Is it the only BCR pointer in this AIX record? 
Yes No ^^^^.39 



38. Store the request-type code 'ERASE' into 
RPL(U) 



Qy==C>39. Delete the BCR 



pointer 



RPL(U) 
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RPLBUFL 
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Delete a pointer (continued) 



40. Calculate the new record length and store the 
request-type code TUT UPDATE' into RPL(U) 

41. Write back the updated record or erase it 
See Diagram GH. PUT UPDATE: Store an 
updated record or 

Diagram GL ERASE: Delete a record 



PLH(B) 



PLHDRO 



PLHDBAD 






USB 






42. Is a pointer to be inserted? 

(Is the user's request PUT UPDATE, PUT 
INSERT and upgrade reset not in progress, or 
ERASE and upgrade reset in progress?) 



Yes 



Add a pointer 



No 



Rel.key position 



AMDSB(U) 



43. Get the address of the AIX key field within the 
user's work area or the buffer 

44. Does the AIX have the 'UNIQUE' attribute? 



AMDATTR3 



No 



Yes 



R15 

I Error code IC 



45. Read the AIX record 

See Diagram GF. GET: Retrieve a record 



^46. Error code 'no record found' returned? 

No Yes 



*47. Is the work area too small? 

Yes No 
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Add a pointer (continued) 



/ 



/ 



/ 



/ 



AIX record 





tBCRx 
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' 48. Free the work area, if necessary, and obtain a 

new one which is large enough to receive the 

record 

49. Read the AIX record again 

See Diagram GF. GET: Retrieve a record 

- 50. Scan the record for the BCR pointer which is to 
be added 
Pointer found? 



No 



Yes 



PLH(U) 



AMDSB(U) 



AMDLRECL 



l£>51. Add a new BCR pointer to the AIX record 

^-^ 3^ 52. Calculate the new record length 

- —- -^ ^ 

\^y 53. Is the record length greater than the permissible 

maximum, or is the maximum number of pointers 
exceeded? (32, 767) 



No 



Yes 



54. Write back the updated record 

See Diagram GH. PUT UPDATE: Store an 
updated record flHHI^M 57 j 
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Diagram GD8. Alternate index upgrade 
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Add a pointer (continued) 



~~ — ~~ "^ 55. Build a new AIX record and initialise RPL(U) 

for a PUT INSERT request 

56. Insert the new AIX record 

See Diagram GG. PUT ADD: Store a new 
record 

57. Free the data and index buffers 
See Diagram HI. GETBUFF: Free a buffer 



^>58. Reload the control block pointers to point to the; 
base cluster ^ /~s. 
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Error handling 



------. 'i 



59. Free the data and index buffers 

See Diagram HI. GETBUFF: Free a buffer 

60. Save the address of PLH(U) and reload the 
control blocks to point to the base cluster 

61. Did the error occur during upgrade reset 
processing? 



I 



No 



62. Indicate the presence of an inconsistent AIX in 
the upgrade set 

' 7 



AIX record 
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Error handling (continued) 



RPL 







RPLREQ 






R8 _ — -~ 



'63. Initiate upgrade reset processing 

64. Was the user's request PUT UPDATE? 

Yes No 
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tRPL(U) 
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USB 
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65. Have any modifications been made to the AIX 
which caused the error? 
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No 



ACB(U) 
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*66, Reload the control blocks to point to the AIX 
which caused the error 



tAMBL(U) 



AMBL(U) 



t'AMDSB(U) 



/ 



^ / 
/ 

/ 



Terminate upgrade processing 

^.67. Has any upgrading been carried out? 

Yes No 



RPL(U) 



RPLAREA 



RPLBUFL 



Is 
Ye 
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68. Is there a work area to be freed? 



No 



RPL(B> 



RPLFDBK 



69. Free the work area 

70. Load the function and error codes 

71. In the case of multiple string processing, dequeue 
the USB as a system resource 
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Return 
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1. User-buffer processing? 

No 
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Yes 



Store user-supplied RBA into PLH 
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3. Is keyed processing being performed? 

No ^N" 9 



Data AMDSB 



AMDKEYLN 



A 4. 



AMDATTR1 



Yes 



Get address and length of the user-supplied key 
or relative record number 



Index AMDSB 



AMDHLRBA 



-5. RRDS processing? 

No Yes 



— — — :> 6. Indicate that the index must be searched from 

the highest to lowest level for the desired key 



PLH 



PLHSWT1 



r l . Is positioning to last record required? 

Yes No wmm+i 1 1 ; 



8. Set previous request key to 'FF...F' 



11 
'9. Is positioning to last record required? 

Yes No ■■■^(T?) 
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PLH 



PLHDRBA 
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of key 
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Diagram GE2. POINT: Position VSAM data record 
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-ag^ 10. Simulate PLH positioning beyond last record 
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Return code 
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t-0 



RPLREQ 



KD 
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data AMDSB 



AMDATTR1 ~" 



(c\- -A— ^RRDS GET 



1 1 . Locate record or control interval by key, relative 
record number or RBA 

See Diagram GN, LOCATE DIRECT 

12. Check return code 
Record found 

No record found, next higher located 
No record found, end of CNV reached 
Invalid RBA specified 

13. No record found, next higher located: 
- ^BWD 




EliL 



PLHDATA 



PLHDCNV 



PLHDRCD 



U( 



GPT070 



X f data buffer 
| RECORD | |~* 




Error code 1 -invalid RBA 



PLH 



PLHFLAG 



PLHSWT1_— _ 




* "^KGE 

14. No record found, end of CNV reached 
End of data 




RI5 



iJ> 1 Error code I -No Record Found 



,~/£*BWD, GETSEQ 
"^■/V-^BWD, LRD 

/y ^ 

/ '\ / ^BWD, other 
V/^V^^KGE 

J > Generic key 

Other 



►Return 



R15 



Error code 1 -End of Data 




* Return 



Error code f -No record found 



Error code 1 -No record found 
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Diagram GE3. POINT: Position VSAM data record 
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PLHDATA 


r 


PLHINDEX 


PLHFLAG 



R15 

I Error code 
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RPL 



1 RPLARG h 



user's key I — — — 



"15. For generic key, locate next record relative to 
current PLH positioning 

See Diagram GL, LOCATE NEXT — 

. -terror detected jEJ^Return 

- -^*end of data reached PO^ Return 



: 16. Check if next record is in domain of generic key 



Data buffer 





recorded key 





PLH 



PLHDATA 



not in domain 
in domain 



Return 
19 



-17. 



PLHDATA 



PLHINDEX 



PLHSWT1 



PLHFLAG 



3U 



( I Error code \ <— 

I 



L. 



Locate next record relative to current PLH 
positioning 

See Diagram GL, Locate next (FWD processing)or I 

See Diagram GM, Locate previous (BKWD 
processing) 

••error detected ES^ Return 

"previous data CA requested ■■■^(1 

"End of Data ■ ^Return 

Record Found HI^(19 

If previous control area is required for keyed 
backward processing, a high level index search 
for previous request key is started 



-© 



PLH 



R15 ' 

!^> J O/Errorcode 1 



PLHDATA 



PLHINDEX 
PLHFLAG 



R15 



f> I Error code 1 -End of Data 



R15 



^> ( Error code l No record found 



PLH 



RJ5 _^ 

"[> j O/Error code"! 



PLHINDEX 



PLHDATA 



PLHFLAG 



R15 



? ^> | Error code [ -End of Data 



Rl 




Z> \ Keylength _| 
PLH 



PLHPKEY 
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Diagram GE4. POINT: Position VSAM data record 



data BCB 

I bufflagTT — 



RPL_ 



•19. Has new version of data CNV been written? 
No Yes ■HH^(T) 



RPLOPT 



RPLREQ 



l£> 20. Save the request-type code, request options, 
request RBA and, if keyed processing, the 
request key or relative record number; set up 
PLH flags 
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C> 



PLH 

PLHFLAG 



PLHRTC 



PLHOPT 
PLHPKEY 



GPT170 



GPT300 



Return 



Notes: 



7-9 



9-10 



The user-supplied argument is a key for 
keyed processing or a 4-byte relative 
record number for relative record 
processing. 

Positioning to last record is required for 
backward processing with the option LRD. 

For keyed processing of a KSDS, 
positioning to the last record is achieved 
by searching the index for the maximum 
possible key (x'FF...FF') 

For addressed or relative record 
processing, positioning past the last record 
is first carried out, using the high water 
mark of the highest key range as an RBA. 
The last record is then found by using 
LOCATE PREVIOUS. 



17-18 During keyed backward processing of a 
KSDS, LOCATE PREVIOUS can step 
backwards only until it reached the 
beginning of a sequence set record, which 
corresponds to the start of a data CA. 
LOCATE PREVIOUS then returns a 
'previous data CA required' condition, and 
stores the lowest key of the current CA in 
the previous request key field. LOCATE 
DIRECT and INDEX SEARCH will then 
carry out a top-down search and transition 
to the previous sequence set record. 



Diagram GF1. GET: Retrieve a record 



C 

CO 

< 

CO 



O 

O 



< 

o 



©-> 



AW— 



RPL 



RPLREQ 



RPLARG 



RPLOPTCD 



RPLKPYL 



AMPSB 



AMDATTR1 



user s are. 



PLH 



PLHPKEY 



PLHFLAG 



PLHSWT1 



User-issued 
GET 



I 



/ 



:-® 



AMDKEYLN 



AMDHLRBA 



GX. 



©-- 



If the request is a GET UPD for a data set and 
exclusive control Is specified, then indicate that 
the appropriate data control area, and for keyed 
processing, its associated sequence set control 
interval, are to be held in exclusive control until 
the update operation is completed 



. 2. Sequential GET? 

No Yes 



' 3. Keyed request? 

Yes No 

4. Get address and length of user-supplied key or 
relative record number 

• 5. Skip - Sequential GET and PLH is positioned? 

Yes No mma+(7) 



4 

Isr 
Yes 

I 



?6. Is request sequence valid? 

Yes No 



Return 



• 7. End of data or I/O error encountered during 
previous request? 



Yes 



No 
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Diagram GF2. GET: Retrieve a record 



2 

c 



AMDSB 



AMDATTR1 



PLJL. 



PLHSWT1 



.8. Relative record data set? 

No Yes 

9. Indicate top down index search 



— — S5* 1 0. Is last record requested? 

\ Yes No 
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share 
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Rl 
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address of 
argument 











ARDHRBA 



11. Use previous request key as argument and set it 
to maximum (all X'FF') 



12. Is last record requested? 

Yes No 




f»"13. Set request argument to RBA of first unused 

data control interval 



R0 



•14. Locate desired record or control interval 

See Diagram GN, LOCATE DIRECT: Locate 
record or control interval 



I return code I — -»-15. Check return code: 

Record found 



No record found, next higher located WK^ 

No record found, end of CNV ■■■B^fnj 

Invalid RBA specified tMIM^^Return 
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Diagram GF3. GET: Retrieve a record 



< 



in 



< 

> 




1 6. No record found next higher located 

Backward processing m^fi linn 

RRDS GET 

KEQ 

KGE 

17. No record found, end of CNV reached 

End of data 

BWD, GET SEQ 

BWD, LRD ■■■^{24 

BWD, other ■ ■ ■ ^ Return 

kge wmma+(24 

Generic key ^^^"^(^ 

Other KMX^ Return 

1 8. For generic key, locate next record relative to 
current PLH positioning 



Module 



Return 

24 



See Diagram GL, Locate next 
Error detected 
End of data reached 



Return 
Return« 



R15 



!J> | error code 1 - No record found 
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,R15 




*^>\ error rode I - end of data 
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f error code I - no record found 
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PLHDATA 



PLHINDEX 



R15 



t/ I error code \ - end of data or 

- error code from locate next 



Diagram GF4, GET: Retrieve a record 
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RPLOPT1 —• 



- » 19. Check if next record is in domain of generic key 

not in domain EHm^ Return I 

in domain ■■■H^(30 j 

.20. CNV processing? 
No Yes 



R0 



~2 — — — 5» 2 1 . Restart required or exclusive control required and 

^ not yet obtained? 



PLH 



PLHFLAG 



PLHPKEY 



PLHDRRBA 



PLHEQD 
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Yes 



No 
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22. Locate previous record again and get it in 
exclusive control if required 

See Diagram GN, Locate direct 

Error detected M ■ ■ ^Return 



R0 



I return code 1 >*23. Check return code: 

RRDS, end of data 



■ ■ ■ ^Return! 
No record found, end of CNV ■■■^^(24 J 
No record found, next higher located ■i^ (3 oj 
Record found ■■■^►(24) 

Invalid RBA ■ ■ ■ ^ Return! 
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R15 



I^> | error code 1 - no record found 
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1 return code I 




1^> 1 error code | -error code from locate next 
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]- end of data 
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]- invalid RBA 



■sO 






Diagram GF5. GET: Retrieve a record 
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Data buffer 



1^ 24. Is this backward processing? 

No Yes 



25. Advance PLH to next record or CNV 
See Diagram GL, Locate next ^s^l 
Error detected ■ ■ ■ ^ Return 
No error ■■IH^(27j 

26. Set PLH to previous record or CNV 
See Diagram GM, Locate previous 
Error detected WlMMJ^ Return 

27. Is transition to previous control area required? 



©~ 



Yes 



No 



28. Set previous request key as search argument 



BCB_ 



BUFFLAG2 



• 29. End of data reached? 
No Yes 



Return 



> 30. Has a new version of the current control interval 
been written? 



Yes 
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No 



PLH 



PLHPKEY 
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^> 1 error code 1 - end of data GPT160 
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Diagram GF6. GET: Retrieve a record 
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31. Invalidate buffer and restart request 



32. Relative record data set? 

Yes No 

-33. Is there a valid record in the slot? 

Yes No 

34. User buffer processing? 

No Yes 



4 



35. Is the record to be retrieved spanned? 
<o Yes 



No 



.© 



•36. Make record or control interval available to user 

►Return 
(4a 



BCB 



C> 



BUFFLAG1 



User area too small 
No error 
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37. Make spanned record available to user 

See Diagram GJ, Retrieve spanned records 



Error 



No error 



38. Inconsistent spanned record and exclusive control 
not obtained? 



User's area 



Module 
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PLHRREAD 
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No 
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Diagram GF7. GET: Retrieve a record 
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39. Indicate exclusive control required and restart 
request 



*40. Check for correct key sequence for keyed 
sequential processing of KSDS 



Incorrect key 
sequence 



No error 



-^41. Set up statistics and provide RPL feedback 
I information 

J^*42. Save request-type code, request options, and 
request RBA 



43. For keyed processing, save request key, that is, 
& key or RBA of record retrieved 

44. For UPD, path processing, LOC, UBF, or 
backward processing indicate PLH points to 
previous record 




► Return 



_ „ 45. For any other GET, advance PLH for next 
^v record or control interval overlapped. 



L 



See Diagram GL. Locate next. 
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Module 



GPT285 



GPT300 



GPT350 



Return 



Notes for Diagram GF 



2 

c 



Description 

2 A direct or skip sequential GET does not 

require prepositioning; it implicitly 
positions to the correct record or control 
interval before transferring it to the user's 
area. 

4 The key is supplied as argument. The 

length is the full key length (in AMDSB> 
for FKS and the KEYLEN supplied by the 
user for a generic key. 

6 For a positioned SKP request, the given 

key has to be in ascending key sequence 
with respect to the previous request. 

14 For a keyed request for KSDS other than 

a positioned SKP request, the search is 
top-down; for a positioned SKP request, 
the search is generally horizontal, starting 
with the sequence set control interval for 
the previous request. If the previous 
request had an I/O error or an 
end-of-data condition, however, the index 
search is top-down. 

27-28 During keyed backward processing of a 
KSDS, LOCATE PREVIOUS can step 
backwards only until it reaches the 
beginning of a sequence set record, which 
corresponds to the start of a data CA. 
LOCATE PREVIOUS then referens a 
qprevious data CA requiredq condition, 
and stores the lowest key of the current 
CA in the previous request key field. 
LOCATE DIRECT and INDEX SEARCH 
will then carry out a top-down search and 
transition to the previous sequence set 
record. 



Module 

IKQGPT 



IKQGPT 



IKQGPT 



IKQLCD 



Description Module 

36 If move mode is specified and not user IKQRTV 
buffer processing, the data record or 

control interval is transferred from the 
VSAM buffer to the user's area. 

37 Spanned record GET moves the first 
segment into the user's area, then reads 
the_next control interval and moves the 
next segment into the user's area and so 
on until all segments have been moved. 

41 The RBA of the transferred data record or IKQGPT 

control interval is provided in the RPL as 
well as the length of the record or control 
interval retrieved. The number of records 
retrieved is the statistics updated in the 
AMDSB. 

45 VSAM will be positioned to the next IKQGPT 

control interval in an overlapped manner, 
that is, I/O operations (read ahead) are 
started but completion is not waited for, in 
order to overlap the I/O operation with 
the user's processing of the record or 
control interval just retrieved, so as to 
improve throughput. 






4^ 



Diagram GG1. PUT ADD: Store a new record 



< 



< 



< 

> 

2 



User issued 
PUT ADD 



ARDB 



ARDHRBA 



I 



Data AMDSB 



AMDRRDS 



1 . Is data set empty? 
Yes No 



2. Indicate first PUT and end-of-data 

— m -^3. Relative record data set? 

Yes No 



AMBL of AIX 



AMBLBC 



■ s& 4. Sequential PUT insert issued against a path? 



RPL 



RPLOPT1 



.J& 



RPLAREA 



Yes No 

— — ^5. Is alternate key sequence correct? 

No 



PLH 



PLHPKEY 



©-- 



Yes 



Return 



— "7^*6. Keyed insert? 

Yes 



PLH 



PLHFLAG 



No 



Addressed or CNV insert processing 

T^f 7. Indicate end-of-data 



AMDSB 



AMDCINV 



JL&r 8. Calculate RBA of last CNV containing data and 

store RBA 



f 



PLH 



X> 



PLHEOD 



PLHFSR 



R15 



IKQSRT 



SRT010 



^> \ Error code ~] Sequence Error 



SRT015 



PLH 



C> PLHEOD 



£> 



PLHDRBA 



Diagram GG2. PUT ADD: Store a new record 



RPL 

| fiPLOPTl Zh 



Addressed or CNV insert processing (continued) 



dataAMDSB 
I AMDLOAD" 



9. CNV - processing? 

No Yes 



1 0. Is PLH positioned to the required control interval 
No ■■■^(^3) 



Yes 



PLH 



PLHEHELD 
PLMDRBA 



1 1 . Load mode? 

No Yes 

12. Is required CNV in exclusive control? 
p Yes 



No 



PLH 



PLHDCIPF 



R9 

I Caller's Base I - 



13. Read last data CNV if not yet connected with 
PLH 

See Diagram HI, GETBUFF: Free data buffer 
and read last CNV 



Error m. mjm^ > Return 

14. Position PLH to free space 

15. Was the request issued by UPGRADE routine? 
p Yes ■■■^Return 



No 



Module/Label 

SRT020 



SRT030 



PLH 



S> 



PLHDCNV 



PLH 



^> PLHDATA 



SRT040 






to 



Diagram GG3. PUT ADD: Store a new record 



< 



O 
^ 



< 

> 



RO 



Keyed insert processing 



AMDATTR2 


^ — ■ 






AMDATTR1 




AMDKEYLN 


♦v. ■ 



RPL 



RPL0PT1 



RPLARG 



o— - 



-16. If not load mode, indicate that exclusive control 
is required for the data CA into which the new 
record is to be inserted 



■17. Relative record data set? 

Yes No (KSDS) 



Keyed insert processing of RRDS 

18. Get length of relative record number 

19. Sequential insert? 



No 



Yes 



PLH 











PLHFLAG 






PLHPKEY 


K 




PLHRTC 










Rl 




1 


Length RR# 1 




R2 




tRR# 







<£K 



^20. Get address of user supplied relative record 
number 



II 



\ 



21. Is SKP specified and is PLH positioned 
Yes No 



1 



DIR specified 

or PLH not positioned 



22. Is relative record number in ascending sequence 
with respect to the previous relative record 
number (unless previous request was a POINT or 
ERASE, in which case the relative record 
number may be equal) 



Yes 



No 



Return 



=>i 



RO 



Module/Label 
SRT045 



Rl 



^> j Length RR# I 



R2 



~^> 1 tRR# 



R15 



^> [ Error code ] - Sequence error 



Diagram GG4. PUT ADD: Store a new record 



-J 



Keyed insert processing (continued) 



Rl 


1 Length RR# L 


R2 


I tPLHPKEY |; 





r-®— 



Keyed insert processing of RRDS (continued) 

I 



— ^23. Locate slot directly for direct and skip sequential 
insert into RRDS 

See Diagram GN, LOCATE DIRECT: Locate 
insertion slot 



error returned 
no error returned 



PLH 



PLHFLAG 



PLHDSW1 



PLHPKEY 



©-— " 



24. Is PLH not positioned or is an exceptional 
condition indicated or is exclusive control 
required and not obtained? 



Yes 



No 



PLH 



PLHRTC 



*25. Locate the previous request slot 

See Diagram GN, LOCATE DIRECT: Locate 
insertion slot 



Error returned 



Return 



PLH 



PLHFLAG 



PLHDATA 



26. Is the previous request slot the one needed 
(previous request is POINT) 



No 



Yes 



27. Indicate PLH positioned to previous slot 

28. Position PLH to the next slot if the PLH is 
positioned to the previous slot 

See Diagram GL, LOCATE NEXT: Locate next 
slot 



^ifr 



Error returned 



►Return 



PLH 

PLHFLAG 




PLH 




PLHFLAG 



PLHDATA 



R15 



Return code 



PLH 




SRT050 



SRT 052 



SRT054 



SRT056 



3C 



< 



< 



< 

> 



Diagram GG5. PUT ADD: Store a new record 



Keyed insert processing (continued) 



PLH 



PLHFLAG 



PLHDBAD 



PLHDRDF 



Keyed insert processing of RRDS (continued) 



RDF 



DATA BUFFER 





RPL 




AMDSB 


















AMDRKP 


RPLAREA 


AMDKEYLN 





















29. Is end of data reached? 

No Yes 

30. Is there already a valid record in the slot? 

No wam+Q) 

Yes ■ ■ ■ ^ Return 



Keyed insert processing of KSDS 



r 



Get address and length of key of record to be 
inserted 





RPL 




PLH 














RPLOPT1 


PLHFLAG 



















Rl 




PLH 








Length 
(full key) 














R2 


PLHPKEY 










PLHRTC 






tKey of 
given record 



























■32. Is SEQ or SKP specified and is PLH positioned? 

Yes No ■■M^44 N ) 



I 



Direct specified 

or PLH not positioned 



PLH 



PLHFLAG 



PLHDATA 



33. Is key in record to be inserted in ascending key 
sequence with respect to previous key (unless 
previous request was a POINT or ERASE, in which 
case the key may be equal)? 



Yes 

1 



No 



Return 



34. Is exceptional condition indicated for the previous 
request? 



No 

* 
6? 



Yes 



SRT058 



Of 



R15 



:> 



Error code 


]-duplicate recorc 


i 




Rl 




R2 






Length of 
full key 




tKey of 
new record 















SRT060 



R15 



^> I Error code ~~] 



sequence error (key is low) 
duplicate record (key is equal) 



SRT070 



Diagram GG6. PUT ADD: Store a new record 



■sO 



PLH 



Keyed insert processing (continued) 



PLHFLAG 



PLHDATA 



Keyed insert processing of KSDS (continued) 





DATA CNV 










User's area 

I new record I 




next Record 



















-j^>35. Does the PLH point to previous record and is 

previous record last in CNV? 

No Yes 



36. Point the PLH to the next record if the PLH 
points to the previous record 

See Diagram GL. LOCATE NEXT: Point the 
PLH to the next record 

Error returned 

►Return 





PLH 






F , 








PLHDSW1 



















37. Is the current PLH position the same as the 
position at which the new record is to be 
inserted? 



No 



Yes 



38. Is exclusive control required and is data CA not 
yet held? 



No 



Yes 



Record to be 



| Key 


j 


f V 


\ 




Key |F L P 



Index entry 




Compare given key with key in index entry in 
order to check whether the record to be inserted 
belongs in the CNV pointed to by PLH 



Record 
belongs 
to CNV 



Record does not 
belong to CNV 



Is PLH positioned to previous record? 

Yes No 



PLH 



£> 



PLHFLAG 



SRT080 



SRT090 



SRT100 






Diagram GG7. PUT ADD: Store a new record 



< 



< 



< 
v: 

> 



PLH 



PLHDFSO 



Keyed insert processing (continued) 
Keyed insert processing of KSDS (continued) 



Rl 



1 Key length I _PLH 



R2 



tKey 



RPL. 



RPLOPT1 



RPLRCD 



PLHDBAD 



AMDSB 



AMDHLRBA 



41. Position PLH to free space 



42. Scan control interval and locate insertion point 
No record found ■■■■^^(46 J 
Record found i MJC^ Return 

43. Is end of data reached? 

Yes No 




AMBL 



AMBLIX 



Set end of data flag 



^.44. Indicate a top down index search starting with 

the highest level requested for a direct locate of 
insertion point; transfer high-level RBA into PLH 



45. Perform a horizontal index search starting at 
index CNV pointed to by PLH index RBA or a 
top down index search if indicated 

See Diagram GN, LOCATE DIRECT: Locate 

insertion point 

Error returned 
■ ■ ■ ^ Return 



PLH 



PLHEDCSZ 



Common processing and exit 



46. If not CNV processing and record does not fit 
into one CNV, indicate spanned record and 
prepare for insertion of first segment. 




Return code 1 - duplicate record 



SRT110 
IKQSCN 



SRT120 



SRT130 



SRT140 



SRT150 



Diagram GG8. PUT ADD: Store a new record 



to 

2 






R15 






2 

— -1 
->0> 

- — 



47. Insert new record 

See Diagram GO, Modify data control 
interval 



^ Restart insert for ESDS 



l 

— - J » Restart insert for RRDS 
— - — ^ Error detected 
"^ Continue 




Return 





AMDSB 




PLH 


}• 




AMDLNLR 




PLHEOD 


AMDLIREC 


PLHDRO 




PLHDRBA 















AIX-RPL 



RPLOPT1 



RPTOPT2 





AIX-RPL 




AIX-PLH 






RPLREQ 








RPLOPTCD 


PLHST 


RPLAREA 








AIX -AMDSB 














AMDAIRKP 




AMDKEYLN 















* 48. If CNV is not specified, update statistics 

49. Store RBA of inserted record or CNV into RPL 

50. Test if request issued against a path 

Yes No 

\ 

k 5 1 . DIR and NUP specified? 

No Yes 



► Return 



£EL- 



RPLDIR 



RPLNSD 



•52. Store request type code, request options and AIX 
key into AIX-PLH 

► Return 



►53. DIR and NUP specified? 

No Yes 



►Return 



'©' 



SEQ or SKP 

and NSP specified 



AMDSB 



AMDLNLR 



^> AMDLIREC 



-v> RPLRBA 



O 



AIX-PLH 



PLHRTC 



PLHOPT 



PLHFLAG 



PLHKEY 



Module 
or label 



SRT163 
SRT176 



SRT177 



SRT179 



K> 


Lfl 


lagrain ui 


*y 


• ru i /\l 


J£- 


zr. 




RPL 




PLH 




< 




RPLRLEN 




PLHST 




yi 


RPLREO 




r- 


RPLOPTCD 


^ 


RPLKEY 




RPLAREA 




AMDSB 












< 




AMDRKP 




~ 


AMDKEYLN 


c 




4-- 








< 

> 
2 













Common processing and exit (continued) 



r 



54. Store data length, request-type code, request 
options, request RB A and, if keyed processing, 
key or relative record number of record to be 
inserted, into PLH and indicate PLH points to 
previous record or control interval 



f- 

Return 



:0 



PLH 



PLHDRL 



SRT180 



PLHRTC 



PLHOPT 



PLHFLAG 
PLHPKEY 



PLHDRBA 



Notes: 

47 For relative record processing, the Modify 

Data CNV routine may indicate the PUT 
ADD processing has to be restarted. 

This occurs when larger portions of the 
data space had to be preformatted, and 
the connection between the PLH and the 
target data CI was lost. 



Diagram GH1. PUT UPDATE or ISAM issued PUT in LOCATE mode: 
Store an updated record 






PLH(B) 



PLHRTC 



RPIXB) 



RPLDIR 



PLH(B) 



PLHEOD 



PLH(B) 



PLHDBCB 



User issued 
PUT 



I 



»1. Was the previous request a GET UPD? 

No Yes 

PLH positioned 
to proper record 



No 

i 



PLH must be positioned 
to proper record 



DIR specified? 
No Yes 



Yes 



3. Move CNV RBA specified by 
user's argument into PLH 



4. Get RBA for next sequential CNV if PLH does 
not yet point to next CNV RBA 

See Diagram GL, Locate next CNV RBA 

»5. End of data? 

No Yes ■■■■^Return I 

4 

6. Get exclusive control of data control interval 

See Diagram HI, GETBUFF: Get exclusive 
control of data control interval 

•7. Is BCB connected to the PLH? 

No Yes 



£ 



Module 
or label 



IKQUPD 



PLH(B) 



O 



PLHDRBA 



PLHPOS 



UPD010 



(JPD020 



R15 

~^> \ Return code | 
EOD 



UPD035 



4^ 



< 






< 

v-i 

> 



Diagram GH2. PUT UPDATE or ISAM issued PUT in LOCATE mode: 
Store an updated record 



LH 



PLHSWT2 



PLHRCD 



PLHDRBA 



PLHDRQ 



PLHAIXSV 



f AMBL 



AMBLBC 



RO 



J- 



r 



PLH<B) 



RPL(B) 



RPLRCD 



RPL(B) 



RPLOPT1 



}- 



RPL<A) 



RPLOPT1 



■8. Get BCB address and store in PLH 

See Diagram HI, GETBUFF: Get BCB address 



s**9. If new record must be spanned save record 
information 

Set record length to Cl-size- minus 10 and 
indicate spanned record 

10. Update the data CNV 

See Diagram GO, Modify the data control 
interval 

■11. If spanned record processing restore record 
information 

■ 12. If not CNV processing, adjust the number of 
updated records 



— 3s*13. Store RBA of updated record or CNV as 

feedback information into RPL, and as previous 
request RBA into PLH 



.14. Was the update request issued against a path? 
Yes No «^l^^(l8) 

■15. Is this a direct request? 
Yes No 




Module or 
label 



UPD045 



UPD050 



^® 



UPD070 



UPD080 



© 



Diagram GH3. PUT UPDATE or ISAM issued PUT in LOCATE mode: 
Store an updated record 



AIX-RPL 



RPLREQ 



RPLOPTCD 



RPL(B) 



RPLOPTl 



RPLREQ 



RPLOPTCD 



RPLOPT2 



PLH(B) 



PLHDBCB 



PLHDFSO 



}-— - 



16. 
^17. 

18. 
J9. 

— i.20. 
^21. 



Cancel positioning of alternate index PLH and 
base cluster PLH 

► Return 

Store previous information into alternate index 

PLH and base cluster PLH and indicate that both 

PLHs are to be set 

►Return 



Reset PLH flags 

Is direct specified? 

No Yes 



►Return 



Store previous request information into PLH and 
indicate: PLH is positioned to previous data 
record or CNV 

Test if locate mode 

or user buffer processing 

or backward processing 




No 



Yes 



► Return 



^22. Indicate PLH points to next data record or CNV 



^ I 



-23. Is a buffer connected to the PLH? 

No Yes 



24. Force 'end of CNV reached' 
Indicate wait 




►Return 



PLH(B) 



PLHFLAG 



PLHDRO 



Module or 
label 



UPD083 



UPD085 



to 






< 



< 



< 

> 



Diagram GH4. PUT UPDATE or ISAM issued PUT in LOCATE mode: 
Store an updated record 



PLH 



Positioned 



RO 



25. Indicate overlapped operation for Locate Next 

26. Locate next data record or CNV and advance 
PLH overlapped. 

See Diagram GL, Locate next data record or 

CNV 



C>[ 



RO 



Module or 
label 

UPD090 



T 



Return 



Notes: 



26 



Stand-alone updates (updates without 
previous GETs) are allowed for user 
buffer processing. 

PLH will be positioned to the next CI in 
an overlapped manner. This Wans that 
I/O operations (read-ahead) are started, 
but their completion is not waited for, in 
order to overlap the I/O operations with 
user processing. 



Notation: 



PLH(A), etc.: Control block associated with AIX 
PLH(B), etc.: Control block associated with base cluster. 



Diagram Gil. ERASE: Delete a record 



PLH 



RPL(B) 













PLHDBAD 


RPLREO 


PLHDRO 
























\ 








record 





data control interval 



AMBL(A) 



AMBLBC 



RPL(A) 



RPLOPT1 



RPLREQ 



RPLOPTCD 



User issued 
ERASE 



\ 



^ 1 . Erase data record identified by PLH 

See Diagram GO, Modify a data CNV 

Error detected OX^ Return 

2. Adjust the local statistics Z 

3. Store the RBA of the erased record into RPL 
and PLH 

• 4. Was request issued against a path? 

Yes No 



►5. DIR specified? 

Yes No 



\ 



\ 



\ 



\ 



\ 



\ 



6. Reset positioning of base PLH and AIX-PLH 



►Return 



8. Reset PLH postioning 



t 



Data control interval 



o> 



Record is erased and space made 
available for reclamation 

Data AMDSB 



:> 




=>©© 



7. Store previous request information into AIX-PLH ^^CT ^"^ 
and indicate AIX-PLH and base PLH are ^^^u^/ 

positioned to previous data 

■ ■ ■ ^Return 



j 



©0 



AMDLIREC 



AMDLNLR 



AMDLDELR 



RPL(B) 



©=> 



© 



RPLRBA 



©=> 



PLH(A) 



PLHFLAG 



PLHPREQ 



PLH(B) 



PLHFLAG 



PLHPREQ 



Module or 
label 



IKQMDY 



IKQUPD 
UPD060 



UPD080 



UPD083 



PLHDRRBA 



^4 



oc 



< 

V 



n 

v 



< 

VI 

> 



Diagram GI2. ERASE: Delete a record 



RPL(B) 



RPLOPT1 



RPLOPT2 



PLH(B) 



PLHDRO 



PLHDFSO 



1-^9. DIR specified? 

No Yes 



\ 



\ 



\ 



>k 






► Return 



10. Indicate PLH set to previous data and store 
previous request information 

1 1 . Backward processing or locate mode? 

No Yes 



►Return 





PLH 


, R0 






1 -1 1 


data PLH 














\ 


f 


L* 


data control interval 











12. Indicate PLH points to next data 

»13. Test if PLH points to end of data control interval 
Yes No MHi^ Return 



— »14. Advance PLH overlapped to next record or 

control interval 



See Diagram GL, Locate next 



+ 




Module or 

label 

UPD085 



UPD090 



Return 



Notes: 



Erase requests are allowed only for 
keyed or addressed processing of 
key-sequenced data sets or for 
relative record data sets. An ERASE 
must be preceeded by a GET for 
update, which positions the PLH to 
the record to be erased. 



Notation: 



PLH(B), etc.: Control block associated 
with base cluster 

PLH(A), etc.: Control block associated 
with AIX 



Diagram GJL Retrieve spanned records 



2 






AMDSB 



| AMPATTRL 



Index buffer 



Data buffer 



RPL 



1 RPLAREA 1 

PLH , 

I PLHRLEN I 

EPL , 

1 RPLBUFL 1 



Data buffer 



1 . Is exclusive control required? 

Yes No 

2. Hold the data in exclusive control 
.3. Is this a key-sequenced data set? 

Yes No 




£> 4. Count the pointers of the complex index entry 
and store the result 



5. Store the RDF pair containing the level number 
of the first segment in the PLH 



£> 6. Store the feedback information which will no 
longer be available at the termination of the 
request 



^> 7. Compute the address in the user's area to which 
the contents of the data buffer are to be moved 



-8. Is the user's area large enough? 

Yes No 



Return I 



£> 9. Move the data to the user's area 
10. Has the last segment been moved? 

Yes No 



t 



O 



PLH 



o 



z>{ 



PLHXPTR 



PLHSRRDF 



PLHPKEY 



PLHSRRBA 



RPL 
d^> \ RPLAREA 1 



-i^ I Error code 1 
"User area too small" 



Module or 
label 

IKQSRG00 



SRG005 



SRG010 



SRG025 



SRG070 



SRG076 






Diagram GJ2. Retrieve spanned records 



< 






< 

> 

2 



AMDSB 

I AMDATTRTT - 



►1 1. Is this a key-sequenced data set? 
Yes No 



12. Does the number of segments agree with the 
number of pointers computed in step 4? 



Yes 



No 



Return 



13. Update the statistics 



i- 

Return 



R15 

I^> 1 Error code 
"Inconsistent 
spanned record" 




Module or 
label 



SRG080 



Diagram GK1. Store spanned records 



AMDSB 



AMDCINV 



2 



to 



£LIL 



PLHSWT2 



PLHDBAD 



\*r 1 . Is the current record spanned? 

No Yes 



£PL_ 



RPLAREA 



RPLRLEN 



PLH 



PLHDBAD 



PLHRLEN 



PLHXPTR 



Index buffer 



Sequence set record 



PLH 



PLHJRN 



• 2. Clear the buffer 



\ . — -^ 3. Move data from user's area into buffer and build 



/ 



/ 



/ 



/ 



/ 



/ 



RDF and CIDF 

4. Write the buffer into the data set 

5. Reclaim the remaining control intervals 



►Return 



► 6. Compute the number of control intervals needed 
to store the spanned record and subtract the 
number of control intervals retrieved by the 
previous GET 

7. Additional control intervals needed? 

' Yes No 



-* 8. Are there enough control intervals available in 

the current control area and for a KSDS, is there 
enough index entry space? 



No 



Yes 



9. Get a new control area and reposition 

•10. Is the JRNAD exit active? 

Yes No 



% 



Module or 

label 

IKQSRU 



l£> Record free space RDF CIDF| SRU010 



SRU015 




SRU020 



SRU040 



SRU080 
SRU100 



K> 



Diagram GK2. Store spanned records 



< 



n 
ji 



< 

> 



User area 



PLH 



PLHSRCNT 



PLHXPTR 



11. Perform journalling 

See Diagram HLL Journal a transaction 



^> 12. Move a segment from the user's area into the 
buffer, build RDFs and CIDF, and write the 
buffer into the data set. 

13. All segments handled? 

Yes No 



•14. Has the record length decreased, so that control 
intervals must be reclaimed? 



Yes 



No 



•Return 



15. Reclaim the control intervals 



t 



Data buffer 



C> 



Record segment 


RDF 


RDF 


CI 
DF 



Module or 
label 



SRU115 




SRU180 



Return 



Diagram GL1. LOCATE NEXT: Locate next data record or control interval 






RPL 



RPLOPT 



PLH 



PLHDFSO 



PLHDRQ 



RQ 



R15 



I Return code 1 - 



PLH 



PLHFLAG 



1 



* Diagrams GE,GF,GG,GH,GI 



— ^ 1. Is control interval processing specified or end of 
- ^ control interval reached? 



No 



Yes 



2. 



•3. 



•4. 



Point PLH to next record in control interval 

Return 

Locate next control interval or calculate RBA of 
next control interval 

See Diagram GQ, GETNEXT: Get next control 
interval and read ahead 

Data read error for this and previous request? 
No Yes mma ^C*) 

4 

End of data set encountered or PLH wait flag set 
(only if overlap was specified)? 



No 



Yes 



►Return 



6. 



Is this a middle or last segment of a spanned 
record? 



No 



Yes 



<D 



7. Point PLH to first record in control interval 



\ 



Return 



PLH 



£> 



PLHDATA 



PLH 



^> PLHDATA 



Module 
or label 



IKQLCN 



LCN010 



LCN050 



LCN060 



LCN070 



4* 



Notes for Diagram GL 



■< 



v 

< 



< 
v 

> 



Description 

A transition to a new control interval must 
take place if control interval processing is 
specified (CNV option in RPL specified), 
or if the end of a control interval is 
reached, or forced by a previous read 
error. 

If a new control interval is not needed, the 
PLH is advanced to the next record within 
the current control interval and control is 
returned to the caller. 

GETNXT performs two types of 
operation: 

If register = or 4, an I/O operation is 
started and finished before further 
processing is done. If register 0=8 (CNV 
processing only), the RBA is advanced to 
the physically or logically next control 
interval but no reading is done. 

If register holds a negative value, an 
overlap operation is indicated, causing read 
ahead to be started while processing 
continues. A second Locate Next 
operation with WAIT specified (register 
= or 4) will ensure that the data is read. 
This second Locate Next will connect the 
desired data buffer with the PLH. 
GETNXT overlap frees the data buffer 
and initiates read ahead (the index buffer 
is, however, retained). 

As the start of the next record is to be 
located, the middle and last segments of 
spanned records are skipped. 



Label 

IKQLCN00 



LCN010 



LCN050 



Diagram GM1. LOCATE PREVIOUS: Locate previous data record or control interval 



PLH 



PLHDATA - — 



"j^I. Is start of control interval reached? 

Yes No 

Locate previous control interval 



^ 



2. Get next control interval in backward direction 
See Diagram GR. GET PREVIOUS 

3. Is this a relative-record data set? 



AMDSB 



AMDATTR1 
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\ 



\ 



\ 



\ 



\ 



\ 
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No 



Yes 



4. Point to last record in control interval 



5. Point to last slot in control interval 



x Return 



►Return 



Locate previous record 



6. Is this a relative-record data set? 
No Yes 



\ 



1 . Point to the next record in backward direction 

Return 

8. Point to the next slot in backward direction 

Return 



PLH 



:> 




PLHSWT1 



PLHDATA 
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Module 
or label 
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LCP001 
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Diagram GN1. LOCATE DIRECT: Locate data record or control interval by key or RBA 
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RPLOPT1 
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Data AMDSB 
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1 user s argument | 
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AMDCINV 
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AMDATTR1 
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AMDNSLOT 
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AMDPARDB 
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I * I *D 



agrams GE,GF,GG,GO 



©. 



— -1^. 1 . Is key specified? 

No Yes 



X 



X 



\ 



\ 



X 



ss? 2. Calculate control interval RBA and record offset 
^3. Is RRDS processing? 

No wmma+(%) 



ARDB 



ARDHRBA 



Yes 

©>k * 

/^V_ _ ^ 4. Calculate conr.rol interval RBA and slot offset 

»5. Is requested slot within preformatted area? 

Yes ■■■^(13 



R15 



I CNV RBA I 

PLH 



No 



PLHDSW1 



data parameter 
list 



-6. Set return code, store preformat target RBA and 
indicate end-of-data 



Return 



■7. If data control interval is held in exclusive 
control, then release it 

See Diagram HI, GETBUFF: Release exclusive 

control 

Error detected 

tMBHH^^ Return 




End of CI I 



IKQLCD 
LCD010 



LCD020 



LCD030 



Diagram GN2. LOCATE DIRECT: Locate data record or control interval by key or RBA 



Sequence Set Record 



IXBASRBA 



R2 



user's argument[ 



Rl 





PLH VSAM INDEX 






_____ — ^L 




PLHXRBA 
















1 1 1 


1 1 







I 

_ ^ 8. Locate index entry 



If 



See Diagram HB, Search index 
error detected 



9. Calculate data control interval RBA 



Return 



| Key l F i L 1 P 1 



| 10. Is 



data AMDSB 



AMDATTR2 



jVpY' I 10 - Is the data set to ^ shared? 

Yes No 

\ 

11. Is a data control interval already read in? 



R15 



^ 



1 CNV RBA 1 ^ 



/* 



/ 



PLH 



/ 



PLHDRBA 



/ 



/ 



/ 



A 



R15 



CNV RBA 



Is 

I 



No 



12. Is the requested control interval the one read in? 



No 



PLH 



data parameter 
list 



J— ==^ 1 3 . Store data control interval RBA and indicate hold 

^ *Y and/or exclusive control to buffer manager if 
(d J I required. 
-5»44. Read the data control interval into the buffer 



RPL 



RPLOPT1 



See Diagram HI, GETBUFF: Read data CNV 
error detected CMDI^Return 
^.15. Is this a keyed request for KSDS? 

Yes No 



F = Front compression count of key 
L = Length of recorded key 
P = Pointer to corresponding CI 




PLH 



VSAM index 



LCD050 



PLHXRBA 



PLHXEO 



t 



Sequence Set 



Rl 5 E = index entry 

I CNV RBA 1 



PLH 




LCD060 



DATA BUFFER LCD066 
^ 1 DATA CNV 









Diagram GN3. LOCATE DIRECT: Locate data record or control interval by key or RBA 
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PLH 



Index BCB 



PLHXBCB 



BUFFLAG2 



Data AMDSB 



AMDATTR2 \ 



16. If a new copy of the index has been written by 
another user then restart locate direct 



-17. If data set is i;o be shared, iterate index search 



RPL, 



1 




RPLOPT1 




1 





R2 

r 1 


PLH 


DATA BUFFER 
-*H DATACNV \ 


\ 


r 




PLHDBAD 


I user's key* | 


PLHDRO 







*for keyed processing 
ofKSDSonly 



•18. CN V processi ng 
No Yes 



►Return 



RO 



PLH 



PLHXBAD 



PLHXEO 



Sequence Set Record 



|F,L,P, | 



••19. Scan data control interval for the record with the 
given key, relative record number or RBA, and 
set return code 

*20. Was the end of data control interval reached? 

Yes No iHHH^ Return 



►21. If end of data (last sequence set entry: F=0, 
L=0) during forward processing set EOD flag 



Return 



F = Front compression count of key 
L =■■ Length of recorded key 
P = Pointer to corresponding CI 




PLH 



PLHDRO 



PLHDRDF 



PLHDRIX 



Of 



RO 



1 



LCD068 



LCD070 



IKQSCN 



return codes: 

: record found 

4 : no rec found 

8 : no rec found, end of CNV located 
12 : invalid RBA specified 



PLH 



:> 



PLHEOD 



LCD080 



Notes for Diagram GN 



Description 

10 If share option 4 was specified, and this is 

not the initial load of the data set, the 
data set is to be shared. 

13 Hold: 

If share option 4 is specified, buffer 
manager will issue a trackhold. 

Exclusive control: 

For multiple string processing, the buffer 
manager enters the RBA of the CI in an 
exclusive control list. 

17 See note 10. 

1 9 possible return codes for addressed 

processing 

• record found 

• invalid RBA 

possible return codes for RRDS processing 

• record found 

• no record found 

• no record found, end of CNV located 
(if requested slot is beyond 
Preformatted area) 

possible return codes for keyed processing 
of KSDS 

• record found 

• no record found 

• no record found, end of CNV located 
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Diagram GOl. Modify a data control interval 



PLH 



PLHFLAG 



RPL 



RPL 



RPLREQ 



PLH 



PLHXPTR 



1 . If insertion to end of data set indicate LOAD or 
RESUME LOAD 



/ 



/ 



/ 



/ 



/ 





RPLOPTi 


/ 




RPLREQ 






RPLOPT2 






RPLRLEN 


i 




RPLAREA 


\ User's area 




Data controJ interval 





pi. Control Interval processing? 
Yes No 



4 

CNV-processing 



— -^3. Insert request? 

No Yes 



\ 



\ 



<D 



4, User Buffer processing? 
No Yes 



5. Copy updated CNV into buffer 

6. Connect PLH and BCB to user's buffer 

7. Indicate 'must write' for the buffer 



8. Update request? 

Yes No 



Update 



>© 



L 



9. Is old record spanned? 

No Yes 



© 




OC 



Data Buffer 



data control interval 



=>© 



PLH 



TLHBAD" 



/' 



Module 
or label 



IKQMDY 
MDY010 




BCB 



MDY020 



BUFCBAD 
BltfCMW 



Diagram G02. Modify a data control interval 



to 
2 



to 



PLH 



PLHXPTR 



PLHDRL 



PLHDBAD 



PLHDRO 



k© 
-© 



RPL 



RPLREO 



RPL0PT2 



RPLRLEN 



RPLAREA 



Update continued 



______ — -^10. Locate mode specified? 

No Yes 



©--3 



^v 



' user s area 
j new record h 



data V buffer 



Upd 

No 



1 1 . Update with length change? 

No Yes 



1 

old record RDF 



^T 



X 



( D J ^Sl2. Replace old record with new one 

13. Indicate 'must write' for the buffer 



0- 



14. Erase specified? 
Yes No 

\ 

Erase 



AMDSB 



AMDATTR1 



0-- 



15. Is old record spanned? 

No Yes 

16. Relative record processing? 

r es No 



Yes 



Module or 
or label 



PLH 



:> 



PLHDBAD 



PLHDRO 



data \ buffer 



new record 



®J=®2. 



►© 



BCB 



BUFCMW 



MDY040 



data buffer 





empty slot 


RDF 

1 



17. Set invalid record indication and clear slot 

1 8. Indicate 'must write' for the buffer 



19. Set old-record-length = -new-rec-length to 
simulate update with length change 



II 



I 



© 



^© 



MDY043 
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Diagram G03. Modify a data control interval 
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RPL 



RPLRLEN 



RPLAREA 



AMDSB 



AMDATTR1 



Insert 



I 

— ^* 20. Relative Record processing? 

Yes No 



PLH 



PLHFLAG 



-^ H record \ l 



=> 



* 

Enc 

No 

4 



21. End of prefo matted area reached? 

No Yes 



AMDSB 



AMDATTR2 



22. Move record into its slot and indicate valid 
record in slot 

23. Indicate 'must write' for the buffer 



24. Set old record length =0 to simulate update with 
length change 



— -^25. Is the data set a key range data set? 

Yes No 



PLH 



PLHFLAG 



PLHDRO 



PLHDFSG 



fc— 



\ \ 



\ 



26. Is insertion point at the end of the data set or at 
the beginning of the control interval? 

no Yes wmmm^(2s) 



\ 



* 



\ 



Y 



\ 



ARDB 



27. Is insertion point at the end of the control 
interval? 



Yes 



No 



ARDHKRBA 



— — — > 28. If insertion to the end of key range indicate 

RESUME LOAD 



PLH 



PLHDBAD 



PLHDRO 



data i 'buffer 



record 



RDF 



it 



=o 



PLH 



©=c 



PLHDRL 



PLHLOAD 



^XD 



Module or 
label 

MDY046 



MDY050 



MDY055 



IKQKRD 



Diagram G04. Modify a data control interval 



PLH 



PLHDRO 



PLHSWTCH 



PLHDBAD 



PLHDCSZ 



Y 



*® 



Insert (continued) 



data buffer 



RDF 



29. Does record belong to a different key range or is 
this the first load? 



No 



Yes 



©- 



•30. Is insertion in front of or behind a spanned 
record? 



— ^31. 



Yes 



No 



RPL 



RPLOPT1 



PLH 



PLHDFSO 



PLHDRO 



PLHSWTCH 



AMDSB 



AMDFSCI 



If insertion is behind a spanned record and 
LOAD is not indicated, indicate MASS INSERT 

(44 



\ 



32. Addressed processing? 

No Yes 



33. Indicate MASS INSERT if sequential insertion to 
the end of a control interval and LOAD or 
RESUME LOAD is not indicated 



5^ 34. If LOAD or RESUME LOAD decrease actual 

free space by basic free space in order to 
maintain the percentage of free space specified 
by the user at data set define time 



Modify data CNV 



35. Build modified RDFs in PLH work area 
See Diagram GP, Build RDFs 



Module or 
label 

MDY070 



PLH 




MDY080 




MDY100 
- RDF shift count 

-Data length difference (NEW-OLD) 
—Actual free space 
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Diagram G05. Modify a data control interval 
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RDF shift count: Rl 

Data length difference: R5 
Actual free space: R6 



Modify data CNV continued 



— ^36. Is a control interval split required? 
R5<R6+R1 

No Yes 



PLH 



PLHDBAD 



PLHDRDF 



RDF 

modification 
point 



rec 1 



rec3 



RDF 3 RDF 1 



37. Shift RDFs on the left of RDF modification 
point to the left if more RDFs are needed 
to the right if less RDFs are needed 



( M ^ >38. Transfer changed RDFs 
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PLH 



PLHDRO 



PLHDBAD 



PLflWA 
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RPL 



RPL 



RPLREQ 



RPLAREA 



user s area 



-^» [recl" 



PLH 



PLHDFSO 



PLHDFSL 
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39. Shift records on the right of record-modification 
point 

to the left if less space is needed 
to the right if additional space is needed 



— i >=^40. Erase request? 

No Yes 



41. Insert updated or new record 

42. Update CIDF in data buffer and PLH 

43. Indicate 'must write' for a data buffer 



Module 
or label 



data buffer 



rec 1 


rec 3 




RDF 3 
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RDF 1 



:o 



rec 1 



rec 3 



RDF3 



RDF2 



RDF1 



MDY110 



MDY120 



MDY130 



rec 1 



rec 2 
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rec 3 



RDF1 



RDF2 RDF 3 



CIDF 




MDY140 



=>© 



amdsb 



AMDATTR2 



Tr^© 
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PLH 
PLHDFSO 



PLHDFSL 



Split data CNV 
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BCB 



MDY150 
MDY160 



BUFCMW 



44. If data set is shared, seize system split facility 



m 
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RURTAB(in SUPVR) 



MDY170 



Diagram G06. Modify a data control interval 



AMDSB 



AMDATTR1 



AMDCINV 



AMDCIPCA 



PLH 



PLHPRBA 



PLHSWT2 



RPL 



Buffer 



R15 



__ ___ p*45. Is this an ESDS? 

Yes No 



I 



-^ 46. Is a control area split required, or is a spanned 
record being inserted? 



No 



Yes 



47. Set lock for CI split 



RPLOPT1 >48. Is control interval processing being used? 

RPLOPT2 ^ * 

Yes No ■ Wi 54 



\ 

9 n !! 



/ 



PLH 

| PLHDBCB V ' 



there is a buffer connected to the PLH, write 
to disk 



50. Get a scratch buffer 



\ 



3 ;>5r. Return code 0? 

Yes No 



RPL 




.User 
Work Area 






©*-» 


UPLAREA 
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'.-. •■ : .SLi 1 
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52. User buffer processing specified? 

No . , ■ Yes 

t ' ~i A ^ > 53. IVtove control interval to buffer 



AMBL 



=C> 



AMBSECBT 



Data set 



c> 



\ 



\ 



\ 



\ Scratch buffer 
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or label 

MDY 17200 
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MDY17220 



MDY17222 



MDY 17224 









Diagram GOT. Modify a data control interval 
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54. Has high-used RBA been updated by a parallel 
task? 



Yes 



No 



55. Set error code requesting a restart 

£> 56. Write old CI buffer and get a new one 
See Diagram HI, REPBUFF 







RPLAREA 




I 







User 
Work Area 



Record 



57. Return code 0? 
Yes No 



\ 



c-=^0 



58. Clear new buffer 



ARDB 



£>59. Move first record into buffer, build RDF and 
CIDF, and copy information into PLH 



ARDHRBA 



Buffer 




^> 60. Indicate 'must write' for buffer and update PLH 
data RBA 



61. Write new buffer if multiple string processing is 
active? 

62. Return code 0? 



Yes 



No 




Module 
or label 

MDY 17226 



MDY 17228 



MDY 17230 



Diagram G08. Modify a data control interval 






AMDSB 



AMDATTR2 



63. Update high-used RBAs 

64. Release lock for CI split 

65. Split data control interval 
See Diagram GT, Control interval split 

> 66. If data set is shared, release system split facility 



R15 






J \ 



-2- 
-1 — 

-0 — 
=>0 — 



67. Check split return code 



>2 s*» retry via 1KQSRT 




AMDSB 



AMDATTR1 



AMDATTR2 



— - — -^ retry required 

— ^no error detected 

•:> error detected 



68. Reposition data PLH 

See Diagram GN, Locate data record and retry 
CNV modification 



, 69. Relative Record processing? 

tfes No 



Yes 



70. Load and speed? 

Yes No 



I /u. i 

L 
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ARDHRBA 

















AMBL 



AMBSECBT 



RURTAB (in SUPVR) 
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SYSSPM 
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Diagram G09. Modify a data control interval 
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PLHDBAD 



PLHDCSZ 



v— 



PLH 



-71. Reposition PLH to the required slot and retry 
CNV modification 



72. Indicate retry required 
Spanned record processing 



► Return 



PLHSWT 2 : 



r 



AMDSB 



AMDATTR2 -* 



"73. Is new record spanned? 
Yes No 



\ 



AMDSB 



■74. If data set is shared, seize system split facility 

75. Do required modifications for spanned records 
See Diagram GK, Store spanned records 



AMDATTRI 



^ 76. If data set is shared, release system split facility 



R15 
1 Return code [ - 



RPL 



II 



RPL6PT1 



RPLOPT2 



77. Error detected? 

No Yes 



L 






Return 



Common termination 



PLH 




--,,78. If user buffer processing or if direct processing 
~~ and NSP not specified, then write buffer 

immediately 

See Diagram HI, GETBUFF 
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Return 
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RURTAB 
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data buffer 
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Diagram GP1. Build new and/or changed RDFs for non-spanned KSDS and ESDS 
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PLHDRIX 
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RIO 



RDF count 



Example (5): 
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new 
record 







^ Point of insertion 
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L 


CIDF 







RDF pair 
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Update and insert processing 



-C7 



Is this request an ERASE? 

No Yes 



,2. Is the updated record the first record of a string 
or is insertion in front of a string? 



No 



Yes 



£>3. Transfer current RDF 



4. Is this an insert and is new record the same 
length as the other records in string? 



No 



5. Add 1 to RDF count 



<D 



►Return 




Example (5): 
PLH work area 
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Diagram GP2. Build new and/or changed RDFs for non-spanned KSDS and ESDS 



Example {6,1, and 9): 



Update and insert processing (continued) 
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updated 

record (R3) with 

length change 
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h R 4 S \ 
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CIDF 



RDF pair 



6. Create RDF for records in front of the new or 
updated record 

7. Create RDF for new or updated record 

8. Is this an insert? 

No Yes 



9. Create RDF for records 

following the new or updated 
record 

►Return 



10. Is there any record in the string of equal-length 
records behind the new or updated record? 



No 



Yes 



Example (6): 
PLH work area 
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Example (7): 
PLH work area 
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tength of updated record 


Example (9): 
PLH work area 
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Diagram GP3. Build new and/or changed RDFs for non-spanned KSDS and ESDS 



Example (12): 



y. new or updated 
# record (R 3 ) with 











length change 
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RDFs 



Example (14): 
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new or updated 
^ record (R3) with same 
^ length as previous string 



R 4 
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CIDF 
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L 2 



CIDF 



RDFs 



Li -> Ri , Rn 
L 2 ^ R 3' R 4 



Example ( 1 8) 
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Lj -»- Rj,R 2 , R 3 



Update and insert processing (continued) 



1 1 . Can the new or updated record be combined 

with the preceding string of records (if there is a 
preceding string of records)? 



No 



Yes 



12. Create a single-record-length-count RDF for the 
new or updated record 



13. Is this an insert or an update? 
Insert WtKK^^C\l) Update! 



14. Attach new or updated record to previous string 
of equal-length records 



15. Is this an insert or an update? 
Update Insert I 



► Return 



1 6. Does the current RDF have an RDF count? 

No Yes 



© 



17. Can the last RDF in the work area be combined 
with the next RDF (if there is a next RDF)? 



Yes 



No 



►Return 



18. Combine last RDF in work area with next RDF 



t 



Return 



Example (12): 
PLH work area 



Example (14): 
PLH work area 
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Example (18): 
PLH work area 
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Diagram GP4. Build new and/or changed RDFs for non-spanned KSDS and ESDS 
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Erase processing 



19. Does the current RDF have a count? 

Yes No 



\ 



20. Build a replication-count RDF with the current 
RDF count reduced by 1 (for the record to be 
deleted) MHaH^Return 

Jl\. Can next RDF be combined with previous RDF 
(if there are next and previous RDFs)? 



Yes 

\ 



No 



►Return 



22. Combine previous and next RDFs 



Return 



Example (20): 
PLH work area 



3 L 



Example (22): 
PLH work area 





3 


L l 



Module 
IKQBLD 



Notes for Diagram GP 



to 



Description 

1 -5 RDF processing takes place if the updated 

record is not the first record of a string or 
if insert record is inserted into the middle 
of a string. In either case, the string must 
consist of equal-length records. 

3 If the RDF index is equal to 1 , the 

updated or new record may have the same 
length as the record(s) described by the 
previous RDF. For update, the RDF-build 
routine is entered only if the length of the 
updated record differs from the length of 
the original record. 

5 If the new record has the same length as 

the records described by the previous RDF 
and the RDF index in the PLH is equal to 
1 , and if the previous RDF does not have 
an RDF, an RDF count of 2 has to be 
created for the previous RDF. 

6-10 RDF processing takes place if the record 

to be updated is in the middle of a string 
or if the record to be inserted into a string 
has a length different from the length of 
the records in the string. In either case, 
the string must consist of equal-length 
records and the RDF must be split. 

11-18 RDF processing takes place if the first and 
possibly only record in a string is updated 
or if a record has to be inserted in front of 
the string. In either case, the string must 
consist of equal-length records. 

"9 RDF processing takes place for records to 

the right of the new or updated record if 
the insertion is into the middle of a string 
of equal-length records and the length of 
the new record is different from the length 
of the records in the string or for any 
update with length change. 



Label 

IKQBLD00 



Description 

19-20 For an ERASE request, the RDF-count of 
the RDF describing the record to be 
erased is reduced by 1 if the count was 
previously greater than 1 . If the count was 
2, the new RDF will not have a replication 
RDF. 

21-22 If the record to be erased was described 
by an RDF without count (the record 
being the only one of that length), and if 
the neighboring RDFs have the same 
length count (that is, represent records of 
the same length), the RDFs can be 
combined to a single RDF with replication 
count. 



BLD010 



BLD040 



BLD160 



Label 

BLD180 



BLD210 



4^ 



< 






< 

> 

2 



Diagram GQ1. GETNXT: Get next buffer and read ahead 



PLH 



PLHHELD — 



<5> 



1 . Attempt to get an extra BCB 
1 . 1 Successful? 

Yes No 



►Return 



Data buffer 



L 



PLH 



Register 
save area(RO) 



RPL 



^-2. If the track is held, save indication that control 

area is in exclusive control while sequential 
processing takes place 

3. Point to GETNXT index buffer (R4) and 
GETNXT data buffer (R3) 



■ 4. Free the old data buffer 

See Diagram HI, Perform REPBUFF function 
■5. Is the overlap function specified? 

No Yes OCBD^(l9) 

► 6. Is this a keyed request? 

Yes No 



AMDSB 



AMDATTR1 



tD^J) 



.7. Is this relative record processing? 



Yes 



No 



UM=J+@ 



8. Point to the next data for ESDS or RRDS 

9. End of data? 
No Yes K15) 



I 



=>[ 



RPL 



RPLERRCD 



PLH 



PLHHELD 



PLH EC 



:> 



R3 



1 c 



R4 



Label or 
routine 



IKQBFA30 



IKQGNXOO 
IKQBFA30 
GNXOOO 



GNX005 
IKQBFA10 



GNX005 



GNX010 



GNX260 
PTANDOOO 



Diagram GQ2. GETNXT: Get next buffer and read ahead 



to 

2 






PLH 



PLHXRBA 



10. 



.11 



Is there an index BCB? 

No Yes 



Index buffer 



4 

Is tl 

Yes 

4 



Is the next index in storage? 

Yes No 



> 



R4 



14. 






12. Initialize the new index pointers 

'. 13. Is position at end of sequence-set record? 

es No 



4 



Is there a horizontal pointer? 

No Yes 



4 

Is tl 
Yes 

4 



Is this GETNXT processing? 
Yes No 



16. Indicate end of data 



►© 



►Normal Return 



17. Point at the next index entry 

18. Change index pointer into a data RBA value 

19. Is this a position-only request? 

No Yes 



© 



PLIL 



0> 



PLHEOD 



Label or 
routine 

GNX010 



GNX250 



GNX180 
INITI000 
GNX010 



GNX120 



GNX130 



GNX010 

ADVIX000 

GNX020 

PTATD000 

GNX030 






Diagram GQ3. GETNXT: Get next buffer and read ahead 



R4 



< 



3E' 



< 
> 



-j __ -_ _i^20. 



PLH 






R15 






AMDSB 



RPL 



-21. 



•22. 



23. 



Is this GETNXT processing? 

No . Yes 

w 

--Get indicated read-ahead buffer 
See Diagram HI, Get buffer 

Did an error occur during read-ahead? 

No Yes 






increment the read-ahead count to include new 
buffer just read in 

Can read-ahead be done? 

Yes No 



I 



User buffer, share option 4, 
or catalog specified 



^r 



BHD 



25. 

26. 

27. 



Point to RDAHD index buffer (R4) and 
RDAHD data buffer (R3) 

Increment temporary Tead-ahead count 

Has read-ahead been started on all buffers that 
^an be read in at one time? 



No 



Yes 



•28. 



Have all the buffers assigned to the PLH been 
read? 



No 



£>{ 



R7 



:£> 



R3 



:>[ 



Rl 



R4 



Label or 
routine 

GNX030 



GNX1G0 

IKQBFA10 

GNXiOQ 



GNXIOO 



GNX030 



GNX030 



GNX050 



GNX050 



Diagram GQ4. GETNXT: Get next buffer and read ahead 



PLH 



PLHIXSSV + 4 



PLH 



PLHEC 



-29. Is the overlap function specified? 
No Yes 



• 30. If control area was held in 
exclusive control during 
sequential processing, restore 
indication that track hold 
condition is active 



► Normal Return 



R0 



RPL 



D— ■ 



R4 



IXHDR 

1 IXNXTIR 1 



31. Point to GETNXT index buffer (R4) and 
GETNXT data buffer (R3) 

►32. Has exclusive control been requested? 

Yes No ■■M^{34 N ) 

33. Indicate that exclusive use is needed 

34. Get the next indicated buffer 

See Diagram HI, GETBUFF 

»35. Is this non-control-interval processing and is the 
control interval empty? 



No 



Yes 



*36. Is this GETNXT processing? 

Yes No 

•37. Is the next buffer in storage? 

Yes No 



* 



38. Handle horizontal pointer for GETNXT 



Label or 
routine 

GNX070 



PLH 



£> 



PLHHOLD 



:> 



R3 



R4 



PLH 



:> 



PLHEHOLD 



GNX080 
IKQBFA10 

GNX085 



GNX140 



GNX142 









Diagram GQ5. GETNXT: Get next buffer and read ahead 



< 

r; 



< 

> 



R15 






BCB 



BUFWRINV 



39. Free the sequence-set buffer and place RBA in 
parameter list 

See Diagram HI, Perform FREEBUFF function 

■40. Was an I/O error encountered? 

No Yes EE!D^ Error return _ 



AMDSB 



AMDATTR2 



R15 



■41. Did some other string write this RBA of the 
index (resulting in valid but obsolete data)? 



Yes 



No 



42. Indicate that buffer content is invalid 

■43. Is this a track hold data set? 

Yes No 



44. Remember first read of index 

45. Get the next sequence set buffer 
See Diagram HI, Perform GETBUFF 

^-46. Was there an I/O error? 

No Yes 




Error return 



47. Did another string write this RBA? 

Yes No 

48. Indicate that buffer content is invalid 



PLH 



^{ 



PLHXRBA 



PLHINDEX 



PLHBINDX 



BCE_ 



O 



BUFCVAL 



R5 



C€ 



PLH 



=> 



PLHINDEX 



PLHBINDX 



BCB 



:> 



BUFCVAL 



Label or 
routine 

GNX145 

IKQBFA10 

GNX170 
GNX300 



Diagram GQ6. GETNXT: Get next buffer and read ahead 



PLH 



PLHEC 



BHD 






*49. Is the track under exclusive control? 

Yes No MNH^U?) 

50. Point at first RBA 

51. Is this the first read of index record? 

No Yes 



1 



52. Read data record with track hold 
active 



53. 



54. 

^55. 



Does this index record point to the same data 
control interval? 

Yes | 

Handle horizontal pointer for read-ahead 

If there is only one index buffer, free the BCB 

Set Diagram HN, FREEBUFF and return BCB 



I 



29] Continue GETNXT 



PLH 



O 



PLHEHOLD 



PLHHELD 



Label or 
routine 

GNX180 



GNX200 



GNX240 
IKQBFA20 



to 
-J 



O 



< 






< 
zn 

> 

2 



Diagram GRI. GET PREVIOUS: Retrieve previous record 



ra 



PLH 



PLHHELD 



Data buffer 




i i- 


RPL 


1 h 



1 . Attempt to get an extra BCB 

► 2. If the track is held, save indication that control 
area is in exclusive control while sequential 
processing takes place 

3. Point to GETNXT index buffer (R4) and 
GETNXT data buffer (R3) 



— — >*4. Free the old data buffer 

See Diagram HI, Perform REPBUFF function 

► 5. Is this a keyed request? 

Yes No 



AMDSB 



AM DATTR1 I ^-6. Is this a relative-record data set? 

No 



PLH 



PLHXRBA 



Index buffer 
I I - 



Yes 



7. Point at the next data for ESDS or RRDS 

8. End of data? 
NoHHB^(l3) 



* Return 



■■9. Is position at start of sequence-set record? 

No 



C> 



PLH. 



PLHHELD 



PLHEC 



=> 



R3 



J L 



R4 



JS.JOM 

-o>l PLHFLAO- 



Label or 
routine 



IKQLCP 
LCP200 



LCP210 



LCP370 
PTANDOOO 



Diagram GR2. GET PREVIOUS: Retrieve previous record 



RO 



> 



RPL 



10. Indicate that previous index control interval must 

be read — 

MHH^ Return 

1 1 . Point at the next index entry in backward 
direction 

12. Change index pointer into a data RBA value 

13. Point to GETNXT index buffer (R4) and 
GETNXT data buffer (R3) 



-14. Has exclusive control been requested? 
Yes No 



PLH 



1 5. Indicate that exclusive use is needed 

16. Get the next indicated buffer 
See Diagram HI, Get buffer 

►17. Is the control interval empty? 

No Yes 



f- 

Return 



£> 



PLHSWT1 



PLH 



=> 



PLHEHOLD 



Label or 
routine 



LCP240 



PTATD000 



LCP300 



LCP310 



LCP320 






to 
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> 
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Diagram GS1. VERIFY: Reestablish high-used and high-key RBAs 



data AMDSB 



Index AMDSB 

1 



m 



AMDSB 



AMDSPEED ■ 



DataCNV 



CIDF 
=0 



1. Point to data AMDSB 
'2. Is speed option currently in effect? 



No 



Yes 



— .^3. For each preformatted ARDB search, starting 



SEOF 



/ 



/ 



11 




n 






Chain of 

data 

ARDBs 





/ 



a 



xC 



Chain of 

index 

ARDBs 



[F 



/ 



/ 



ACB 



ACBKEY 



with the current high-used RBA, control 
interval-by-control interval, for a software 
end-of-file until either the SEOF is found or the 
end of the allocated space has been reached, 
thereby updating the high-used RBAs 
CNV-by-CNV 

See Diagram HI, GETBUFF: Get CNV pointed 
to by high-used RBA 

4. Set high-water RBA to maximum data high-used 
RBA 



5. Processing data? 

Yes No 



Yes 



6. Store new data high-water mark in AMDSB 
— — -^ 7. Is data set open for keyed processing? 



Yes 



No 



8. Point to index AMDSB 



Module 



IKQVFY 



Data AMDSB 



=> 



AMDHWRBA 



Diagram €82. VERIFY: Reestablish high-used and high-key RBAs 



data AMDSB 

1 








n 






n 






Chain of 
data 
_J— » AMDSBs 




Index AMDSB 

1 










rr 






n 






J— 


Chain of 

index 

AMDSBs 























9. Store new index high-water mark in AMDSB 

•10. Reestablish high-key RBAs of data ARDBs by 
searching index for high-key of ARDB (X'FF' if 
not in key range) and convert pointer of index 
entry found into high-key RBA 

See Diagram HB, Search index for ARDB high 
key 

1 1 . Invalidate PLH positioning 



/ 



/ 



/ 



/ 



PLH. 



/ 



^ . invalida 
Return 



PLHFLAG 



/ 



/ 



Index AMDSB 




PLH 



C> 



PLHFLAG 
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V 
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V 

> 

2 



Diagram GT1. Control interval split 



Data control 

interval RIO ] 

I 1 L 11 


Rll 

1 


\ 
C 

Index record 

i i i 


1 Data AMDSB 1 


IAMBL 

1 

R13 

1 


i r 

EU2 

1 I 


c 


'RPL VPLH 


\ { 


1 







I 



*Diagrams HH.GO 



Data AMDSB 



/ 



y 



>■• 1 . Acquire and initialize work area, if needed, and 
ensure that another request for this data set 
cannot split this or any other control interval 
before this split is complete 

2. Determine type of processing: Keyed load, keyed 
/* insert, entry-sequenced, or relative record 

3. If keyed processing, and if current index record 
is invalid, search index again 



PLH 



n-- 



See Diagram HB: Search index 
Keyed load processing 



Work area 



4. Perform load, resume load, and mass insert 
operations for keyed-sequenced data sets 

See Diagram GT3, CILOAD: Keyed load 
processing 



Keyed insert processing 



5. Find split point and insure room in control area 
for split 

See Diagram GT7, CINSRT: Control interval 
insert initialization 

6. Split one control interval into two 

See Diagram GT9, C1SPL2: Control interval split 



f 



CIWA 




oc 



CIWA 



Routine or 
label 



IKQCISOO 
CIINIT 



IKQCIS10 



IKQCIS40 



IKQCIS60 



IKQCIS80 



Diagram GT2. Control interval split 



Relative record processing 



7. Preformat next control intervals 



See Diagram GV. Preformat relative record data 
set 



Entry sequenced processing 



8. Obtain a new control interval and store the 
record 

See Diagram GT11, CINTRY: Entry sequenced 
processing 



/ 



/, 



9. Does return code indicate a failure to find space 
** for an entry in the index record? 



/ 



/ 



R15 



/ 



y: 



PLH 



No Yes 

I 4 

■ 10. Mak 
B inde: 



Make room for entry in the 

index record ^^^^^^Cl\ 

'11. Is any other type ofeYror indicated? 

Yes mn^0 



No 



"2 ^ 12 - Adjust PLH to reflect the current (new) data 

control interval 

13. Stop read-ahead on all strings (flag=0) 

14. Dequeue the split capability to free it for further 
use 



t 



PLH 




Label or 
routine 

IKQCIS85 
IKQRRP 



IKQCIS20 



IKQCIS95 



CINXRM 



IKQCIS93 



IKQCIS95 



Return 



to 
oc 



to 



Notes for Diagram GT1 and GT2 



r 



n 



< 

> 



Description 



This routine is a recovery routine, called 
when control interval split processing must 
be interrupted after partial completion due 
to unavailability of index space in the 
first-level index record. Partially filled 
buffers are purged, the control area split 
switch is turned on, and control interval 
split is restarted. 



Module or 
routine Label 



CINXRM IKQC1S94 



Diagram GT3. CILOAD: Keyed load processing 



(gtTJ 



1. Is this a call from the spanned record update 
routine (IKQSRU)? 



Yes 



No 



<D 



2. Is this the last call from the spanned record 
update routine (IKQSRU)? 



Yes 



No 



<D 



/ 



X 



3 . Free the new index buffer and get it back 
See Diagram HI. GETBUFF 



4. Is a control area split required? 
Yes ■■►(16) No I 

5. Is there a key range change? 



►Return 



/ 



/ 



S 



Yes 



No 



•© 



PLH 



/ 



6. Is current ARDB pointer (PLHDCRDB) 0? 

No Yes 



\ Y^ 



1 



7. Point to next ARDB 



Initialize first key range 






I 



CIWA 




Label 

or Routine 



IKQCIS00 
CILOAD 



CILOAD01 



CILOAD03 



CILOAD04 






< 



si 
< 



Diagram GT4. CILOAD: Keyed load processing 



PLH 



_L ^.9. Is this the first request to data set? 

No Yes ■■■^^(h) 



CIWA 

1 I - 



Index header 



10. Is a new control area needed? 

Yes No 



1 1 . Perform control interval space reclamation 

See Diagram GU. Control interval space 
reclamation 

12. Is a new control area still required? 

Yes No 



13. Save high key from previous control area 

See Diagram GZ. Split CA: Perform key 
decompression and count index entries 



©---! 



-14. Set key entry length to to represent null key 
Get a new control area 



r 



15. If the active control interval is at the end of the 
control area, get a new control area 

See Diagram GX. Obtain new control area 

(b) ^|16- If the active control interval is in the middle of 

the control area, get exclusive control for the 
control area and then split the control area 

See Diagram GZ. Split CA: Split the control area 



Control area 



If 




Label or 
routine 
CILOAD05 



CILOAD 06 
IKQCIR 



CILOAD07 



CILOAD 10 



CILOAD1 1 
IKQNCA 



CILOAD 12 
CASLNK 



Diagram GT5. CILOAD: Keyed load processing 



AMDSB 



>■ 



Index 
AMDSB 



Index header 



Control area 



Control 
interval 



Buffer 



record 



CIWA 



PLH 



,17. Allocate a control interval from the new control 
area, get a buffer and move the first record into 
it 

18. Is this speed mode processing? 

Yes 



No 



AMBL 

t 


PLH 
1 t 1 


Index 

AMDSB 

1 


RPL 
1 I [ 





Index header 

i i 


PLH 
1 1 


Buffer header 

i i 


CIWA 

1 1 





•19. Write the data record 

See Diagram HI. GETBUFF: Force write the 
new data record 

20. Get the old index buffer back to update the 
horizontal pointer and set in the last key 

See Diagram HN. FREEBUFF: Force write new 
index record 

See Diagram HI. GETBUFF: Get old index 
record 

-21. Rear compress the last key for entry in the old 
index buffer 

r 22. Insert last key into the old index record and also 
in the next level 

See Diagram GW. Format index: Format old 
index record 

See Diagram GY. Create index entry: Insert next 
index level entry 



Buffer 




C> 



Data control interval 



record 



C>C 



PLH 



Index header 




Routine 
or label 
CILOAD 16 
NEWCI 
BUFFCI 
ONEREC 

CILOAD 17 



CILOAD20 
CILOAD30 



RCOMP 



CILOAD47 









Diagram GT6. CILO AD: Keyed load processing 



< 






AMBL 

I 


I 


PLH 

t 

ciwa 

[ 


1 
[ 


Buffer header 

i 


1 







PLH 



> 



AMBL 



: c 



AMBL 



Control area 



Control 
interval 



►23. Get the new index record back after writing old 
index record 

See Diagram HB. Search index: Get new buffer 
back and free old buffer 

24. Release the original data buffer 

See Diagram HR FREEBUFF: Release old 
buffer 



t Return 
to caller 






PLH 



Index AMDSB 



RPL 



Allocate a control interval from control area, get 
a buffer for it, move the record, and build RDF 
in it 



26. Free new data buffer and get it back . 

See Diagram HI. GETBUFF: Free new buffer 
and get it back 

27. Is this a call from the spanned record update 
routine (HCQSRU)? 



28. Mai 



No 



Make a sequence set entry for the spanned 
record segment. 

See Diagram GY. Create index entry 



►Return 



— -^.29. Rear compress the previous key 



CIWA 



js^-30. Make a sequence set entry for the completed 
control interval 

See Diagram GY. Create index entry: Make 
entry in index 



Buffer 



:> 



record 



=0[ 



Index header 



£>C 



Buffer 



Routine 
or label 



CILOAD50 



QLOAD06 
NEWCI 
BUFFCI 
ONEREC 



QLOAD85 



CILOAD86 
RCOMP 

CILOAD88 



Return 



Notes for Diagrams GT3 - GT6 



Description 

5 For key range processing, pointers in the 

PLH are set for both the current ARDB 
and the ARDB for the key range in which 
the insert activity will take place. If these 
are not the same, one key range must be 
cleaned up before the next can be 
accessed. Any intervening key ranges must 
also be formatted and have index records 
built for them. 

7 The pointer to the current ARDB is saved 

in the work area and the pointer to the 
next ARDB is updated in the PLH. 

11 If the CI split routine determines that a 

CA split is necessary (as there are no free 
CIs available), it first calls IKQCIR, which 
searches for CIs whose contents have been 
erased, their space and informs IKQCIS, 
which then attaches a reclaimed CI. If 
there are no CIs which can be reclaimed, 
IKQCIR informs IKQCIS, which then 
continues with a CA split. 

15 Key range processing is the same as 

normal except IKQNCAOO allocates only 
from the ARDB for the target key range. 
When a key range is exited, the dummy 
(F=L=0) index entry is replaced by the 
high key of the key range. If a key range 
is skipped, an index record must 
nevertheless be allocated and a control 
area formatted. 



Module or Label 
routine 

IKQCISOO CILOAD03 16 



20 



IKQCISOO 



IKQCIR CILOAD11 



21 



22 



IKQNCAOO 



25 



Description 

If a mass insert is being made, the packing 
factor is ignored, and the control area is 
split at the end of the active control 
interval (unless it is the last in the control 
area - see step 8). 

If processing is being done in speed mode, 
the REPBUF step is skipped. If processing 
is being done in recovery mode, the write 
is forced by means of the combined 
FREEBUFF and GETBUFF, implied by 
REPBUF. 

If there is not a key range change, the 
high key from the last control interval 
processed is picked up and rear 
compressed. 

If there is a key range change, the key 
range high key is picked up from the 
ARDB and replaces the key of the last 
entry in the record. The record is 
formatted and IKQIXE00 is called to 
make the next index level entry. 

In normal record processing, records are 
added to the end of a control interval. 
When the packing factor is reached, a new 
control interval is obtained. When the 
packing factor for a control area is 
reached, a new control area is obtained. 



Module or 
routine 

IKQCAS00 



IKQCISOO 



Label 

C1LOAD12 



CILOAD20 
CILOAD30 



RCOMP 



NEWCI 



CILOAD60 



IKQCISOO CILOAD47 









Diagram GT7. CINSRT: Control interval insert initialization 



< 



in 



< 

> 



RPL 



RPLOPT1 



Buffer 



Control 
interval 



RDFs 



Buffer 



L 



Data AMDSB 



1 . Get scratch buffer and build RDF string 

See Diagram HI. GETBUFF: Get scratch buffer 

2. Is this a mass insert? 



Yes 

I 



No 



3. Count records to mid- point of 

CNV 



- 4. Scan RDFs until the point is reached where the 
current record is to be inserted 

5. Save record count to insert point 

>6. Scratch the buffer acquired in step 1 

See Diagram HN. FREEBUFF: Release the 
buffer 

• 1. Are there enough control intervals in the current 
control area to do the split? 



No 



Yes 



►Return 



8. Perform control interval space reclamation 

See Diagram GU . Control interval space 
reclamation 



Buffer 



X> 



Control 
interval 



RDFsl 



Module, 
routine, or 
label 



IKQCISOO 
CINSRT 

CINSRT30 



CINSRT34 



CINSRT40 



CINSRT90 



CINSRT95 



IKQCIR 



Diagram GT8. CINSRT: Control interval insert initialization 



9. Are there now enough control intervals available? 
No Yes MHBI^Return 

10. Get exclusive control for the control area and 
then split the control area 

See Diagram GZ. Split CA: Split the control area 



Module, 
routine, or 
label 



CINSRT98 
CASLNK 



Return 



to 



■sO 



Notes for Diagrams GT7 - GT8 



< 



< 



< 

> 



Description Module Label 

The halfway point in the control interval is IKQCISOO CINSRT34 

calculated by taking into consideration not 
only the length of the data records, but 
also the length of the associated RDFs and 
the required CIDF. 

Compute the amount of space required for IKQCISOO CINSRT40 

all records and their control fields up to 

the point of insertion. The length of the 

new record and its RDF are added to the 

prior total to give the point at which the 

split will take place. Both the record count 

and the total of all space needed up to the 

point of split are saved. 



11 If the CI split routine determines that a CA split 

is necessary (as there are no free CIs IKQCIR 

available), it first calls IKQCIR, which 

searches for CIs whose contents have been 

erased. If IKQCIR finds such CIs, it 

reclaims their space and informs IKQCIS, 

which then attaches a reclaimed CI. If 

there are not CIs which can be reclaimed, 

IKQCIR informs IKQCIS, which then 

continues with a CA split. 



Diagram GT9. CISPL2: Control interval split 



Control area 



Buffer 



AMDSB(data) 



Buffer 



Control 
interval 



RDFs 



| 



1. Allocate a new control interval and get a buffer 
for it 

-2. Build the control interval containing the low-key 
records as a result of the split 

3. Is the JRNAD exit active 

Yes No 



4. Perform journalling 

See Diagram HU. Journal a transaction 

-5. Rear compress the high key of this new control 
interval 

See Diagram HN. FREEBUFF: Release buffer 
and force write data in new control interval 

6. Make an index entry for the current record 
See Diagram GY. Create index entry 

7. Get a scratch buffer to work in 

See Diagram HI. GETBUFF: Obtain buffer 

8. Build the control interval containing the high-key 
records as a result of the split 



I 



=>C 



Buffer 



Routine 
or label 



IKQCISOO 



=©=> 



^© 



C> 



c> 



Buffer 



Index record 



:>£ 



Buffer 



PLH 


Buffer 




1 1 


Control 
interval 













NEWCI 
BUFFCI 

NEWRDF 
OLDRDF 





R6 






Compressed 
key length 


R8 

1 tKey | 











RCOMP 



CISPL244 



CISPL245 



NEWRDE 
OLDRDF 









Diagram GT10. CISPL2: Control interval split 



< 






< 

> 

2 



R15 



2 



Buffer 



9. Write this data control interval 

See Diagram HN. FREEBUFF: Release control 
interval just built and overwrite data in old 
control interval 



-^10. Was an error code set? 

Yes HE^ Return 



No 



11. Set -1 in register 15 



S> 



Data 

control 

interval 



=>I 



R15 



Routine 
or label 

CISPL275 



Return 



Notes for Diagram GT 10. 



Description 

9. Until this control interval is written, the 

low key records exist both in this control 
interval and in the new control interval 
written previously. 

11. The -1 code indicates to the caller 

(IKQMDY) that a split has taken place 
but no data has been inserted. IKQMDY 
must retry the insert or update operation 
that caused the original call to IKQCIS00. 



Module 



Label 

CISPL275 









< 



vi 



< 

vi 

> 

2 



Diagram GTIL CINTRY: Entry-seqaeiieeil cferta set preceding 



/ 



/ 



/ 



/ 



/ 



1 . Is this a call from the spanned record update 
routine (IKQSRU)? 

_Yes No 



PLH ^ 
I PLHSWT2 I ■* 2. Is it the last call from that routine? 

Yes 



\ 

Is it 

No 

\ 



►Return 



3. Is a new control area required? 
Yesmm^C&) No ■ 



PLH 



PLHSWTCH 



PLffDRBA 



-^4. Is this the first request for this data set? 

No Yes 

^5. Is a new control area required? 



AMDSB 



AMDCIPCA 



AMDCINV 



ir 



Yes 



No 



6. Get a new control area 

See Diagram GX. Obtain a new control area 

I ARDHRBA 1 5^ 7. Compute the RBA of the new control interval 

PLH 



ARDB 



PLHDCNV 



•■8. Release the previous control interval buffer 
See Diagram HI. GETBUFF 

9. Get a buffer for the new control interval and 
move the user's record into it 



T 



Control area 



£> 



ARDB 
:^> 1 ARDHRBA 



Label or 
routine 
IKQCISOO 
CINTRY 



CINTRY03 



CINTRY 10 



CINTRY20 



BUFFCI 
ONEREC 



Return 



Diagram GUI. Control interval space reclamation 






CIWA 



CIWFLAGS 



m 



Data AMDSB 



AMDDELR 



AMDLDELR 






» 1 . Was control interval space reclamation already 
done? 



No 



Yes 



Data AMDSB 




PLH 




AMBL 
















AMDCIPCA 


PLHSTRID 


AMBLPLHN 


AMDCINV 


PLHDRBA 


AMBALIST 















2. Indicate space reclamation was done 
.3. Were records erased in this data set? 

No 



Yes 



Data AMDSB 



AMDKEYLN 



AMDCINV 



- 4. Take data control area into exclusive control 
exclusive control error QEMJC^(29 

5. (Deleted) 



6. Position PLH to the rightmost index entry in 
sequence set record 



— — -^ 7. Is current index entry for a spanned record? 



& 



Sequence Set Record 






No 



Yes 



8. Is only one index entry in sequence set record? 

No Yes wmmm^GsS) 



t 



CIWA 



=> 



CIWFLAGS 



AMBL 



=X 



AMBLORBA 



AMBHIRBA 



PLH 



:> 



Index PLH 



Module or 
label 

IKQCIR 
CIR001 



RGETEX 



Sequence Set Record 

| | entry | aitry | 



POINT 



CIR010 






Diagram GUI. Control interval space reclamation 



Data AMDSB 



< 



VI 

< 



< 

V 

> 

2 



AMPKEYLN 



AMDCINV 



PLH 



PLHDRBA 



/ 



9. Save pointer to current data control interval and 
compute its RBA 

J^ 10. Test if this data control interval is already 
^ attached to the PLH 




/ 



Rl 



CIWA 



/ 



/ 



CIWDRBA 



CIWDFSO 



No 



Yes 



\ 



:=r 1 1. Scratch the previous data control interval (if any) 

and read the current data control interval 

\ 



\ 



\ 



\ 



\ 



\ 



Sequence Set record 




| header | F | F § 


_[ E i Ec t Ep , E | 






PLH 




J 


1 










\ 


index PLH 

















See Diagram HI,- GETBUFF 

error detected 

*12. Is the current data control interval empty? 

No ■■D^i 



Yes 



13. Indicate space was reclaimed 



^* 14. Find a previous and a current index entry (Ep, 

Ec) and construct a resultant index entry Er in 
the space of Ec and Ep 



\ 



\ 



\ 



\ 



Y 



15. Scratch previous entry Ep 

16. Enter the pointer to the empty data control 
interval into the 'Free CI Pointer List' 

17. Update index header to reflect the sequence set 
record changes 

4 8. Position index PLH to next index record 



CIWA 



CIWSAVP 



CIWDRBA 



Module or 

label 

CIR020 



CIWA 




CIR030 



Sequence Set record 

| header t F t F | [ E , Ec t Ep , 

ft 



EI 

CIR04D 



Er 



Sequence Set record 



t ^> header | F l F t F' i 



_e_i_ell 



CIR110 



z>® 



E = index entry 

Ec = current entry 

Ep = previous entry 

Er = resultant 

F = free data CI pointer 



CIR130 



Diagram GU3. Control interval space reclamation 



PLH 



PLHXEO 



CIWA 



CIWCIRSW 



Work Area 



PLH 



PLHDCRDB 



PLH 



^19. Is the end of the sequence set record reached? 



index header 



IXLENTRY 



y 



Yes 



No 



*20. 



Sequence Set Record 



Test if space actually was reclaimed 

No 



I 



ARDB 



ARDHKRBA 



R2 



tUser's key 



Rl 



key length 



"21. Format sequence set record 

See Diagram GW, Format index 

error dete cted , 
No error 

22. (Deleted) 



23. Write sequence set record 

See Diagram HI. REPBUFF 

No error error detected. 



-24. 
*25. 



Update high-key RBA in data ARDB if required 
Establish correct index PLH positioning 

See Diagram HB: Search Index 

no error detected^ 
Error detected 



formatted index record 



:OC 



Data set 




Module or 
label 



CIR150 



IKQIXF00 



CIR160 

IKQRBA 
CIR170 






o 



> 



Diagram GU4. Control interval space reclamation 



y 




PLH 




sequence 


set record 




< 












J1 


PLHINDEX 


r 












yi 






< 


l 


PLH 




Rl 

I key length | 

R2 


4< 










J 



CIWA 



CIWCIRSW 



.>>26. Indicate space wasn't reclaimed scratch new 

sequence set record and read the old one 

See Diagram HI, GETBUFF 

No error error detectedj 

"27. Establish correct index PLH positioning 

See Diagram HB, Search index 

No error error detecte^x-N 

28. Release data CA from exclusive control : 

•29. Set return code MBM^ Return " 

30. Release data CA from exclusive control 

* Return 



Notes for Diagram GU (Part 1 of 2) 

IF IKQGIS00 determines that there are no CIs available 
for a split (IKQCAS00 is required), IKQCIR is first 
called. IKQCIR ensures that records have been deleted 
from the data set and then reads every CI within the 
appropriate CA, looking for all CIDFs that indicate that 
all records in the CI have been deleted. If such a CI is 
not found, then the CA must be split. If one or more 
deleted CIs are found within the CA, the index sequence 
set is adjusted to indicate that CIs are available. Control 
returns to IKQCIS00 to process the now-freed data CI. 



CIWA 



=> 



CIWCIRSW 



Module or 
label 

CIR180 



old sequence set record 



:£> 



R15 

-^> \ Error code 1 



PLH 



=> 



PHLINDEX 



_r R15 

_^> | Error code \ 






AMBL 



AMBLORBA 



AMBHIRBA 



~ R15 
-, ^> \ Return code | 



Return codes: 

Rl 5 = : space reclaimed 

R15 = 1 : no space reclaimed 



CIR190 

CIR200 
CIRERR 



Notes for Diagram GU (Part 2 of 2) 






Description 

14 The current index entry is the one pointing 

to the empty data CI, and the previous 
entry is the one to the right of this in the 
index record, except where the current 
entry is the first (rightmost) entry in the 
index record. In this case, the pointer from 
the next entry (to the left) is transferred 
to this entry and the next entry is used as 
the current entry, with the entry which 
points to the empty data CI now acting as 
the previous entry. This modification is 
necessary in order to allow the use of 
uniform processing for both cases. 

The resulting index entry Er is formed 
from the current Ec and previous Ep 
entries in the following manner: 

If the front compression count Fp of the 
previous entry is greater than, or equal to, 
the front compression count Fc of the 
current entry, the resultant entry consists 
of the key Kc, front compression count Fc, 
and key length Lc of the current entry, 
and the pointer Pp of the previous entry. 
(See examples 1 and 2.) 

If the front compression count Fp of the 
previous entry is less than the front 
compression count Fc of the current entry, 
the resultant entry consists of: 

Kr:The first (Fc-Fp) characters of the 
previous key Kp, followed by the 
current key Kc. 

Fr: The front compression count Fp of the 
previous entry. 

LnThe key length Lc of the current entry 
plus the difference between the front 
compression counts (Fc-Fp). 

Pr: The pointer Pp from the previous entry. 

This is also shown in Example 3. 



Examples: 

1. Fc<Fp: 



Kc Fc Lc Pc Kp Fp Lp Pp 




Kr Fr Lr Pr 



2. Fc = Fp: 



Kc FcLc Pc Kp FpLp 




Kr FrLr Pr 



3. Fc > Fp: 

Kc FcLc Pc Kp FpLp Pp 




1st (Fc-Fp) 
characters of 
Kp, + Kc 



Lc + (Fc-Fp) 



to 



g Diagram GVL Preformat relative record data set 



< 






< 
> 



AMDSB 



AMDATTR2 



AMDSHR 



PLH 



PLHDRBA 



ARDB 



ARDHRBA 



VSAM Catalog 



ARDB 



ARDERBA 



ARDHRBA 



AMDSB 



AMDNSLOT 



AMDNLR 



AMDCINV 



__ J3.I. Is 



\ 



\ 



4 



load mode and speed option active? 
es No 



— s s»* 2. Calculate start RBA and end RBA and compute 



\ 



;v 



total length of area to be preformatted 



\ 



\ 



A 



3. Share option 4? 

Yes No 



lj^>4. Get high-used RBA from catalog and build all 

IEDBs to ensure that all current EDBs are present 
j^-5. Calculate the number of bytes to be preformatted 
for recovery processing 



s*6. Calculate the length within the current extent and 

check if extent boundaries are crossed 

7. Adjust to remain within the current extent 

8. Preformat as far as the end of the current extent, 
marking each slot as invalid 

9. Are more extents to be preformatted? 



Yes 



No 



10. Get next extent 

1 1 .. Update high-used RBA 



^>12. Update record number 

L -J 



Return 



Module or 

label 

IKQRRP 



RRP010 



EDBs 



"tc 



u 



RRP040 



RRP060 



1,1,1 



'N Binary 



0s 



RDF 



RDF 



CIDF 



P 



RRP070 
RRP075 



X'04' 



Length 
of slot 




AMDSB 



>{ 



AMDHWRBA 



AMDLNLR 



RRP100 
RRP120 



Diagram GW1. Format index 






Work area 



t Section 



Index record 



ra , 



Diagrams GT,GU,GY,GZ 



INPUT Reg. 
I t First entry 



1 . Count the number of entries in this index record 



Work area 



Count 



CIWKEY 



AMDSB 



AMDNEST 



Simplified 
example: 



1C13|1|P| --- 
| R | R | C 1 3 | 1 | P | - 

l C l 3 l'|Pl 



•^ 2. Divide the number of entries by the number of 
section entries desired 

Examine each entry as follows: 

r 3. Construct a decompressed key for each entry 

, ^ 4. If the entry is a nonsection entry and the output 
is a nonsection entry, the entry is not changed 



— '•*■" 5. If the entry is a section entry and the output is a 
nonsection entry, the RR field is stripped off and 
the other RR offsets are recomputed 

— ^6. If the entry is a nonsection entry and the output 
is a section entry, an RR entry is added, the RR 
of the previous section entry is computed and 
stored, and the key is recompressed against the 
previous entry output 



|r|r|c|3|v|p| - 



where RR field is the 2-byte 
index section header, and is 
required only for section entries 

C = compressed key 

(result of compressing AACC) 

3 = front compression (F) 

1 = length (L) 

F + L = full key length 

P = pointer 

AACC = current key 

AACfi ■= previous key 

AAAB = previous section 
key 



Key values 
used in creating 
the above -example 



*•! . If the entry is a section entry and the output is 
also a section entry, the RR fields are 
recomputed and the key is recompressed against 
the previous section entry output 

8. Shift to make room for adjusted entry and store 
entry 

9. Adjust the offsets in the index header 
IX), Last entry? 



Yes 



No 



Return 



Tl 



Work area 



Module 

IKQIXFOO 



£> 



=> 




Count 



#Entries 
per section 



Keys 



0| c|3[i|p| 



^> |C|3|1|PJ 



:Q 1r|r|c|c|2|2|p| 



i> |r|r|c|c|2|2|p 



IKQSFT 



w Diagram GX1. Obtain new control area 



< 



J: 



< 

> 

2 



PLH 



<o> 



* Diagrams GT, GY , GZ 



PLHSWTCH 



Rl 



or index 
level indication 



AMDSB 



T_ 



If this is the first request, then write an SEOF at 
the beginning of each extent 

See Diagram IA2, steps 11-14: Turn off ARDB 
preformat bit in the catalog 

Is this request for a high-level index only? 
No Yes ma^^+( 4 

Get a data control area 

See Diagram HA, Manage space within extents 



• 4. Is the data set key-sequenced? 
Yes No 



l 

5. Get 



► Return 



CNV processing or 
entry-sequenced data set 



Get a CNV for an index record 

See Diagram HA, Manage space within extents 



6. Obtain an empty buffer 

See Diagram HI, GETBUFF: Get scratch index 
buffer and clear it 



I 



D or I record 




Volume group occurre nce 
1ITYPEXT1 1 



Module or 
label 



IKQNCAOO 
IKQCLCAT 



NEW005 



NEW010 



NEW020 



NEW025 



NEW050 



Diagram GX2. Obtain new control area 



7. Save pointers to the index buffer and BCB and 
data control area RBA in PLH 

8. Build an index header 

9. If load mode and speed option are specified by 
the user, set the format write switch on 



t 




PLH 



Index header 



Module or 
label 

NEW070 











Space for entries 


RDF CIDF 



free space (or free CNV) 

pointers, only for sequence set index 



BCB 



Return 



hi 



to 

1^ 



Diagram GY1. Create index entry 



< 

r 



< 



< 
> 



Work area 



r 



AMDSB 



C 



>J 



; Diagrams GT(eharts 5,7) 






/ 



y 



/ 



/ 



4- 



\ 



1 . Is there an entry to make in the index? 

No ■■■■■^^ Return to caller: 



,2. Is user-requested record already in virtual 
storage? 



Nc 



Yes 



\ 



^ 3. Does desired index level exist? 



\- 



\ 



Yes 



No 



\ 



Index header 
\ 



"^•^ 4. Search for desired index level RBA and for point 
of insertion 

See Diagram HB, Search index 



5. Compute entry size and determine if there is 
enough room for it 



Not enough Enough ( 

6. Is the desired index level the sequence set? 



No 



Yes 



►ReturnI 



7. Split the index to make room for the entry 
See Diagram GZ. Split CA: Split index 



i 



:>C 



Parameter list 



=>l~r 



Label 

ilKQIXEOO 
IXENT01 



IXENT03 



IXENT04 



IXENT05 



IXENT05 



IXENT06 



IXENT09 



Diagram GY2. Create index entry 



, 8. Shift the data area to create space for the entry 



Index header 



Index header 



Work area 



i-=-^~ - — ^9. Move the key into the created space, compute 

^ ^ ^ -^ & and store the pointer 

-^-x -^ 10. Update the section offset 




AMDSB 



y^- 



1 . Is entry into sequence set? 

Yes 



No 



PLH 



T- 




12. Format high-level index 

See Diagram GW, Format index 

►13. Processing in load and speed mode? 

No Yes 

■14. Release buffer 

See Diagram HI, GETBUFF: Free buffer and 
restore the same record 

15. Build a higher-level index 

See Diagram HN, FREEBUFF: Free 
current-level index record 

See Diagram GX, Obtain new index control 
interval and build a new index record 

See Diagram HI, GETBUFF: Get a scratch 
buffer for new index record 



Index buffer 



=> 



Index 
record 



Label 

SHIFT 

IXENT10 



IXENT18 
IXENT19 

IXENT19 
IXENT19A 

IXENT19B 









Diagram GY3. Create index entry 



< 



y: 
< 



< 
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Index buffer 



1 1 




BCB Index AMDSB 
1 II 1 





] — 



I 

— ,p»16. Build a header for the index buffer just acquired 
17. Initialize PLH and prepare for index search 



t 



1 

=0C 



Index buffer 



PLH 



Notes for Diagram GY1 - GY3 



Notes for Diagram GY4 



Description 

There are two types of index entries, 
normal and split (see examples below). 
The only difference between a normal 
entry and a split entry is in the point of 
insertion. An index entry is composed of a 
key and pointer. A normal entry is 
inserted after the pointer; a split entry, 
however, is inserted after the key and the 
new entry is composed of a pointer and 
key. The result is two entries composed of 
the old key and new pointer, and the new 
key and old pointer. 



Module 

IKQIXEOO 



INDEX ENTRY 
KEY I PTR I KEY 



PTR 



1 KEY 1 PTR | 
NORMAL ENTRY 



Description 

The index entry for a spanned record is a special 
case of the split entry mentioned in the notes for 
Diagrams GY1 - GY3. When a spanned record is 
stored, the first index entry is created by the normal 
method (GY1 - GY3). Index entries for segments 
after the first one are created by the routine shown 
in Diagram GY4. 

The index entry for the first segment originally holds 
the key and its F byte contains the actual key 
compression count. Index entries for further 
segments are inserted in the middle of the first 
entry, thus causing the key to be moved to the left 
and to remain in the entry for the last segment of 
the spanned record. 

The entries for the second and subsequent segments 
do not contain a key, and their F byte contains a 
compression count equal to the keylength, thus 
indicating a keylength (in the entry) of zero. 



KEY 



PTR 



| PTR | KEY [ 
SPLIT ENTRY 



ho 






< 



J1 
< 



< 

> 
2 



Diagram GY4. Create index entry for spanned records 



R3 




\^> 1. Save the caller's base and return registers 

2. Compute the entry length 

3. Shift the existing index entries to make room for 
the new entry 

4. Compute and insert the pointer for the split entry 

5. Insert the K and L fields 

6. Update the section offset in the buffer 

7. Update the appropriate PLH fields 



r 

Return 



Work area 




IKQIXE20 
ONEIXE 



ONEIXE10 



Diagram GZ1. Split control area 



PLH 



PLHMSRT 



r 



i 



* Diagrams GT, GY 



RPL 



— ^1. Obtain new index and/or data space 

See Diagram GX. Obtain new control area 



RPLSEQ 



^2. If request is not sequential, that is, not a mass 

insert, count the index entries to find the point at 
which the old control area will be split 



SR:9 



PLH 

1 PLHXMO 



H 



Index buffer 



High 



Low 



^© 



Scan, decompress key, and find the entry in the 
index that represents the control area at which 
the split will take place 



Data buffer(s) 



] j 

o- 




-<4. Make the first entry of new (high) part a section 
entry, if it is not already a section entry 

+5. Overlay the low-key entries with the high key 
entries as new index record 

6. If a control area (not an index) is being split, 
update the data CNV and the free space pointers 

•7. Format the new index record and write it 

See Diagram GW, Format index 

m &. Get the old index record back 

See Diagram HI. GETBUFF: Get old index 
record 




T 

© 



Module or label 
IKQCASOO 




Data buffer(s) Index buffer 


i i 


••* 






-*— ^-Pointers to 

freeCNVs 




Index buffer 



CAS030 



CAS050 



CAS080 
IKQSFT 

CAS090 



CAS110 



N> 



Diagram GZ2. Split control area 



Data buffers) 



< 
si 



n 

'SI 



< 

> 

2 



\ 



1 Inflex buffer 1- 



-9. If a control area (not index) is being split, write 
the data control intervals to the new control area 
and update the free CNV pointers in the old CA 

See Diagram HI. GETBUFF: Get a data buffer 

• 10. Complete the old index record and write it out 

See Diagram GW. Format index 

See Diagram HI. GETBUFF: Use REPBUFF 
function to write index and free buffer 




11. Is this a high-level index split? 
No Yes 



► Return 



12. Erase each data buffer (the data was transferred 
to the new control area in step 9) 

See Diagram HI, GETBUFF: Get a data buffer 
and force write with 0s to clear (REPBUFF 
function) 

See Diagram HN. FREEBUFF: Scratch first 
buffer and force write last buffer 



i- 

Return 



=>( 



Data buffers) 







Module or label 

CAS130 
IKQSFT 



CAS210 



CAS230 
IKQSFT 



Diagram HA1. Manage space within extents 



Label 



ARDB 



EDB 



AMDSB 



PLH 



t 



RDB 



DSB 



EDB(s) 



?= 



1 . Find the proper ARDB 



__ — 3* 2a) If the data set is shared, update the space in the 
catalog; otherwise, get space from the current 
ARDB 



t 



MDSB 



See Diagram HD, Update catalog for sharing 

b) If speed option is on, format balance of old 
control area 

See Diagram HC, Format control area 

c) Examine EDBs (if more than one is attached to 
the ARDB) until the proper one is found 

d) If the EDB ranges are exceeded, allocate a new 
extent 

See Diagram HE, Get new extent 



— — — — =*» 3. Format the data control area or the index CNV 

unless load mode and speed option are on 

See Diagram HC, Format control area 



J- 

Return 



. R5 

lT> | tARDJT 



^> 



IKQSPMOO 



IKQRBAOO 



IKQNEXOO 



IKPFO00 
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Description 

The logic of finding the proper ARDB is 
determined by using the following decision 
table where certain conditions result in 
certain operations taking place. For 
example, looking at the rightmost column, 
if there is an index, a key range and a 
change of key range, and the sequence set 
is embedded with data, then the ARDB is 
pointed to from the PLH and the 
ARDPREL, a field in the data ARDB, 
points to the associated index ARDB. 



Description 

'Space' in this context means the serial 
apportionment of a single control interval 
(for an index) or control area (for data) 
for immediate use. This space is a 
subdivision of an extent as defined by 
DADSM allocation. 



Data or index 


D 


D 


D 


I 


I 


I 


I 


I 


I 


I 


Key range 


N 


Y 


Y 


N 


N 


N 


Y 


Y 


Y 


Y 


Key range change 


- 


Y 


N 


- 


- 


- 


- 


- 


N 


Y 


Sequence set or high 
level 


- 


- 


- 


- 


HL 


SS 


- 


HL 


SS 


SS 


Sequence set with data 


- 


- 


- 


N 


Y 


Y 


N 


Y 


Y 


Y 


The ARDB is found 






















as follows: 






















ARDB from AMDSB 


X 




X 


X 




X 


X 




x 




ARDB from PLH 




X 
















X 


Search ARDBs for key 






x 






x 






X 




range 






















Use ARDPREL* 




















X 


Search ARDBs for 










X 






X 






high-level 



















* ARDPREL is a field in the data ARDB that points to the associated index ARDB 

Legend: 

N = no 

Y = yes 

D = data 

I = index 

- = don't care 

X = indicates how the proper ARDB is found 

SS = sequence set 

HL = high level 



K> 



Diagram HB1. Search index 



RO 




] =»- 1 . Single index record search? (R0=0) 

No Yes 



I 

Pos 
Yes 



■2. Positioning to previous index entry? 

Yes No ■■■^(J) 







3. Nullify previous entry information and indicate 
high-level index search 

4. Read index record identified by PLHXRBA 
See Diagram HI. GETBUFF 
Error detected QOOC^(26 > ) 

Search section entry 

1 f 5 * 5. Point to first section and to first entry in section 

*^*6. Compare the section key with the desired key 
if 

Section key is not low 
(section found) 



PLH 



PLHXLVL 



PLHXEO 



PLHXSEO 



R2 / 

I search argument \ S 

. ^ 7. Save current entry information as previous if 

required 



•r" 1 — ;t 

\ if sequence set 

( ^iv if higher 



level 



d> 



IP = Pointer field 
I L = Length(key) 
F = Front compression 
4 S = Next section entry offset 




8. Has the last section in the index record been 
reached? 



No 



Yes 



9. Point to next section and to first entry in section 

® 



Module or 
label 

IKQIXSOO 



PLH 




IXS010 



IXS020 
SCIBOOO 



SE = Section Entry 
E = Entry 



index record next section 



to 



Diagram. I1B2. Search index 



PLH 



< 



< 



< 
> 



1 1 

IXLVLNO IXBASRBA IXNXTIR 




-10. Positioning to previous index entry? 

Yes 



No 



I ~key : | F , L-! P| Kj , P h *\V 



"11. Pick up the horizontal pointer to next index 
record in this level 



Search index entry 



PLH 



PLHXLVL 



PLHXSEO 



PLHXEO 
T 



I 

R2 

I search argument | — — 



E: 



i ' — ' ^"^ _ryJl2. Skip subentries of a complex index entry 

— ^"13. Compare the entry key with the desired key 



d> 



if sequence set if higher level 



P = Pointer field 

K = Front compression = key length 

F = Front compression(key) 

L = Length(key) 

R0 



©~ 



index AMDSB 



I 1 



Entry key is not low ^{ \ 7 ] 

(entry found) 

14. Save current entry information as previous if 
required 

15. Has the last entry in the section been reached? 
No Yes ■■■^(n) 

16. Point to next entry in section 




-^ 17. Test if this is single index record search or if the 

index level at which the search should be 



& 



AMDCINV 



%$ 



terminated has been reached 

No Yes 



j-18. Compute RBA of next index record one level 
deeper in index structure 



PLH 



C> 



PLHXRBA 



PLH 



PLHXLEVP 



PLHXEOP 



PLHXSEOP 



sequence set 

II 




Module or 
label 

IXS050 



PLH 



IXS060 



PLHXLEVP 



PLHXPTRP 



PLHXRBAP 



77 



higher index level 

II 



IXS070 



Diagram HB3. Search index 



PLH 



PLHPCI 



PLHXLEVP 



PLHXRBAP 



PLHXPTRP 



^- 19. Previous index entry required? 

S ^ I JLes No 

\ \ 

\ \ 
\ \ 

\ \ 



Yes 



^Return 



Index AMDSB 



AMDCINV 



PLH 



PLHXSEO 



PLHXSEOP 



PLHXEOP^ 



K 



\ 



\ 



20. Test if there is no previous entry (previous entry 
information is nullified) 



^ 



21. Is previous entry on sequence set level? 



* 



Is 

No 

4 



Yes 



Yes 



22. Compute RBA of next index record one level 
deeper in the index structure 



• 23. Test if previous entry lies in previous section 



Yes 



No 



^^ 24. Prepare search in previous section. ^H 
""^25. Store previous entry offset as current 



•© 



T 



Return 



^{ 



PLH 



PLHXLVL 



PLHXRBA 



PLH 




PLHXSEO 



PLHXEO 



Module or 
label 

IXS080 



IXS085 



IXS086 
IXS100 



O 
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Description 

Normal index search: 

An index record is searched for the entry containing 
a key which is not low compared with the search 
argument. The search starts with the lowkey entry 
and ends when the required entry is found. A 
search is done in two steps: first the section 
containing the desired entry is located (step 5-9), 
then the entry within the section is identified (steps 
12 - 16). 

If R0=0 only the index record attached to the PLH 
(PLHXBAD) is searched. No I/O is done, 

If R0>0 its value identifies the index level to stop 
on, and PLHXRBA contains the RBA of the index 
record to start with. The 'desired index entry' in 
high-level index records contains a relative pointer to 
the index record one level deeper which must be 
searched next. If RG=1 the index hierachy is 
searched down to the sequence set level, which is 
the deepest index level. The 'desired entry' in 
sequence set contains a relative pointer to the data 
control interval which contains (if inserted) the data 
record whith the desired key. 

The high-key entry is identified by a key with length 
0. 

Output of index search is the PLH positioned to the 
'desired index entry' on the desired level. If the 
'desired entry' is complex, (i.e. for a spanned 
record) PLH is positioned to the leftmost subentry. 



Description 

Index search for the previous index entry 

During sequential backward processing, whenever 
the low-key entry in a sequence set record was 
reached the previous index entry in the next 
(low-key direction) sequence set record must be 
located. 



This is achieved by a normal top-down index search 
for the previous request key during which previous 
entry information is saved whenever the inspected 
index entry is not the 'desired entry' (steps 7, 14). 

Normally the saved previous index entry at the end 
of the normal top-down index search for the 
previous request key will lie in a higher level index; 
so a secondary index search is started (steps 21, 22) 
with the index record identified by the previous 
entry information. The secondary search locates the 
high-key index entry in the next lower sequence set 
record, which is the previous key. 

The end of data set (in backward direction) is 
reached when no previous entry information was 
stored during the normal index search for the 
previous request key. 



Diagram HC1. Format data CA or index CNV 



Key-sequenced data set: 




* Diagrams HA,HH 



Formatting for data control areas is done as follows: 



1. The data set has already been loaded 



2. The user has requested the speed option, and the 
A data set is being loaded 



Module 

IKQPFO00 




d1d|d|e|e1e|s|e|e1e|e|e|s| | 1 | 



CA, 



n-1 



CA n CA 



n+1 



d1d1d|d|d|d|s|s|s1s|s|s|s 



CA, 



n-1 



v^A-f* v^A. 



n+1 



DlDlslslsls 1 I I I I 1 I I 1 1 1 



Rl 



CA 




n-1 \ CA n 



it 



CA, 



n+1 






to 



Diagram HC2. Format data CA or index CNV 
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Index: 



Index 
record 



IX, 



n-1 



i{ Kn ] ^X n+1 



Rl 



SEOF* 



i-LJ"" 



R8 



3. Formatting of an index control interval 

(associated with each key-sequenced data set) is 
always done as shown 



Module 
IKQPFO00 



t 



S> 



record | SEPF^) SEOF^ [ 



IX n-l K n IX n+l 



Return 



*Does not exist for first control interval, 
that is, is not written. 

where: 

D = data control interval 

E = empty control interval (a CNV filled with plus CIDF) 

S = software end-of-file (a CNV filled with binary Os) 

CA = control area 

CNV = control interval 

IX = index CNV (for index record> 

n sst number 



1) Both SEOFs (at n and n + 1) are written, even though redundant. 



Note: The three steps in this diagram are not sequential. They 
simply show 'before' and 'after' examples of the various types of 
Preformatting. 



Notes for Diagram HC 



1-3 
r 



1 and 3 



Description 

IKQBFAOO and IKQSFT are called to help 
process each of the operations described. 

The speed option can be specified by the 
user, but load mode will automatically be 
invoked by VSAM if the data set is empty 
or if the end of a key range or data set 
has been reached. 

Once loading has been completed, that is, 
one or more records have been loaded into 
the data set and the data set has been 
closed, load mode may still be invoked 
automatically, but the speed option will be 
ignored. 

IKQRBA is called to turn off the ARDB 
preformat bit in the catalog after any 
extend operation. 



Module 

IKQPFO00 









< 



n 



< 

> 

2 



Diagram HDL Update catalog 



Rl 



RO 



Pointer to 
new high- 
key RBA 
to be 
updated 



Caller ID 



R5 



RIO 



New HKRBA 



3- 



ARDB 



-© 



AMDSBV 



r 



ra 



RO 



Caller ID 



- 1 . Obtain and initialize a work area 
2. Set up the catalog parameter list 
_, __-5p-3. Update HKRBA request? 



EDB 



<»X. 



Yes 



No 



Update high-key RBA 



■ T*4- Set up the field parameter list to update the 

catalog entry 



Catalog 




R15 

\ Return code fc T" 



Work area 



See Diagram DB, Update catalog entry 



.3^5. Has a nonzero error code been returned by 

HKRBAUPD? 



Yes 



No 



1^ 



Error code 



Catalog lists area 



CPL 



FPL 



Catalog 



©- 



-6. . Does the return code from the UPDATE 

function indicate that the field to be updated has 
been changed since the last update? 




Yes 



No 



GEEK 

Error 
return 



*® 



__i:^7. Locate the most current high-key RBA from the 
new catalog entry 

See Diagram DB, Locate RBA in new catalog 
entry 



1 



Work area 




Module or 
routine 



IKQRBA 



HKRBAUPD 



Cc 



Work area 



HKRBALOC 



Diagram HD2. Update catalog 






R15 

I Return code "| - 



»^j 8. Has a nonzero error code been returned by 

HKRBALOC? 



No 



Yes 



B Error return 

9. Update ARDB to reflect the new high-key RBA 



© 



Update or locate high-used RBA 




10. Locate HURBA request? 

No 



Yes 



.© 



11. Set up the field parameter list to locate the 
high-used RBA 

See Diagram DB, Locate RBA in new catalog 
entry 

1 2. Update ARDB to reflect the new high-used RBA 

1? 



13. Update HURBA request? 
Yes No 



-© 



14. Set up the field parameter list to update the 
high-used RBA 

See Diagram DB, Update catalog entry 



® 



ARDB 

l!> | ARDHKRBA 




Routine or 
label 



HURBAUL 






Diagram HD3. Update catalog 
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Work area 



Update or locate high-used RBA (continued) 



15. Set up the field parameter list to update the 
ARDB preformat bit (ARDPRFMT) 

See Diagram DB, Update ARDB preformat bit 



16. Free work area and restore caller's registers 



t 



Return 



C4 





Volume 
G.O. 





Diagram HE1. Get new extent 






R13 

I tSave area i — 



m 



Rll 



tAMBL 



R5 



RIO 



tARDB 



tAMDSB I 



W ARDB 



3— t 



©-- 



1 . Obtain and initialize work area 

- ^ 2. Set up CPL and FPL to extend on current 
~~ volume 

See Diagram DB, Update extent on current 
volume 



, ^3. Does the current volume have space for an 
y& additional extent? 



/ 



/ 



No 



Yes 



© 



If AMDSB 



EDB 



Work area / 

] I EXTVOLSR~T 



/ 



V 



\ 



\ 



©-- 



4. Is there already a volume which contains 
overflow records? 



Yes 



No 



•© 



\ 



\ 



\ 



\ 



x 



• 5. Set up CPL and FPL to extend on overflow 
volume 

See Diagram DB, Update extent on overflow 
volume 



LA J -^6. Does the overflow volume have space for an 



additional extent? 

Yes 



No 



7. Locate candidate volume 

See Diagram DB, Locate candidate volume 



i 



c>© 



o© 



c-c 



Work area 



Work area 



<5=o 



RELREPNO 

EXTNUM 



Catalog lists 
area (located 
in work area) 



©=> 





FPL 












CPL 

















Module or 
routine 



IKQNEX 
EXTEND 



EXTVOL 



EXTEND 



VOLLOC 






Diagram HE2. Get new extent 
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Rll 



tAMBL 



R5 



hARDB 



RIO 

3 1 tAMDSB 1 



Work area 

\ RELREPNO"! ^ 



ARDB 



Was a candidate volume located? 

Yes No 



Error return 






10. 



Set up CPL and FPL to extend on candidate 
volume 

See Diagram DB, Update extent on candidate 
volume 

Does the candidate volume have space for an 
additional extent? 



No 



Yes 



11. 

12. 
•13. 



EDB 

1 


AMDSB 
1 1 


1 




ARDB 


Work area 






1 l| 1 


~~^ -^ 







Is list of candidate volumes ordered? 

No Yes 

4 

Loop until end of list is reached 



Is there enough space in the ARDB to add a 
volume entry? 



irror return 



No 



Yes 



•14. 

*15. 
16. 



Obtain storage in which to build a' new ARDB 
and free storage occupied by old ARDB 

Add volume entry to ARDB 

Locate data set extent information 

See Diagram DB, Locate extent information 



Routine 



Catalog lists area 
(located in work area) 



C> 






CPL 




FPL 

























ARDB 



© 




EXTEND- 



GETCORE 



BLDARDB 



EXTBUILD 
EXTLOC 



Diagram HE3. Get new extent 



Rl 



EDB 

1 


AMDSB 
1 1 1 


ARDB 
I 


Work area 


1 I i 





— — ^17. Find the address of space in which to build 

f? EDB(s) and build them 






18. Free work area and restore caller's registers 



EDB 






RELREPNO 



Work area 



y 



t 




1 




1 






EDB(s)- 




R15 




I Return code 



Routine 

CALCORE 
EDBBUILD 



Return 









Notes for Diagram HE 
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Description 

Note: This module falls into four logical groupings: 

• Steps 1-2 where an attempt is made to extend on 
the current volume 

• Steps 3-5 where an attempt is made to extend on 
an overflow volume, if the current volume did 
not have enough space for an additional extent 

• Steps 6-11 where an attempt is made to extend 
on a candidate volume, if the overflow volume 
did not have enough space for an additional 
extent 

• Steps 12-16 where the data set extent 
information is located on the proper volume, a 
volume entry is made to the ARDB, and EDB(s) 
are built. 



Module 

IKQNEX 



Diagram HF1. Error handler 






R15 



5? 



y 



-1. RPL held by another request? 

No Yes 

2. Error during upgrade or path processing? 



►Return 



Yes 



No 



Error recovery for AIX processing 



RPL 



RPLFDB2 



l/ 



RPLERRCD 



RPLREQ 



RPLOPT1 



\ 



\ 



X 



\ 



A 



-3. I/O error? 

Yes No 

* 

•4. GET sequential request? 
No Yes 

I 

5. Reset PLH flags 

6. Specification error? 

Yes No 

7. Terminate request processing 
k 8. Direct request? 

Yes No 



o 



Return 



9. If error code was EOD, change it to no record 
found A^ 



R15 

lQ \ Return code I 



PLH 



=> 



PLHFLAG 



:£> 



PLH 



RPL 



O 



Module 

IKQERH 
ERH001A 



ERH003 



RPL 

] 1 Error code I 



ERH005 



RPLERRCD 






Diagram HF2. Error handler 
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v 
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RPL 



RPLERRCD 



PLH 



PLHAIXPT 



RPL 



RPLRTNCD 



RPLOPT1 



RPLREQ 



RPLAREA 



Error recovery for AIX processing (continued) 



10. Positioning required? 
Yes No 



^11. If PLH points to a non-unique base cluster 

pointer, indicate restart and set previous request 
to POINT. 



12. Store previous request information in PLH. 

13. I/O error? 

No Yes H ^(28) 



14. Direct request? 



No 



Yes 



* 

15. GET request? 



► Return 



No 



Yes 



►Return' 



^16. Store request key as previous request key in the 
PLH of the path entry 



►Return 



ERH007 



PLH 




ERH011 





PLH 




RPL 




Error code 







Diagram HF3. Error handler 



Module 



IKQERH 



R15 
| Return code \ ^ 



-17. I/O error 



No 



Yes 



18. Processing error? 

No Yes 

I 

Error recovery for specification errors 



c 



IRPLREQ -y -^(c) 



19. Terminate request processing 



» ReturnI 



Error recovery for processing (logical) errors 



— 4-20. POINT request? 
o Yes 



©- 



21. End of data? 

Yes ■■■<►( 23 )No.l 



►Returns 



22. DIR specified? 

No Yes 



23. Store feedback information into RPL and 
perform error recovery procedures 



RPL 



^ 



©J7 



Error code 



► Return 



=o© 






to 

Is) 



Return 



ERH019 



4^ 



Diagram HF4. Error handler 



< 



n 



< 

VI 

> 



RPL 



AMDSB 

1 AMDEXEXT h 



Error recovery for I/O (physical) errors 



r 



24. Did a write error or data read error occur during 
a sequential GET? 



Yes 



No 



^ 



25. Did a data read error occur? 



No 



Yes 



26. Indicate control interval is to be 
skipped and adjust positioning of 
PLH —m^f:,^ 



27. Indicate that a restart is required and adjust 
positioning of PLH 

28. Did this write error occur while writing a buffer 
which does not belong to the request ACB 



Yes 



No 



29. Move pointer to name of ACB in buffer to 
MSGAREA of the request ACB 

30. Is an EXCEPTION EXIT specified 

Yes No 

31. Call EXCEPTION EXIT module 



► Return 



t 



Return 



Module 

IKQERH 



^ 



PLH 


RPL 




1 1 








Error code 











z>® 



3© 



:£> 



Request ACB 



MSGAREA 



IKQOCMSG 



Notes for Diagram HF 



Description 

1 . If the user did not point to a valid RPL or 

the RPL is in use (used by another task), 
no feedback information can be stored into 
the RPL. 

24. A write error can occur on a GET when 

buffers (that have not been written) are 
written because more are needed for the GET. 

26. For a data read error occurring during a 
sequential GET, the user may continue 
processing. The next GET issued will skip 
the erroneous data control interval. 

If necessary, IKQBFA is called to release 
exclusive control and track hold. 

27. For a write error occurring during a 
sequential GET, positioning will 
automatically be reestablished for the next 
request, that is, a restart is performed. To 
the user's program, the erroneous 
operation looks like a no-operation except 
that an error exit is taken or an error code 
is returned. A subsequent sequential GET 
will cause processing to continue. 

28. If the write error occurs while writing a 
buffer which does not belong to the 
request ACB, field PLHACB points to the 
ACB to which the buffer belongs. 
Otherwise PLHACB is 0. 

29. A pointer to the ACB name is moved into the 
MSGAREA of the request ACB for user 
information. 









Diagram HG1. Error exit 



< 



si 



R15 



> 

2 



RPL 



ACB 



1 . Error code stored in RPL? 

Yes No 






2. Pass return code in R15 to user 



» Return 



>3. End of data? 









ACBEXLST 








EXLST 




1 





No 



Yes 



4. Store pseudo EOD class code 



- 5 . If no EXLST or no user's exit is specified or if exit 
is not active, return control to user's program to 
instruction following record management request 



6. If EXLST is specified and an end-of-data 
condition exists, indicate the EODAD exit; if 
EODAD exit is not active or is not available, 

. indicate LERAD exit 

7. If a user's exit is to be taken, load user's routine 
dynamically or activate an error exit, at user's 
option ^ 



If user processes errors, the user may return to 
VSAM which, in turn, returns control to user's 
program to instruction following record 
management request 



-Module 
IKQERX 



:>C 



R15 



OC 



R7- 



!^> Return to user's program 



^X 



R7 



EXLST 



EODAD 



LERAD 



-JV. Go to user's exit routine 



or activate error exit 



-^ Return to user's program 



via VSAM 



Diagram HH1. Record management close 



<§> 



1. Obtain virtual storage for a work area 

2. Is this an ENDREQ? 

No Yes I 

3. Is this a relative record data set? 

Yes No 



•0 
•© 



/ 



AMDSB 



AMDSPEED 



AMDLOAD 



AMDRANGE 



/ 






4. Preformat data control area if load mode and 
^ speed option are specified by the user. 

See Diagram GV, Preformat RRDS 



5. Preformat the data control area or the index 
CNV if load mode and speed option are 
specified by user 



v 



N 



^ 

a 



See Diagram HC, Format data CA or index CNV 

6. If load mode is specified by user and data sets 
are key range, format data sets and make index 
entries for them 

See Diagram GT, Format data sets and make 
index entries 

7. If this is an ENDREQ request, reset PLH flag to 




% 



Work-area 



o 



PLH 



^> 



PLHFLAG 



Label 

IKQRCLOO 



IKQRCL12 



IKQRRP 



IKQRCL20 



IKQRCL65 



IKQRCL80 









Diagram HH2, Record management close 
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PLHIBHD 






PLHBFLAG 




PLHBDATA 
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PLHDBHD 
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I BHD (index) \ 


BHD (data) 
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Index Index 
■free I/O 

queue queues 



Any queue 



BCB 



BCB 



n~3 

Data Data 
free I/O 
queue queues 



Data or index buffer 



Data or index buffer 



______ ^ (c) 



Work area 



8. See Diagram HI. GETBUFF, for following 
process: 

••(a) If a wait for completion of I/O is pending on the 
I/O schedule queue, first clear the wait for the 
data buffers; then, for keyed processing, the wait 
for index buffers is cleared 

(b) If the PLH indicates any outstanding write 
requests not already on I/O queues, the write 
BCBs are placed on the data or index I/O 
queues 

Read only requests are purged from the data or 
index I/O queues and I/O is scheduled for all 
remaining write requests (including both BCBs on 
I/O queues at the time a close was issued and 
those placed on the I/O queues by this routine) 

When the waits for completion of write requests 
have been cleared, transfer BCBs from I/O 
schedule queue to free queue 

Free any data or index control intervals which 
were held 



-(d) 



(e) 



9. Free work area 



r 

Return 



Label 
CBF020 



IKQRCL90 



Diagram HI1. Buffer manager: GETBUFF 






Rl 



I 



REPBUFF 

parameter list 



RBA 



i^BCB 



tBuffer 



2 



♦Diagrams GD,GG,GH,GN,GO,GR,GQ, 
GS,GT,GU,GY,GZ,HB,HH 



1. Get exclusive control of BHDs associated with 
PLH 

>2. Is this a GETBUFF request (R1=0)? 

Yes No 

3. Get a scratch buffer 

See Diagram HJ. Get scratch buffer 
Return vector: 



No BCBs available 
I/O error encountered 
BCB found 



4. Point RO to the allocated BCB and Rl to the 
buffer; release PLH 




^Return 



5. Set 'no BCB' return code 



REPBUFF function 



Return 



6. Insure that read ahead is not active 

See Diagram HK. Read ahead initialization 

7. Was an I/O error encountered? 



No Yes 



► Return 



T 



PLH 



C> 



PLHECBT 



=> 



RQ_ 



y BCB 



^>c 



R15 



Rl 



V Buffer 



BHD 

I>I BHDRAHOK » 



Label or 
routine 

IKQBFAOO 
IKQBFA10 
BHDADOOO 
HDQUEOOO 



GTSCROO 



BFAOOO 
DNQUEOOO 



BFA030 



BFA100 
RDAHIOOO 






Diagram HI2. Buffer manager: GETBUFF 
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REPBUFF 

parameter list 



RBA 



tBCB 



tBuffer 



R15 



REPBUFF function (continued) 



^•8. Does the caller's parameter list hold a BCB 
pointer? 

Yes No ■■■»[. 30 J 



/ 



/ 



PLH 



/ 



PLHEHELD 



PFHFACTV 



PLHEHOLD 



PLHHELD 



\y 



^ 



9. Set parameters for FREEBUF function 

10. Return the BCB 

See Diagram HN. Return BCB 

11. Is the control interval to be freed from exclusive 
use? 

No Yes 



. Indicate that control interval is 
no longer held 




13. Was track held? 

No Yes 



I * 



14. Free track 



15. Was an I/O error encountered? 
Yes C 



No 

© 



►Return 



=ot 



R7_ 



Exclusive 
.. control list entry 
~> l RBA=x t F...F' 1 



THB 



i> 



BFA110 



BFA1.20 
RTNBF000 



BFA171 



CIFRE000 



BFA172 



IKQBFC20 



BFA173 



Diagram HI3. Buffer manager: GETBUFF 



PLH 



PLHEHELD 



PLHEACTV ] 



PLHEHOLD 



PLHHELD 



REPBUFF function (continued) 



M- 



GETBUFF 

parameter list 



1 



1 6. Is exclusive control of control interval requested? 
No Yes 



17. Set RBA of control interval into 
Exclusive Control List 



BCB 



PLH 



PLHNORD 



AMBL 



AMBLSR 



►18. Is track hold specified? 
Yes No 

4 

19. Release exclusive control of PLH 

20. Obtain exclusive use of track (track hold) 

21. Get exclusive control of PLH 

22. Is 'no read' specified? 

No Yes 



Exclusive 
control list 



=> 



RBA of CI 






PLH 



PLHE CB T 



THB 



I 



C> 



i>© 



PLH 



PLHEHELD 



Was 
Yes 

4 



►Return 



23. Was LSR specified for this data set? 

Yes No 



24. Is this RBA held in exclusive control? 

No Yes 



® 



■^^ 



Label or 
routine 

BFA175 



CIEXC000 

BFA176 

DNQUE000 
THOLD000 
HDQUE000 
BFA177 






Diagram HI4. Buffer manager: GETBUFF 
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PLHEACTV 



PLHEHOLD 






REPBUFF function (continued) 



BCB 



BUFWRINV 



25. Does another string have exclusive control of this 
RBA? 

Return 
No Yes mk (Exclusive 

I control 

M error) 

26. Look for a buffer that contains the requested 
RBA in the buffer queues 

Return vector: 

- BCB with requested RBA not found WK^Csi) 

- I/O error encountered ODC^^ Return 

- BCB with requested RBA found 

I 

27. Is exclusive use of control interval requested? 
Yes No ■■■►(30} 



28. Was buffer with proper RBA written by another 
string? 



Yes 



No 




29. Turn off valid flag in BCB ■■■^( 26 

30. Place information in caller's parameter list 

31. Indicate normal return in R15 I 
I HM^^ Ret urn 

= © 



1 1 



BCB 



^> 



BUFCVAL 



Caller's 
parameter list 



=>: 



R 15 



Zl 



Label or 
routine 

CHKRBA00 



BFA180 
DQRBA000 



BFA190 



BFA220 



BFA195 
J PLRMI000 



Diagram H15. Buffer manager: GETBUFF 



AMBL 



AMBLSR 



REPBUFF function (continued) 



32. Look for -a BCB that can be used to read in the 
requested RBA 



BCB 

not found 



BCB found 



33. Get a scratch buffer 

See Diagram HM.Get scratch buffer 
Return vector: 

- No BCB found 

- I/O error encountered 

- BCB found 



Return 
Return 



PLH 



PLHEHELD 



34. Set parameters to perform a READ into the 
BCB 

35. Is LSR specified and the RBA held in exclusive 
control? 



Yes 



No 



36. Search the buffer subpool for the RBA, and copy 
the buffer if it is found. 
See Diagram HZ, Search for requested RBA 



R15 
lT> i 'No BCB found' 



Label or 
routine 

BFA300 



BFA320 
GTSCROOO 



BFA390 



BFA340 



IKQFB 50 
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Diagram HI6. Buffer manager: GETBUFF 



REPBUFF function (continued) 



37. Perform the I/O 

See Diagram HK. Do I/O 

38. Was an I/O error encountered? 

No Yes 



39. Release PLH 



© 



■ m ^ 



Return 



Label or 
Routine 

BFA370 

DOIO000 

BFA210 



DNQUE000 



Notes for Diagram HI 



The two main functions of this module are 
FREEBUFF (free a buffer) and GETBUFF (get a 
buffer). The REPBUFF function is a combination of 
the two, except when 'no read' is specified. In this 
case, the function is basically a FREEBUFF. 

FREEBUFF: 

Free the input BCB contained in the parameter list: 

1. Do any necessary I/O operations. 

2. Place the BCB on the free queue. 

Note: The first step may force additional I/O on the 
queues. 

GETBUFF: 

Get a buffer with the requested RBA: 

1 . Search the queues for the requested RBA, in 
order to determine if it is already in storage. If so, 
detach the buffer from the queue and complete the 
parameter list for return to the caller. 

2. If the RBA is not located on the free queue, as 
indicated by the BCB 'buffer contents valid' flag, but 
is found on the schedule or no-schedule queue, force 
completion of the I/O, thus forcing the BCB into 
the free queue, where it can be used to satisfy the 
request. 

Note for LSR processing: 

If the RBA is not found in one of the queues, the 
subpool of the VSAM shared resources pool is 
searched for the requested RBA. 

3. If the RBA is not in storage, get a scratch buffer 
and read in the RBA. Then repeat step 1, above. 

Note: Once the request has been satisfied, the 
BCB/buffer is unknown to the buffer manager, as it 
has been detached from the queues. 






NO READ: 

If the 'no read' flag (PLHNORD) is set in the 
parameter list, the request is really a FREEBUFF 
request via the REPBUFF interface. This means 
that the 'requested' RBA is not read in. Only the 
BCB in the parameter list is freed. 



Definitions of the queues 

The are four queues which can hold BCBs. These 
are shown below, with their pointers from the BHD 
and their contents. 

Schedule queue: 

Located by BHDSKDQ. Contains BCBs for which 

I/O has been started without wait. 

Non-schedule queue: 

Located by BHDNSKDQ. Contains BCBs for which 

I/O needs to be done but has not been started yet. 

I/O queue: 

Located by BHD1STW. Contains BCBs on which 
the I/O manager is presently working (to build 
channel programs). This is the primary input from 
the buffer manager to the I/O manager. 

Free queue: 

Located by BHD1STF. Contains BCBs (with and 
without buffers with valid contents) which are 
available to record management. 
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Diagram HJ1. Buffer manager: Get scratch buffer 



BHD 



BHD1STF 



BHDNSKDQ 



BHDSKDQ 



R14 



qp 



3 




Free queue 



Save return address and set normal return code 
inR15 



BCB 



■ => 2. Scan the free queue to locate an available buffer 



BCB 



No-schedule queue 



BCB 



BCB 



Buffer 
found 



Buffer 
not foundi 



* 



Remove the BCB from the free queue and clear 
the BCB flags to indicate it is associated with a 
scratch buffer 



► Return 



Schedule queue 



BCB 



BCB 



AMBLSR 



AMBLSR — ■ 



5. 



Is a BCB on the I/O queues? 

Yes No 

I 

Wait for I/O complete 
See Diagram HK. Do I/O 

Was an I/O error encountered? 
No Yes 



► Return 



I 



Is LSR processing specified? 

Yes No 



C> 



R2 



it 



15_ 



. R8 

I[>l tBCB 



Label or 
routine 



IKQBFAOO 
GTSCR000 



GTSCR005 
GTSCR010 
GTSCR020 



GTSCR030 



GTSCR100 



GTSCR150 
DOIO000 



GTSCR250 
STEALOOO 



Diagram HJ2. Buffer manager: Get scratch buffer 



8. Search buffer subpool for a scratch buffer 
See Diagram HX. Get a sratch buffer 

9. Must get a buffer from another string 
Return vector: 

- Buffer found 

- Buffer not found C 



* Return 



Label or 
Routine 

IKQBFB30 



IKQBFA20 
STEAL020 



-J 
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Diagram HK1. Buffer manager: Read-ahead interface 



Rl 



Parameter list 



AMDSB 



m 



•1. Is this a read-ahead request? 

No Yes 



I 



^-2. Is this an index request or is read-ahead not 



BHD 



1BHDBRC 



AMBL 



active? 

No 



* 



Yes 



3. Wait for I/O complete 
See Diagram HM. Do I/O 

4. Was an I/O error encountered? 

No Yes 



* 



Return 



5. Reset the read-ahead and read-ahead error 
indicators in all buffers on the free queue 



>6. Is there an index AMDSB? 

Yes No 



t 
o 



BHD 



BHD1STF 



i> 



\ J Free queue 



BCB 



BCB 



Label or 
routine 

tfKQBFAOO 



RDAHI000 



DOIO000 



RDAHI100 



Diagram HK2. Buffer manager: Read-ahead interface 



RPL 



7. Free the read-ahead index BCB, if necessary 
See Diagram HL. Free buffer 

8. Set the data read-ahead information 
^.9. Is this a keyed request? 

Yes No mmmm^(^u) 



♦ 



10. Set the index read-ahead information 

11. Set the 'read-ahead OK' indicator 



I 



PLH 



=> 



£> 



FRBUF000 



RDAHI150 



BHD 



£> 



BHDRAHOK 



RDAHI190 



Return 



4^ 






< 



Notes for Diagram HK 



^ This routine handles any non-sequential request that 

< occurs while read-ahead is active. If a non-sequential 

jj request, such as GET DIRECT, is received after 

~ read-ahead has been started, this interrupts the 

read-ahead operations, and the read-ahead routine 
in deactivated, and the read-ahead control infor- 
mation is reset. Read-ahead can be activated on a 
5 subsequent GET SEQUENTIAL when a control 

r - interval is read (GETNXT processing). 

4- 

^ 5. If a read-ahead error occurs, the buffer is 

> flagged invalid. 



Diagram HL1. Buffer manager: Free buffer 
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BHD 






BHD1STF 






Y Free queue 


\ 
\ 




BCB 
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BCB 
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1. Is there a BCB to free? 



Yes 



* 



No 



2. Locate the last BCB in the input chain 

3. Load pointer to free queue 

4. Is this an index AMDSB? 

Yes No ■■■ 



i 



Free index buffer 



^ 



5. Is the free queue empty? 

No Yes 



* 



• Return 



•0 



6. Does the first buffer on the free queue have 
valid contents? 



Yes 



No 



7. Does the first free queue buffer contain the 
high-level index record? 



No 



Yes 

k 

© 






R7 



R5 



Label 

FRBUF000 
IKQBFA40 



FRBUF010 









Diagram HL2. Buffer manager: Free buffer 
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BHD 




Free queue 
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BHD1STF 
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BCB 










R8 




BCB 






Input BCBs 
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BCB 
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BCB 



Free index buffer (continued) 



8. Set free queue pointer so that new buffer will be 
past the high-level buffer 

-9. Add the input BCB to free queue 

^ 

Return 
Free data buffer 



sr 



/ 



10. Add the BCBs to the free queue and place the 
input BCBs in front of the existing free queue 
BCBs 



>*■ 



/ 



/ 



/ 



/ 



1 1 . Scan and adjust the free queue BCB chain in the 
following order: read ahead BCBs, valid BCBs, 
scratch BCBs 



r 

Return 



R5 



£>C 



Free queue 



BHD 



Label 



FRBUF020 



i> 



BCB 


<g-f 


BHD1STF 


^». 








BCB 






Notes for Diagram HL 



11. 



Make sure a buffer containing the high-level 
index control interval is lowest priority to be 
scratched for reuse. 

Make sure the free queue BCB chain is in the 
following order of increasing priority to be scratched 
for reuse: 

• Read-ahead BCBs (valid contents) 

• Other BCBs with valid contents 

• Scratch BCBs (no valid contents) 



Diagram HIM1. Buffer manager: Do I/O 
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> Diagrams HI,HJ,HN 



R8 



-—==». 1 . Is there an input BCB chain? 

No 



BHD 



BHDNSKDQ 



No-schedule 
queue 



BCB 



BCB 



/ 



/ 



/ 



/ 



/ 



R4 



/ 



/ 



BHD 



BHDNSKDQ 



R4 






Yes 



</ 



2. Add the BCB chain to the no-schedule queue. 

3. Branch vector table: 

• Wait for I/O (XW) 




^ 



^ „^„ ,„„««,, _ Normal 

• Enqueue BCB (X'08') ^^^^ return 

i Wait, for schedule queue only 
(X'OC') 
>Do I/O(X'04') 



4. Is I/O queue count over the start I/O threshold 
value? 

ormal 
return 



Yes No 

Start I/O and return 



* 



5. Wait for the schedule-I/O queue to complete 
I/O processing 



6. Was an I/O error encountered? 

No Yes 

7. Start the new I/O 



Return 



:> 



Label or 
routine 
DOIO000 
IKQBFA50 



No-schedule 
queue 






BCB 




BrlD 








BHDNSKDQ 






DOIO010 


BCB 






DOIO020 



DOIO025 



WAIT000 
(IKQIOA00) 



STARTGOO 
(IKQIOA00) 









Diagram HM 2. Buffer manager: Do I/O 
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Start I/O and wait for its completion 



8. Wait for the schedule-I/O queue to complete 
I/O processing 

9. Was an I/O error encountered? 
No Yes EKJ^ Return 

♦ 

10. Start the new I/O 

1 1 . Wait for the schedule-I/O queue to complete 
processing 

12. Was an I/O error encountered? 
No Yes ■m^> Return 



1 



DOIO030 
WAIT000 



START000 

DOIO040 
WAIT000 



DOIO100 



Normal 
return 



Notes for Diagram HM 



2. Add BCB to no-schedule queue, and increment 
count of I/Os to be done. 

3. On entry to the Do I/O routine, R4 contains 
one of the following codes: 

- Wait for all I/O to complete. 
(I/O started for user.) 

4 - If threshold (see below) has been reached, 
wait for previously started I/O to complete, 
and start I/O not previously started. 

8 - Enqueue the BCB. 

12 - Wait for previously started I/O to complete. 

4. The threshold test consists of comparing the 
count of I/O operations to do (number of 
BCBs on the no-schedule queue) to a fixed 
threshold value. For non-shared resources, the 
value is either: 

• The total number of BCBs owned by 
this PLH, if that number is less than 4. 

• One -half the total number of BCBs 
owned by this PLH (rounded high if an 
odd number), if that number is greater 
than or equal to 4. 
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Diagram HN1. Buffer manager: FREEBUFF and return BCB 



RO 



Rl 



R7 



BCB 



AMBL 



AMBLSR 



7 



Diagrams GQ,GT,GY,GZ,HI 

FREEBUFF 



: — 



^ 1. Set function codes for return BCB 

L 



m 



Return BCB 



J 1. Is there a BCB (Rl = BCB)? 

Yes No 



' 2. Should buffer be scratched? 

Yes No 



I 



3. Reset BCB flags to indicate null contents 

4. Place BCB on free queue ■■■■^•(14 ) 



■5. ■ Does BCB require I/O? 

Yes No 



4 



6. Is LSR processing specified? 

I Yes No 



t 



>e 



.0 



R6 



C> ri_ 



OC 



BCB 



Label 



IKQBFA20 
FREEBUFF 



IKQBFA80 
RTNBF000 



RTNBF010 
RTNBF020 



Diagram HN2. Buffer manager: FREEBLJFF and return BC B 



PLH 



PLHDIRQ 



R6 



RPL 



. =&* 7. Is this a direct write request? 

Yes No 

8. Defer the write request 

See Diagram HV. Defer write 



R7 

| »ve value | — 



■© 



► Return 



9. Set Do I/O function code to a default of wait (X'04') 
' 10. Should I/O be forced for the BCB? 

Yes No 'mmm^Q^ 



3— 



* 



— -> 11. Is I/O function code specified? 

No Yes 



I 



►© 



3- 



1 2. Set Do I/O function code 

13. Place BCB on non-schedule I/O queue and 
process I/O 

See Diagram HK. Do I/O 
*14. Is user buffer specified? 

No 



Yes 



15. Zero buffer address pointer 



► Return 



R4 



^>c: 



R4 



:X 



:X 



BCB 



Label 



IKQBFB10 



RTNBF025 



RTNBF030 
DOIO000 



RTNBF040 



RTNBF045 









Diagram HN3. Buffer manager: FREEBUFF and return BCB 
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16. Reset BCB flags to indicate null contents in user 
buffer 

► Return 

17. Set WAIT function and wait for completion of 
I/O 



:0 c 



BCB 



I- 

Return 



Oi 



R4 



Label . 

RTNBF050 



RTNBF100 
DOIOOOO 



Notes for Diagram HN 



1 . A 6CB address is passed in Rl . If this address 

is zero, FREEBUF must wait on all I/O. (For 
all references to the Do I/O routine and Do 
I/O function codes, see Diagram HM.) If this 
routine is entered at IKQBFA20, the function 
code is passed in RO and moved to R7, and 
R6 is set to zero before proceding. 

Regardless of entry point, R7 contains one of 
the following function codes: 

negative - BCB is to be scratched. 

zero - if I/O flags are set on in the BCB, go to 
the Do I/O routine to start I/O but not 
wait. 

positive - If I/O flags are set on in the BCB, 
go to the Do I/O routine to start 
I/O and wait. 

R6 may also contain a code: 

zero - Use R7 function codes as described 
above. 

non-zero - Override R7 function code if it was 
zero or positive. The override con- 
sists of decrementing by 1 the code 
in R6, and passing the result to the 
Do I/O routine as its function code. 

10. I/O is forced if the BCB is for a catalog, or if 

a share option 4 data set is being processed. 

1 2. The I/O function code is set to X'04' (start 

all I/O) if R7 contains zero; the code is set to 
XW (wait for all I/O to complete) if R7 is 
positive. 
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Diagram HOI. I/O manager 
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BHD 



BHDSKDQ 



BHD1STW 



BHDNSKDQ 




Schedule queue 



fl. Is the first BCB on the schedule queue also the 
first BCB on the I/O queue? 



BCB 



BCB 
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Diagrams HT, HM 



No 



Yes 



Non-schedule queue 



BCB 



BCB 




/ 



I/O queue / 



BCB 



BCB 
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2. Convert RBAs on no-schedule queue to 
MBBCCHHRs 

See Diagram HP. RBA conversion 
Write processing 



3. Set WRITE indicator 
£.4. Sort BCBs on WRITE CCHHs 

5. Build WRITE and WRITE CHECK CCWs as 

required for BCBs on I/O queue 

See Diagram HQ. Build channel program 



READ processing 



6. Set READ indicator 
k 7. Sort BCBs on READ CCHHs 
8. Build READ CCWs for BCBs on I/O queue 
See Diagram HQ. Build channel program 



Non-schedule 
queue 



O 



BCB 



BCB 
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PLH 



PLHWAREA 
(WKAIOMSW) 



Label or 
routine 



IKQIOAOO 



RBACNOOO 



IOA250 
SORTOOO 
IOA420 
BLDCPOOO 



IOA210 

SORTOOO 

IOA520 
BLDCPOOO 



Diagram H()2. I/O manager 



AMDSB 



BHD 



BHDHFLAG 



9. Issue EXCPs and store EXCP count 

10. If WRITE request, flag any other buffer with 

same RBA that is associated with ACB as having 
been written (data valid but obsolete) 



£> 



AMDLEXCP 



Label or 
routine 

EXCP000 



BCB 



$M1. Is WAIT specified? 



No 



Return 



Yes 
12. EXCP AD present? 



Yes 

t 



No 



13. Execute user's EXCPAD routine 

t 

14. Wait for completion of I/O 



:> 



BUFWRINV 



WAIT000 






Diagram HP1. I/O manager: RBA conversion 



< 



V 



< 
V 

> 



EDBs 



EDB 



LPMB 



^> 1 . Scan EDBs to find EDB with RBA range 
including this RBA 

EDB not found EDB found 

t 

2. Build a new EDB 

See Diagram HS, Extend EDB 

3. Is the volume described by the EDB mounted? 



No 



Yes 



4. Mount the volume 
See Diagram HR, Mount volume 

5. Is proper volume mounted? 
Yes No I 

♦ 

i>* 6. Convert RBA to MBBCCHHR 



►Error return 



t 



EDB 



:> 



BCB 



£> 



Label or 
routine 



IKQIOA 
IOA520 
BLDCPOOO 



RBACN050 
IKQEDX 



RBACN100 
IKQEOV 



RBACN200 



Return 



Notes for Diagram HP 



The RBA conversion formula is: 

• Low RBA = RBA displacement within extent 

• Relative control area number within extent 

(RAN) - low RBA 

bytes per control area 

• Relative track within control area (RTT) = 

remainder of f M^ * i ^ 
\ bytes per track/ 

(Add 1 to RTT if this is a data RBA and the 

sequence set is imbedded in the data area.) 

(RTT \ 

record size) +1 

• Absolute track (ATT) = RAN x (tracks per 
control area) + RTT + start track of extent. 

• CC = ATT 

tracks per cylinder 

• HH = remainder of f— T ,. A \ 

\ tracks per cylinder/ 



Li 






< 






< 
> 



Diagram HQ1. I/O manager: Build channel program 



R3_ 



PLH 



ra 



BHD 



BCB 



I/O 

driver 
block 



CCB 



• 1 . Have the required number of CCWs been build? 
No Yes HHB^ Return 



*2. Does a CCB exist? 



Yes 



No 



•3. Can this CCB be used for the current request? 

Yes No 

4. Find the last CCHHR referenced by this CCB 

5. Can the current request be added to the CCB? 



No 



Yes 




6. Point to the next CCB 



7. Obtain space for a CCB, a CCW area, and data 
area 



Module or 
routine 

IKQIOA 

BLDCP000 

BLDCP005 



BLDCP020 



BLDCP040 
BLDCP100 



Diagram HQ2. I/O manager: Build channel program 



R3 



BCB 



I/O 

driver 
block 



CCB 



R15 



W CCWs 



/ 



/ 



/ 



/ 



/ 

\ 
\ 



\ 



\ 



\ 



8. Is a SEEK needed? 
No Yes 



I ♦ 

I 9. Bi 



Build a SEEK CCW 



'10. Is a SEARCH CCW sequence needed? 

No Yes 



I ♦ 

I 11. Bi 

\ \ 



. Build SEARCH CCW sequence 



f 12. Build the READ, WRITE, or WRITE CHECK 
CCW 



Return vector: 

• CCWs were built 



> CCW space not available 



* 



13. Issue EXCP 



Open initially does a GETVIS for a 2K area 
to be used for building CCBs, channel programs, 
and the DASD address arguments for the channel 
programs. This 2K area is suballocated into 
64-byte blocks by the ALLBK000 subroutine. 



14. Wait for completion of I/O 

-\ 

o 



o© 



GETVIS area 



CCB 



T 



©* 



CCW area 



o© 

^0 



1 — 

Data area 



Label or 
routine 

ALLBK000 



BLDCP500 

BDCCW000 

BLDCP580 

EXCP000 
WAIT000 

EXCP000 
WAIT000 
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Diagram HR1. Mount volume 



R6 



RIO 



Rll 



tEDB 



t AMDSB I 



tAMBL 



EDB 



LUB 



EDBSYMU 



EDBMNT 



EDBPARDB 



tPUB 



tJIB 



■-© 

&- 
®- 



® 



JIB 



Extents 



■ 1. Obtain and initialize work area 

2. Set up control blocks and save volume serial 
numbers 



— -r^ 3. Is any volume online? 

Yes No 



AMDSB 



Volume list 



AMDPVQL r -^» VOLSERNO 



VOLMOUNT 



VOLPUBIX 



Work area 



R4 



Address of 
work area 
used by 
IKQPBF 



NVOLSER 



OVOLSER 






— '*• 4. Is the requested volume the same as the online 
volume? 



No Yes 

. . -W 5. Load (via CDLOAD macro) routine to complete 

outstanding I/O 



R15 

I Return code 1— 

Work area 



If ARDB 



Requested 
volume 
serial no. 



JIBSMAD 



OVOLSER 



®k 



— ^» ^ 



RO 



Work area 
address 



See Diagram HT, Purge buffer 
Return code = 0? 

■ Yes No 



Free extents from JIB if DASD file protect 
feature is supported, and turn off volume-mount 
flag for volume to be demounted 



"8. Mount volume 



i 



^> 



Work area 



NVOLSER 



OVOLSER 



JIBSMAD 



R15 

!^> | Return code ""] 



Modules or 
routines 



IKQEOV 

INITCTLB 
FINDLUB 



IKQPBF 




DEMOUNT 



$$BOVS01 



Diagram HR2. Mount volume 



R6 

I t EDB 



Work area 



NVOLSER 



OVOLSER 



JIBSMAD 



RIO 



t AMDSB] 



Rll 



tAMBL 



V EDB 
I EDBPARDB 



ARDB 



Work area 



Requested 
volume serial 
number 



--© 



-9. Is correct volume mounted? 

Yes No 



* 



©- 



10. Protect extents via JIB if DASD file protect 
feature is supported and turn on volume mount 
flag for volume mounted 



> 



-^- 1 1 . Free work area and restore caller's registers 



Return 



:£> 





EDB 




JIB 

























Module or 
routine 



MOUNT 






DC 



< 



< 



< 

> 



Diagram HS1. Extend EDB 



Rll 



tAMBL 



AMBL 



tAMDSB 



m 



3- 



AMDSB 



1 . Obtain and initialize work area 




— -s^2. Set up the CPL and FPL and call catalog 

LOCATE function to obtain all extents of the 
data set. 

See Diagram DB, Locate data set extents 



3. Check each key range to see if more extents 

I have been added 

-^ 4. Check if more extents were acquired for the 

I same key range 



ARDB 



3x — ~ 

\ 
\ 
\ 
\ 



. 5. Does a volume entry already exist for extents? 



No 



Yes 



" 6. Does the ARDB have space enough for another 
volume entry? 

Yes 



=C>C 



Work area 



£> 



Catalog lists area 






CPL 




CATVOLGP 
CATVOLNG 


FPL 









Module or 
label 



IKQEDX 
LOCEXTNT 



Diagram HS2. Extend EDB 



AMDSB 



EDB 



ARDB 



: i 



ARDB 



: c 



Work area 



Work area 



>■ 



AMDSB 

1 


1 

Work area 

i i i 


VOLST 


1 





A 



I : — 

i.3*- 7. Obtain storage and build a new ARDB and free 
I 4 storage occupied by old ARDB 



•/- nr^ 8. Add volume entry to ARDB 

/ / I 9. Search for new extents on this volume 
/ / f 



/ 



// 



10. Find the address of space in which to build 
EDB(s) and build them 



11. If both data and index AMDSBs are present 
process the other 



— -^12. Free work area, restore caller's registers 



+ 



Return 




BLDARDB 



BLDEXTN1 



CALCORE 
EDBBUILD 
FINDLUB 






;^ Notes for Diagram HS 



< 






> 



Description Module Routine 

2 LOCEXTNT is called and, in turn, calls IKQEDX LOCEXTNT 

the catalog LOCATE function to obtain all 
extents of the data set. If a nonzero code 
is returned in register 15 by the catalog 
LOCATE routine, an error code is set in 
the work area by LOCEXTNT to specify 
what error condition occurred before 
exiting to the mainline routine. 

3-4 Each of these steps constitutes a small IKQEDX 

loop within the major loop (i.e., steps 2 
through 1 1 are processed twice if both 
data and index AMDSBs exist). 

After each of the checks in steps 3 and 4, 
steps 5 through 10 are processed. That is, 
whenever extents are found that belong to 
the key range being processed, associated 
ARDBs, EDBs, and volume entries must 
be created for them, if they do not already 
exist. 

7 If there isn't enough space in the ARDB IKQEDX GETCORE 

to add a volume entry, GETCORE is 
called to obtain storage, copy the old 
ARDB, and free the storage occupied by 
the old ARDB. 

10 To locate and build EDB(s) for the new IKQEDX BLDEXTNT 

extents, BLDEXTNT is called and, in turn, CALCORE 

calls CALCORE to get the address of EDBBUILD 

space in which to build the EDBs, F1NDLUB 

EDBBUILD to build the EDBs for the 
new extents, and FINDLUB to find the 
LUB index in order to turn on the mount 
flag. 



Diagram HT1. Purge buffer 



AMBL 



AMBLPLHF 







1— 


BHD 

BHDSKDO 1 


Index buffer 


Schedule 
queue 




L^ 


BCB 




^» 


Data buffer 




^ 




BCB 







\ 



\ 



\ 



\ 



(J 



Index AMDSB 



Data AMDSB 






1. Point to first PLH 



< 



\ 



\ 



\) 



4fc 



BHD 



Schedule 
queue 



BHDSKDO 



BCB 



BCB 



o 
p 
to 



o 
a 

o 



\ 
\ 

\ 



K 



For key-sequenced accessing: If a wait for 
completion of I/O is pending on the I/O 
schedule queue, clear the waits for data buffers if 
the input AMDSB is for an index; if the input 
AMDSB is for data, the waits for index buffers 
are cleared first 

For entry-sequenced accessing: Only data queues 
are processed 



4. When the waits are cleared, transfer BCBs from 
I/O schedule queue to free queue 

• 5. Scan the I/O schedule queue in process for write 
only requests for the mounted volume and issue 
an I/O request for these writes 

6. Unchain write BCBs for unmounted volume from 
I/O schedule queue and add them to I/O 
no-schedule queue for eventual I/O 



Transfer write BCBs on which I/O is issued from 
I/O queue to hold queue to wait completion of 
I/O 

Scan the I/O schedule queue in process for read 
only requests for the mounted volume and issue 
an I/O request for these reads 



Label 



Wait for I/O 
completion 



=> 



Data or index 
buffer(s) 



IKQPBFOO 



IKQIOA00 



=> 



Free queue 
BCB 



BCB 



BHD 

- 1 BHD1STF" 



PBF050 



I/O no- 
schedule queue 



=> 



BCB 



BCB 



^> 



Hold queue 



BCB 



BCB 



BHD 

H BHDNSKDO 1 



PBWAREA 
- \ PBHOLDQ | 



Oi 

^ 






Diagram HT2. Purge buffer 



< 



< 



< 
> 



BHD 



Schedule 
queue 



BHPSKDQ h 



-^ 



BCB 



BCB 



PBWAREA 
|PBHOLDQ | - 



Hold queue 



BCB 



BCB 



AMBL 



AMBLPLHN 



Jf 



9. Unchain read BCBs for unmounted volume from 
I/O schedule queue and add them to I/O 
no-schedule queue for eventual I/O 

• 10. Transfer read BCBs on which I/O is issued from 

I/O queue to hold queue to wait completion of 
I/O 
11. Free any data or index control intervals which 
were held 

• 12. Move entire hold queue to end of I/O schedule 

queue 



I/O no- 
schedule queue 



PBWAREA 



. 13. Are there any more PLHs to handle? 



Yes 



\ 



No 



Return 



14. Point to next PLH 



t 




Note: The hold queue is a temporary queue built 
and used by IKQPBF. The purge buffer work 
area PBWAREA contains a pointer to the 
first entry on the queue. 



Diagram HU1. JRNAD exit: Journal a transaction 



o 



o 



O 



EXLST 



EXLJRNF 



RPL 



RPLREQ 



ACB 



ACBEXLST 



I 



* Diagrams GB,GK,GT 



1. Save registers 

2. Determine the calling routine and branch 
accordingly 

IKQVSM 

IKQMDY 

IKQCIS 

IKQCAS 

IKQSRG 

IKQSRU 



-3. Determine and insert the request-type code 




4. Calculate and insert into the parameter list: 



a. 'From' RBA 

b. 'To' RBA 

c. Number of bytes moved 



5. Insert request-type code 
■ 6. Get the address of the exit list 

k 7. Test if the user's exit is to be loaded 

Yes No 



PLH 



:£> 



PLHBSAVE 



PLHJRNSV 



PLH 



o® 



PLHAJRN 



JRNDS 



&> 



^>© 



©=> 



JRNFRRBA 



JRNDLEN 



JRNTORBA 



JRNEXIT 







Module or 
label 

IKQJRN 

JRN040 



JRN080 



JRN150 






In) 



Diagram HU2. JRNAD exit: Journal a transaction 



< 



< 



< 

> 

2 



PLH 



PLHBSAVE 



PLHJRNSV 



8. Load the user's exit routine (CDLOAD) 

9. Was load successful? 

Yes No 



Module or 
label 



10. Exit to user routine 
• 11. Restore registers upon return from user 
1 2. Return to calling module 



JRN160 
JRNRTN 



Note for step 1: Registers 14, 0, and 1 are saved in field PLHJRNSV 
Registers 2 - 1 2 are saved in field PLHBSAVE 



Notes for Diagram HU 



IKQAIX also calls JRNAD, but it uses the 
IKQVSM calling interface. 



Depending 


on the caller, the following parts of 


step 4 are executed; 


IKQMDY 


4a, 4b, and 4c 


IKQCIS 


4a and 4b 


IKQCAS 


4a (first pass) 




4b (second pass) 


IKQSRG 


4a 


IKQSRU 


4c 



o 
a 
o 

O 

"0 



Diagram HV1. Defer writing of buffers 



BCB 



m 



BUFBSPH 



^ 1 . Get address of the BSPH 



RPL 



RPLXID 



2. Indicate that buffer contents are modified 



3. Increment the count of modified buffer 



4. Invalidate all other buffers in the BSPH which 
have the same RBA and data set identifier. 



1 




Return 



IKQBFB10 



BFB110 



BFB130 



o 



Diagram HW1. WRTBFR: Write deferred buffers 



< 






< 

> 



PLH 



PLHITRN 



RPL 



RPLXID 



BSPH 



BSPHMDBT 



PLH 



PLHILRU 



PLHIPERC 



PLHIDS 



PLHIBCB 



--^ r 



If this is a write buffer request for a specific 
transaction identifier, set up a test mask with this 
identifier; otherwise set the test mask to 
X'FF ... FF' 



— -> 2. Are there any modified buffers in the subpool? 



Yes No 

Is this a write buffer request for 
least-recently-used buffers? 



► Return 



/ 



/ 



/ 



/ 



Yes 



No 



\ 



\ 



\ 



\ 



\ 



\ 



,4. Calculate, from the specified percentage, the 
number of buffers to be searched. 

» 5 . Search the subpool for a modified buffer 

(belonging to the specified data set if a data set 
identifier was supplied). 

6. Write the buffer to disk 

See Diagram HM, Do I/O 



' 7. AH buffers handled? 

Yes No 



PLH 



O 



PLHILTM 



R7 



:> 



Buffer count 



£> 



VSAM 

data set 



IKQBFB20 
■B.FB220 



BFB230 
SCMBSPH 



SCM110 



BFB238 



Diagram HW2. WRTBFR: Write deferred buffers 



o 
a 
o 

o 



^1 



PLH 



PLHIDS — -— ' — 



— =-» 8. Is this a write buffer request for a specific data 

set? 



BSPH 



BSPHNBSP 



AMDSB 



AMDATTR1 



No 



Yes 



» 9. Is there another subpool to scan? 

Yes No 



^»-10. Is this a key-sequenced data set? 

Yes No 



► Return 



►Return 



1 1 . Find the BSPH for the subpool containing the 
index buffers 

12. Have the index buffers already been handled? 

Yes No mmm+>(~P) 



Return 



BFB240 



00 

D 
■O 
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Diagram HXL Get a scratch buffer from the resource pool 



BCB 



BSPH 






| 


BSPHFRBN 




BSPHUBTM 


BSPHMDBN 







<J> 



\ 



'1. Are there any free BCBs in the BSPH? 

Yes No wmm+(7) 

2. Get address of next free BCB 



BCB 



BUFCVAL 



BUFWRINV 



BUFMDBTS 



/ 



/ 



\ 3. Does the buffer connected to this BCB have 

y <tf valid contents? 

Yes No 



' \ 

\ 



\ 



\ 



© 



4. Are there more free BCBs 

No Yes 



\ 



\ 



\ 



\ 



\ 



\ 



* 



5. Are there any modified BCBs in the BSPH? 

Yes No mmm^Cn) 

* u 

6. Get address of the first BCB which is not in use. 



\ 



Buffer 



7. Is this a modified BCB? 

Yes No 



<D 



ink: 



:£> 8. Write the buffer to disk 

See Diagram HM. Do I/O 



L 



t 



£> 



VSAM 
data set 



IKQBFB30 



BFB315 



BFB320 



BFB325 



BFB331 
IKQBFA50 



Diagram HX2.Get a scratch buffer from the resource pool 



o 

to,, 



O 

a 



O 



PLH 



PLHSTBCB 



BSPH 



9. Update the counters in the BSPH 

10. Place BCB at top of the use chain and initialize 
it. 

► Return 



11. Is BCB stealing permitted? 

Yes No 

I 

12. Try to steal a BCB from another string 

13. Was steal attempt successful? 

Yes No 



* 



14. Initialize the BCB 



\ 



No BCB 
available 




No BCB 
available 



BFB360 



IKQBFA60 



BFB375 



Return 
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Diagram HY1. Return a buffer to the resource pool 



PLH 



? 



from Diagrams DB, HF, HG 



PLHBCPLH 



AMBL 



AMBLUSB 



1 . Is this a path-entry PLH? 

Yes No 



* 



2. Free the AIX-PLH and return the AIX buffers to 
the resource pool 

3. Is there an upgrade set? 
Yes No 



I 



4. Free the PLH for the upgrade set and return the 
buffers held by each member to the resource 
pool 

5. Return the buffers for the path entry to the 
resource pool. 

6. Return the buffers for the base cluster to the 
resource pool. 



I 



AIX-PLH 



=D> 



PLHHRPL 



PLHUSE 



PLHAUSE 



Upgrade set 
PLH 



O 



PLHHRPL 



PLHUSE 



PLHAUSE 



:> 



£> 



IKQBFB40 



BFB420 



BFB440 



BFB420 





BHD 




BCB 






BHD1STF 








BHDSKDO 


BUFNBCB 


BHDNSKDO 


BUFUS 



















BFB450 



Return 



Diagram HZ1. Search resource pool for requested RBA 



o 

p 

s 

ft) 

o 
o 

o 



to 

oo 



JB1- 



R4 



R6 



Oor 

^ scratch bfr 



Parameter list 



PARMRBA 



BCB 



BUFWRINV 



BUFCWRD 



BUFCRRBA 



BUFHDSID 



BUFCVAL 



R6 



<j> 



^ 1. Is this a request for RBA search with copy 

function? 



Yes 



No 



2. Is the control interval already held in exclusive 
control? 



No 



Yes 



Error return 



./ 



/ 



/ 



/ 



3. Search for the requested RBA 



^ 4. BCB for the requested RBA for correct data set 
" found and buffer valid? 



Yes 



No 



►Error return 



■y 



Requested buffer 



-^5. Copy function requested? 

No Yes 

6. Place BCB at top of use chain 



7 . Update counters and indicate 'buffer in use' by 
setting BUFUSE to X'FF' 



8. Copy contents of buffer 

9. Copy contents of BCB 



► Return 



R14 



C> 



Return 
address +8 




R14 



> 



Return 
address +4 



R6 



IKQBFB50 



BFB525 



BFB550 





BCB 




BSPH 














BUFUSE 


BSPHFRBN 




BSPHMDBN 



















BFB555 



Ol 



^ Scratch buffer 



BFB580 



BCB 
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Diagram IA1.- CLOSE or TCLOSE: Disconnect a user's program from a VSAM data set 



OAL 



Automatic close 
(from $$BEOJ4) 



I 



User-issued 
1 CLOSE I 



tACB 


X'OAxx' 


tACB 


X'OAxx' 






tACB 


X'OAxx' 


tACB 


X'OAxx' 



l^rl. Search for an open ACB in the OAL 

1^,2. Is the OAL empty? 

No Yes 



~~ -> c 3. Has a close for this ACB already been 
attempted? 



No 



Yes 



User-issued 
TCLOSE 

J 



► Return 



•o 



4. Pass this ACB to the VSAM CLOSE routine 



t 



SVC 2 issued 



£ 



Diagram IA2. CLOSE or TCLOSE: Disconnect a user's program from a VSAM data set 



RO 



\r List 



fACB 



tDTF 



fACB 



SVC 2 | 



\ 



\ 



\ 



\ 



\ 



User-issued 
CLOSE 
SVC 2 issued 



I 



DOS/VS Close monitor 



5. Does the address in the list of ACBs and DTFs 
point to an ACB? 



Yes 



No 



SVC 2 issued 

^ VSAM interface processing 



6. Initialize the Close work area 



SVC 1 1 issued 



>© 



Non VSAM close: 



See DOS/VS LIOCS Vol. 1: 
General Information and 
Imperative Macros, 
SY33-8559 



CLOSE work area 



£> 
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K> 

00 
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\ 



User-issued 
TCLOSE 
(SVC 2 issued) 



\ 

rv 



i 



VSAM TCLOSE interface processing 



7. Does the address in the list of ACBs and DTFs 
point to an ACB? 



Yes 



No 



Return to user 
via SVC 1 1 



8. Initialize the Close work area 



t 



SVC 1 1 issued 



j 



CLOSE work area 



^> 
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Diagram IA3- CLOSE or TCLOSE: Disconnect a user's program from a VSAM data set 



Work area 



ACB 






\ 

A 



\ 



VSAM CLOSE processing 

3Z 9< ls this an open ACB? 

Yes No 

\ 



^ 



^AMBL 



AMBLBC 



AMBLUSB 



AMBBCACB 



ACB(B) 



ACBAMBL 



\ 
\ 



\ 
\ 



10. Is this ACB for an AIX? 
Yes No 

11. Has AIX processing been performed? 
No Yes 



\ 

\ \ 
\ \ Initiate AIX processing 



\ AMBL(B) 



AMBUSB 



\ USB 



USBAIX 



\| 1 12. Save the request ACB 

. Find the base cluster ACB 
^il4. Does an upgrade set exist? 

Yes No 
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Notes for Diagram IA (part 1 of 3 ) 



O 



Description 

Note: When the user program issues a CLOSE or 
TCLOSE macro against an ACB or a 
DTF, or the user program SYNAD routine 
issues a CLOSE macro against an ACB, or 
the DOS/VS end-of-job routines initiate 
an automatic close, an SVC2 is generated. 

1 $$BACLOS is called by $$BEOJ4 
(DOS/VS end-of-job routine) to initiate 
automatic closing of ACBs which were not 
closed by the user's program. 

2 If the OAL is empty, control is returned to 
$$BEOJ4, which continues end-of-job 
processing. 

3 A flag in the OAL entry indicates whether 
an attempt has already been made to close 
this ACB. If this is the case, the ACB is 
skipped, to avoid recurring attempts to 
close the same ACB, which would lead to 
a program loop. 

4 The ACB is passed to the close routine as 
an ACB list, containing only one ACB. 

5 The DOS/VS Close Monitor examines the 
DTF-type field (offset 20 from the address 
passed in the list) of the ACB or DTF. If 
the byte indicates an ACB (X'28'), an 
SVC 2 is issued and $$BCVSAM is 
fetched into the B-transient area. The list 
may consist of all DTFs, all ACBs, or a 
mixture. It is passed to the DOS/VS 
Close Monitor by the user program via a 
pointer in register 0. 

6 The VSAM interface module obtains and 
initializes a work area in which it sets a 
flag to indicate a Close macro was issued. 
Pointers are saved to the current list entry, 
the user's save area and the DOS/VS 



Module Routine 



$$BACLOS 



$$BACLOS 



$$BACLOS 



$$BACLOS 
$$BCLOSE 



$$BCVSAM 



Description 

communication region in the work area. It 
copies the user's PSW and registers into 
the work area. It loads the VSAM Close 
module and then issues an SVC 1 1 to 
branch to it. 

7-8 If the user program issued a TCLOSE 

(temporary close) macro against an ACB, 
the temporary close module is fetched into 
the B-transient area. 

The VSAM TCLOSE interface module 
examines the DTF-type field (offset 20 of 
the address passed in the list) of the ACB 
or DTF. If the byte indicates an ACB 
(X'28'), this module obtains and initializes 
a work area in which it sets a flag to 
indicate a TCLOSE macro was issued. 
Pointers are saved to the current list entry, 
the user's save area and the DOS/VS 
communication region in the work area. It 
copies the user's PSW and registers into 
the work area. It loads the VSAM Close 
module and then issues an SVC 1 1 to 
branch to it. 

9 The ACB identifier field is checked for an 

X'AO'. The ACB open flag is also 
checked. If the ID is incorrectly specified 
or the open flag is off, an error code is set 
in the work area. 

18 BUFMGT issues an RCLOSE to IKQVSM 

for each string. Dummy RPLs are built 
and passed by BUFMGT to IKQVSM, 
which then passes control to IKQRCL00. 

If load mode with speed option has been 
specified by the user's program (which 
means that a control interval is written to 
the disk only when the control interval has 
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22-24 



Description Module 

been filled with logical records), the 
remainder of the control area must be 
formatted and an SEOF record (all Os) 
placed at the end of the area. 

For a key-range data set, IKQCISOO IKQCISOO 

formats all remaining unformatted key 

ranges. 

Note: In recovery mode, each control area 
is formatted with empty control intervals 
and the control area is terminated with an 
SEOF prior to loading any records into the 
control area. Hence, in this case, it is not 
necessary to call IKQPFO00. 

IKQBFAOO is always entered from IKQBFAOO 

IKQRCLOO to complete outstanding I/O 
requests. All current read operations are 
finished and all pending update or write 
operations are done. If an error occurs 
while I/O is being completed, IKQVSM 
returns a non-zero error code in register 
15, and BUFMGT sets an error code in 
the work area. 



If RO = 0, IKQCLCAT has been called by IKQCLCAT 

Close; if RO = 4, it has been called by 
Record Management. 

To update the permanent data set IKQCLCAT 

information in the catalog, Close utilizes 
the work area for the catalog parameter 
and field parameter list. 

If the information in the catalog entry had IKQCLCAT 

been changed since the data set had been 
opened (that is, between Open and Close 
another user had processed the data set 
and information had been altered), the 



Routine 



CLCATLG 
CLALTER 



CLCATLG 
CLLOCATE 



Description Module 

latest copy of the entry must be located. 
If the data set has an index, repeat steps 
7-20 for the index. 

25 A temporary Close does not release the IKQCLO 

JIB extents. 

27 If the DASD file-protection option has IKQJIBSM 
been specified, the JIB entries for each 

extent of the data set are removed from 
the JIB chain and returned to the free 
entry list. The IKQJIBSM routine is called 
to release the extents. This processing is 
repeated for all extents. If the data set has 
an index, this step processes the index 
also. 

28 Storage obtained by Open and/or 
end-of-volume for LPMBs (other than the 
first LPMB), EDBs (other than the first 
EDB), ARDBs, BCBs, and buffers is 
released. If the data set has an index, this 
step processes the index also. 

29-31 Allocation units containing the user's 
external control blocks may not be 
released. The whole allocation chain may 
be released if the first allocation unit 
contains only internal control blocks 
('AMBL allocation chain') or if the 
external control blocks were created by 
OPEN (base cluster ACB, upgrade set 
members ACBs, etc.). 

46 The OAL entry for this data set is set IKQCLO 

'inactive' and the count of open ACBs in 
the OAL is decremented. 
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Description Module 

47 The work area error code field is checked IKQCLO 
and the error return code is moved into 

the ACB error flag field. An error 
indicator is also set in register 15 of the 
user's register save area. 

48 If there are no more entries in the list, 
control is passed to $$BCV02, the VSAM 
common exit module, via an SVC 2. 

49 For a normal (user-issued) CLOSE or 
TCLOSE, $$BCVS02 returns control to the user. 
For an automatic close, it returns control 

to $$BACLOS. 
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Section 3. Program Organization 



Module Prologues 



VSAM program listings are the key to VSAlVTs organization. You get into the 
listings from the method of operation diagrams. Once you have located the 
module or routine name that interests you in the diagrams, you are ready to 

turn to the listing to find the additional information you require. 



Each VSAM module listing begins with a description of the module, called the 
module prologue. The information contained in VSAM prologues is described 
in the topics that follow. 

Module name: The external procedure name of the module (for example, 
IKQOPN). 

Descriptive name: The English name of the module (for example. VSAM 
Open). 

Status: The version and release level of the module. 

Function: A brief step-by-step explanation of the functions performed by this 
module. Function is divided into steps so that you may more easily locate the 
routine responsible for each step. 

Notes: A generalized heading that includes (1) any dependencies, for exam- 
ple, CPU model or features, that will affect the operation of this module, (2) 
any restrictions that apply to this module, (3) symbols used to represent 
registers and register usage, (4) symbolic name of the maintenance area for 
this module and whether the maintenance area is used or reserved, and (5) 
any special terms and acronyms that are used within this module that are not 
necessarily used elsewhere in the documentation. 

Module Type: A description of the type of this module (for example, proce- 
dure or macro) the name of the compiler used/required to create this module, 
the amount of storage required by this module for executable code and 
associated data, and the attributes of the module (for example, reentrant or 
read-only). 

Entry point: The name of the point at which control can enter this module, the 
conditions of entry, the calling sequence by which control was given, includ- 
ing any parameters passed and the names of modules that may enter at this 
entry point. 

Input: A description of anything this module gets or references, such as 
registers, control blocks, or data. The means by which this module gains 
access to the input is included. 

flection 3. Program Organization 3.1 



Output: A description of registers, control blocks, and data areas at output; 
any messages issued as a result of this module's processing are included. 

Exit-normal: A description of conditions at and reasons for normal exit from 
this module, including the names of modules called by this module. 

Exit-error: A description of conditions at and reasons for any error exit from 
this module. 

External references: A list of modules, data areas, etc., defined outside of or 
accessible outside of this module. 

Tables: A list of all local tables and work areas, that is, data areas built and 
used only within this module. 

Macros: A description of system macros used by this module. 
Change activity: A list of any change activity to this module. 



Routine Prologues 



The numbered steps in the module prologue FUNCTION heading are your 
link to the routine prologues. Routine prologues contain ( 1) an expanded 
description of the processing steps shown in the module prologues, (2) input 

to the routine, and (3) output from the routine. 



Program Structures and Catalog Program Flowcharts 



The following group of program structures and, for the catalog modules, 
program flowcharts, shows how the VSAM program is organized. These 
structures link modules together from the time a macro instruction is issued by 
the user program to the time that control exits from VSAM. The structures 
are ordered by user-issued macro instructions and the verify function in a way 

similar to the organization of method of operation diagrams. In addition, 
program structures are also shown for significant subfunctions required to 
complete processing of a macro instruction. These subfunctions are the ISAM 
interface, catalog management, DADSM, and buffer and I/O management. 

The flowcharts are arranged in alphabetical order according to the last two 
alphameric characters of the module name. The title of the flowchart also has 
a number, in the third position, which is the page number within the flow- 
chart. Module IGGOCLAF is thus shown on two pages — Chart AF1 and 
Chart AF2. Off-page connectors between the pages contain the page number 
and the block location. For example, the off-page connector at block CI in 
chart AF1 contains "02 Jl " which refers to block J I on chart AF2. 
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As the flowcharts are intended to show the calling sequence rather than the 
internal logic, not all procedures are documented. Only those procedures 
which call other procedures are shown. This leads to two different types of 
cross-references in the flowcharts. Look, for example, at Chart AF2, blocks 
HI and H2. In HI, the procedure IGGPF4WR is called, with the cross- 
reference BU1A2. This means that the procedure is located in module 
IGGOCLBU and documented in Chart BUI, starting at block A2. In H2, in 
contrast, the cross-reference for procedure IGGPDLER is simply AF. This 
means that the procedure is located in module IGGOCLAF, but is not docu- 
mented. 

Figure 3.1 shows the symbols used on the structures and describes their 
meanings. 



_______ Indicates that a module is called and returns to calling 

module 

. » Indicates that a module does not return to calling module 

Indicates that a module is called under certain conditions 

and then returns to calling module 

Indicates that a module is called under certain conditions 

and does not return to calling module 

UPPER CASE Indicates that a module is executed and calls one or more 
modules before returning 

lower case Indicates that a module is executed and then returns to the 
calling module 



Figure 3.1 Graphic symbols used in program structures 
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Program structure to process an OPEN (part 2 of 3) 



(T)lKQLAB reads the label cylinder 
and establishes the connection 
between data set name and file 
name. 
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IKQOPNCT is called if a catalog 
or a catalog recovery area is to 
be opened. IKQOPNCT finds 
in VTOC the address of the 
catalog cluster record or the 
CRA cluster record and reads it. 

IKQOPNCT checks if a user 
catalog is needed to open the 
cluster. It obtains user catalog 
label information via IKQLAB 
if required. 

IKQOPNHC is called to locate 
information in the catalog con- 
cerning the cluster to be opened. 
It resets reusable data sets via 
IKQOPNRD. 

It checks whether the cluster 
can be opened according to 
the sharing conditions via 
IKQLASMD 

IKQOPNAI is called if the cluster 
to be opened is an alternate index 
cluster 

IKQOPNAI retrieves the cluster 
record of the base cluster iden- 
tified by the AIX record from 
catalog. 

(T)lKQOPNUS is called whenever 
^^^ a possible base cluster is pro- 
cessed. 

IKQOPNUS retrieves information 
concerning the upgrade set from 
the catalog. 



© 



(T)lKQSTM is called to allocate 
^-^VSAM record management 
control blocks. 

(T)lKQOPNOVis called to process 
^"^^ the cluster's extent information. 
It retrieves the extent information 
from the catalog, obtains JIB's 
via IKQJIBSM, checks if the 
proper volumes are mounted, and 
and builds control blocks via 
IKQSTM. 



© 



IKQOPNRP is called when resource 
sharing is requested. It attaches the 
cluster's control block structure 
to the resource pool. 

IKQOPNNC is called when an 

alternate index structure is to be 

opened. 

It decides which cluster is to be 

opened next and creates ACB 

and RPL via IKQSTM. 

IKQOPNDO is called whenever an 
Open error occured. It reduces the 
open count via IKQLASMD. 
It resets the open indication in 
catalog. 

It releases the JIB's via IKQJIBSM. 
It frees the allocated storage via 
IKQSTM. 

(\2) IKQOCMSG is called whenever 
a message has to be written. 

13} $$BCVS02 returns control to 
the user. 
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Program structure to process an OPEN (part 3 of 3) 
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Program structure to process a GET (part 1 of 2) 
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Program structure to process a GET (part 2 of 2) 
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- if more control intervals are needed than are allocated 

- in order to reorganize the sequence set record during 
CI space reclamation, if control intervals become free 
during update with length change 

- to write freed data CNVs and changed sequence set 
records during CI space reclamation 



^Logical error - End of data (for sequential standalone update) 



to 
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Program structure to process a PUT (part 4 of 4) 
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D 

■O 

in 

< 
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O 
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< 

B 



< 

> 



IKQCISOO 
CONTROL 
INTERVAL 
SPLIT 



r 



j 



(relative 

record processing) 



IKQRRP 

Relative 

Record 

preformat 



r 



(multi-string 
processing and new 
copy of index) 

I 
I 
IKQIXSOO 
INDEX 
SEARCH 
I 
I 
IKQBFAOO 
BUFFER 
MANAGER 
(see Figure 3.14) 



r 



(index full 
or CA full) 



IKQCIR 

CI-SPACE 

RECLAMATION 

I 

I 
IKQCASOO 
CONTROL 
AREA SPLIT 
(see Figure 3.11) 



~ J J 



(load mode 
and CA full) 



IKQNCAOO 
NEW 

CONTROL 
AREA 

(see Figure 3.11) 



Li- 



H 



L__. 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 






' 1 

I 

(load mode 
and CA full) 



IKQIXFOO 
INDEX 
FORMAT 
I 

I 
IKQSFT 

shift 



IKQIXEOO 

INDEX 

ENTER 

I 



(spanned record 
processing) 



IKQLCD 

Locate 
Direct 



(if JRNADexit 

active) 



IKQJRN 

Jouxnaling 



(sharing) 

I 

I 
IKQRBA 
UPDATE 
CATALOG 
FOR SHARING 

I 

I 
IGG0CLC9 
CATALOG 
MGMT. 
(see Figure 3.5) 



!l 



r 



zrzrzj 



IKQIXSOO 

INDEX 

SEARCH 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 



(index 
full) 

I 

I 
IKQCASOO 
control 
area split 



(high- 
level) 

I 



IKQIXFOO 

INDEX 

FORMAT 



IKQSFT 

shift 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 



(new index 
level) 



IKQNCAOO 
NEW 

CONTROL 
AREA 
(see Figure 3.11) 
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Program structure to process a control interval split 



P 
3 



IKQCASOO 
CONTROL 
AREA SPLIT 

J 



IKQNCAOO 
NEW CONTROL 
AREA 



IKQSFT 

shift 



IKQCLCAT 
CLOSE CATALOG 
INTERFACE 
FUNCTION 



IGG0CLC9 
CATALOG 
MANAGEMENT 

(see Figure 3.5) 



r 



IKQSPMOO 
SPACE 
MANAGER 
I I I I 
I I I L 



(sharing) 
I 
I 

I 
IKQRBA 
EOV 
UPDATE 
CATALOG 



r 

(sharing) 

I 

I 

I 
IKQEDX 
EOV EDB 
EXTEND 



I 



(out of 
extents) 

I 

I 
IKQNEX 
EOV GET 

NEW 
EXTENT 



IKQIXFOO 

INDEX 

FORMAT 

(see Figure 3.14) 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 



IKQSFT 

shift 



(if J RN AD exit 

active) 



I 

I 

IKQJRN 

Journaling 
(see Figure 3.14) 



IKQPFO00 
FORMAT DATA CA 
OR INDEX CI 



j u 



IGG0CLC9 IGG0CLC9 IGG0CLC9 

CATALOG CATALOG CATALOG 

MGMT. MGMT. MGMT. 

(see Figure 3.5) (see Figure 3.5) (see Figure 3.5) 



IKQSFT 

shift 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 



(extend) 
i 
I 

IKQRBA 
UPDATE 
CATALOG 



IGG0GLC9 
CATALOG 
MANAGEMENT 

(see Figure 3.5) 






Figure 3.11 



Program structure to process a control area split 



D 
O 

\ 
< 

r 

O 
n 

< 

o 

3 



< 

> 



IKQRQA 

request analyzer 1 



(error) 



IKQRQB 

request analyzer 2 



ERASE 

macro 



IKQVSM 

request driver 

LI [_LJ 



IKQUPD 

update 



1 

(normal) 

i 
i 

user's program 









IKQMDY 

modify 



(j) (^ <f> 



IKQBLD 
RDF build 



— Ji4 J Lir^_- 



<$> 



IKQSFT 

shift 



IKQJRN 
JRNAD ex 



IKQSRU 

spanned record 
update 



f 



_J 



> 



IKQLCN 

locate next 



$ 



IKQBFAOO IKQGNX 

buffer manager get next CNV 



user routine IKQJRN IKQBFAOO IKQSFT IKQBFAOO 

JRNAD exit buffer manager shift buffer manager 



user routine 



IKQBFAOO 

buffer manager 



(error) 



IKQERH 

error handler 



'1 

(error) 

I 

I 

IKQERX 

error exit 



user s program 



Figure 3.12 Program structure to process an ERASE (part 1 of 2) 



ERASE 



o 

P 

3 



3 



© 


IKQBLD is called 


© 


IKQSFT is called 


© 


IKQJRN is called 


© 


IKQSRU is called 


© 


IKQBFAOO is called 


G) 


IKQLCD is called 



if the ERASE request is for a KSDS 

if the ERASE request is for a KSDS 

if the JRNAD exit is active 

if a spanned record is to be erased 

for direct requests without the NSP option 

for sequential and skip sequential requests during 
forward processing, whenever the end of a control 
interval is reached 
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Program structure to process an ERASE (part 2 of 2) 



to 
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O 

< 



O 

o 

< 

o 



< 

> 



IKQRQA 

request 
analyzer 1 



(error) 



IKQRQB 

request 
analyzer 2 



IKQVFY 
VERIFY 

J L_ 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 



~l 



(keyed 
processing) 



IKQIXSOO 

INDEX 

SEARCH 



VERIFY 

function 



IKQVSM 
REQUEST DRIVER 



I I L_ 
I L_- 



(normal) 



I 
(error) 



t 

(error) 



User's 
program 


IKQERH 

error 

handler 


IKQERX 

error 
exit 

1 

User's 
program 



I 



IKQBFAOO 

BUFFER 

MANAGER 

(see Figure 3.14) 
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Program structure to process a VERIFY 



iKv^urAuu 
BUFFER 
MANAGER 1 



o 



P 

3 









1 




l 




"T 












(Track hold 




(when buffer (LSR 










or track free) 




not valid in 


processing) 










1 




storage) 
i 




1 
1 










1 
IKQBFCOO 




1 
IKQIOA00 


IKQBFBOO 










Buffer manager 3 


I/O MANAGER Buffer manager 2 












1 

(end of 


1 
(crossed 


1 
(I/O errors) 












I 


extent) 


volume 














1 


1 


boundaries) 1 












IGG0CLC9 


1 


♦ 


1 












CATALOG 


IKQEDX 


1 












MGMT. 


EDB 


IKQEOV 


IKQIOB00 












(see Figure 3.5) 


EXTEND 


MOUNT 


I/O manager 
















1 


VOLUME 

1 


error analysis 



















1 


1 




_ 1 




(volume 
blank) 

JJBOVSOI 








1 

(dismountj 

| 




1 

(error) 


(mounted) 

i 




JJBOPEND 


r~ 




1 
(no error) 


r 

(file protect) 






MESSAGE 
WRITER 


DOS/VS OPEN 


IKQPBFOO 
PURGE 




i 




* 


t 


i' 


DISK 


r 




$BC\^S01 


Return to 


IKQJIBSM 


Return to 


INTERFACE 


JJBOPEN 
DOS/VS OPEN 


BUFFER 


(file 




IKQIOA00 


SUMMARIZE 


IKQIOA00 


t 


1 
IKQIOA00 
I/O manager 


protect) 
1 

* 




MESSAGE 

WRITER 

INTERFACE 




JIBS FOR 
EDB CHAIN 

i 




JJBOMSG1 


JJBOPEND 




DOS/VS 


MONITOR 

i 

J$BOPENl 
DOS/VS OPEN 
MONITOR 




t 

$$BOMSGl 




MESSAGE 

\I7"D TTC T> 




IKQJIBSM 




DOS/VS OPEN 


SSBOVS03 




WRITER 




SUMMARIZE 
JIBS FOR 


DOS/VS 
MESSAGE 


DISK 


delete/build 
JIBs for VSAM 




&BOMSG2 




EDB CHAIN 


WRITER 


$BOPEN 


1 SVC 11 




DOS/VS 


i 




\ 




t 


DOS/VS OPEN 




MESSAGE 






$$BOMSG2 


MONITOR 


Return to 




WRITER 

t 


JJBOVSAM 




JJBOVS03 




DOS/VS 


f 


IKQEOV 




OPEN 




delete/build 




MESSAGE 


JJBOPEN1 
DOS/VS OPEN 






$BODADE 


INTERFACE 




JIBs for VSAM 


WRITER 






END OF 


1 




1 




t 


MONITOR 






MESSAGE 
INTERFACE 


1 SVC 11 




I SVC 11 


JJBODADE 
END OF 


♦ 








\ 
\ 


Return to 




Return to 




MESSAGE 


$$BOVSAM 








Cancel 
Return to 


IKQEOV 




IKQEOV 




INTERFACE 
\ 


OPEN 
INTERFACE 


















Cancel 


♦ 

Return to 
IKQEOV 








IKQEOV 












\ 

V Return to 
A IKQEOV 













to 
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Program structure to process buffer and I/O management 



O 

D 
O 

t/3 



O 

o 

< 

O 

3 



< 

> 



CLOSE 

macro 



AUTOMATIC 

CLOSE 

(from $$BEOJ4) 



iBACLOS 



$$BCLOSE 
DOS/VS CLOSE 
MONITOR 

♦ 

$$BCVSAM 

CLOSE 

INTERFACE 



TCLOSE 

macro 



ip$BTCLOS 

TCLOSE 

INTERFACE 



<p 






~i I — 

IKQCLO00 
VSAMCLOSE 



r 



■Q> 



IKQCLOVY 

initialize 
AIX CLOSE 



IKQVSM 
REQUEST DRIVER 

-dJILim 



IKQRQA 

request 
analyzer 1 
i 



(error) 
I 

I 

IKQRQB 

request 
analyzer 2 



IKQRCLOO 
RECORD 
MGMT 
CLOSE 

I I 

J L 



(shared 
resources) 
I 

I 
IKQBFBOO 

write deferred 
buffers 



(error) 



IKQERH 

error 
handler 



(load mode 
with speed 
option) 

i 

IKQPFO00 
FORMAT DATA 
CA OR INDEX CI 
I 



IKQSFT 

shift 



Figure 3.15 



(load mode IKQBFAOO 

and key BUFFER 

range) MANAGER 

| (see Figure 3. 

1 

IKQCISOO 

CONTROL 

INTERVAL 

SPLIT 

IKQBFAOO (see Figure 3.10) 

BUFFER 
MANAGER 
(see Figure 3.14) 

Program structure to process a CLOSE or 



14) 



I 

(error) 

I 



I 
I 

IKQERX 
error exit 

! 

I 
EXLST 

I 

♦ 

User's 
program 




IKQCLCAT 

Close catalog 

interface 

function 



IKQLASMD 

look aside 
module 



<*) Cp (b (J) 



IKQCLCAT 

Close catalog 
interface function 
(see Figure 3.5) 



IKQJIBSM 
SUMMARIZE 
JIBS FOR 
EDB CHAIN 



$£BOVS03 
delete/build 
JIBs for VSAM 

Return to 
IKQCLO 



IKQSTM 

storage 
manager 



IKQOCMSG 

message writer 



IKQCLOCL 

close AIX 



$$BCVS02 
common exit 



TCLOSE 



— . 
o 







© 



© 



© 



IKQCLO VY is called if an Alter- 
nate Index structure is to be closed: 
i.e. a path entry or an upgrade set 
exists. IKQCLO VY determines 
which cluster is to be closed first. 

IKQVSM is called to complete out- 
standing I/O. For LSR (local 
shared resources) deferred I/O is 
completed. 

IKQCLCAT is called to update 
the high water marks and the sta- 
tistics for the data set to be closed 
in catalog. 

IKQJIBSM is called if the data set 
was shared across partitions 
(share option 4). JIB's (Job infor- 
mation blocks) are deleted. 



(?) IKQSTM is called for CLOSE 

Request to free the virtual storage 
occupied by the control blocks 
of the data set to be closed. 



© 



IKQCLOCL is called if an alternate 
index structure is to be closed. 
IKQCLOCL determines the next 
cluster to be closed. 



(T) IKQOCMSG is called whenever 
an error turns up during close. 
IKQOCMSG writes a message to 
the user. 
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Program structure to process a CLOSE or TCLOSE (part 2 of 2) 



**A1***** 
ENTRY 



A3******* 
ENTRY 



♦CHECK FOR CTLG 

* OPEN IF IT 

* EXISTS 



* ISSUE IKQRLSE * 
*FOR SYSOPEN AND* 

* CATALOG * 



**** 

* * 

* B5 * 

* * — 1 

**** ] 
*****g 5* ********* 

* * 

* * 
*SEABCH FREE RP1* 

* * 

* * 
***************** 



C1 *. 
*ALTER, * 
DEFINE, 
DELETE, 
LISTCAT 



*IGGPSCAT AH1A1* 



->*RCUIES FEQUESTS*- 
* TO PROPER * 
ECUTINES * 



*»***-******** 



*1GGEUPD AV1A2* 

•♦UPDATES CATALCG* 

***************** 



* LOCATES VOL. 

* INFC AND DATA 
*SET ATTRIBUTES 



C3********* 


1 .* *. 


* 


| NO . * DELETE OR * 


RETDRN * 


| < — * . SCRATCH SPACE 


* 


| *. .* 


*********** 


*.. „■• 



***D4 *********** 



| *ISSDE IKQUSE * 
| FOR SYSOPEN 
1 * * 


| **************** 
1 


! 




.* . 


E<* *. 
. * *. 


YES .* *. 
, *. CRA REQUEST . *<- 



***P4 *********** 



**************** 



EXCLUSIVE 
USE 



*****H(l ********** 

* * 

* FREE BPL * 

* * 

* * 
***************** 



C5 
. * 
* 

CRA REQUEST 
*. 
*. 

*. . * 
♦NO 



EST '.* , 



**** 

* * 

* G5 * 

* * 
**** 



*** D 5********* 



**************** 



.♦SHARED *. 


„•* USE 6RPL *'* N0 
* * . NOT FOUND. * * | 
*. .* V 


*. .* **** 


"YES * 




* G5 i 




* 




**** 


•' 


***** F 5* ********* 


* * 


* INDICATE * 


* EXCLUSIVE * 


* USE * 



*************** 



* G5 * 

****G5****** 

* 
>* RETDRN 
************ 



L>,* 



****K2***** 
RETURN 



Chart AB1. Catalog driver (IGGOCLAB) 



3.32 DOS/VS LIOCS Volume 4: VSAM 



IGGPMCO 

**** 


A1********* 


ENTRY 


**** 


*********** 



DEFINE 
HASTER 
CATALOG 



* BUILD ACB AND 
*ISS0E OPEN FOR 
♦MASTER CATALOG 

**************** 



1******** 



*****p 1* 
•IKQRLSE 

*_ *_ *_ *_ *_ *_ *_ *. 
* RELEASE 
I SYSMCO 

*************** 
I 



****G1***** 

RETURN 

*********** 



Chart AC1. Master catalog search (IGGOCLAC) 



Section 3. Program Organization 3.33 



ENTRY * 

* 
************ 



*_*_*_*_*.. *_*_*_* 
*SEE FIGURE 3. 3 * 



*****Q-\* ********* 

♦IKQRLSE * 

*_*_*_*_*_*-.*_*_* 



♦RELEASE SYSHCO * 

* * 

***************** 



****D1********* 

* * 

* RETURN * 

* * 



Chart AD1. Master catalog open (IGGOCLAD) 



3.34 DOS/VS LIOCS Volume 4: VSAM 



ENTRY 



* ENTRY * 

* * 
*************** 



*************** 



♦INITIALIZE ACB 

* FOR OPEN 

* CATALOG 



* OPEN CATALOG * 

* * 
***************** 



>* WRITE * 

* CONSTRUCTED * 

* CTLG RECORDS * 

***************** 



* INSERT SELFDE 

* SCRIBING REC. 

* INTO CTLG 

**************** 



****£<!* ******** 

* RETURN * 

* * 
*************** 



*****D5* ********* 
♦IGGPXIO CG1A1* 
*_*_*_*_*_*_*_*_* 
♦BRITE VCLSER OR* 

* CLUSTER TRUB * 

* NAHE ENTRY * 
***************** 






***************** 



F2 *. 

.* * . 

. * *. 

*.USER- CATAIOG. 



************ 



***************** 



****P5* ******** 

* * 

* RETURN * 

* * 
*************** 






♦CATALOG BACKOUT* 

***************** 



****0 3***** 
* 
* RETURN 

*********** 



Chart AE1. Catalog build and open (IGGOCLAE) 
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ENTRY 



* ENTRY 

* 
*************** 



*.USER- CATALOG.* 



*****3 2* ********* 
*IKQVDTPE * 

*_ *_ *_ *_*_ *_*_*_* 

* BEAD LABEL * 

* INFCRHAIICN * 

* * 
***************** 



*************** 



*IGGPF4RD BU1A1* 



♦IGGPF4WR BU1A2* 



**** C (|********* 

* * 

* RETURN * 

* * 
*************** 



r~ 



* USERCAT * 

DEFINED AND 
*. MCAT OPEN.* 



************* 



*H1******** 
RETURN 



Chart AE2. Catalog build and open (IGGOCLAE) 
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ENTRY 
********** 



r 



.* CATALOG *. NO 

.CLUSTER ENTRY.* 

*. FOUND . * 



* CHECK IF CTLG * 
♦IN USE BY OTHER* 

* PARTITION * 

****. ************* 



*'. ERROR .' * t 



*****£2********* 

♦IGGPPDE AG1A3 

*_*_*_*_*_*_*_*_ 

* PUT DELETE 

* RECORD 



n 



.* DISCON- 

->*.NECT OPTIONS 

*. U-REC. 



l->*C2 * 



'1 

***** 

♦ 02 * 

* H2* 



***** D 3*** 
*IKQVDTPE 



..-'-""} 



G3 *. 
ERROR 



, >* EXTRACT DATA- 

* SPACE INFORM. 
*FROH VOL. ENTRY 



K3 *. 

. * ALL * 

SPACES 

EXC. CTGL 

. SPACE 

♦.DEL. .* 



* CLOSE CATALOG ♦ 



************** 



DELETE *. YES 
MASTER 
CATALOG . 



1 



***** 

♦ 02 * 

* B1* 



*****Q5* ********* 
♦IGGESCAT AH1A1* 

*_*_*_*_*_*_*_*_* 
♦SEARCH CATALOG ♦ 

♦ TO FIND USER- ♦ 

♦ ENTRY ♦ 

***************** 



. ♦. 



NO ERROR 
AND USER 
. ENTRY 



_*_*_*_* 



************* 



*****H5* ********* 
♦IGGPCCCB AG2E2+ 

*_*_ *_*_ *_*_*_*_* 

♦ UPDATE CCR ♦ 

* * 
***************** 



***************** 



Chart AF1. CMS delete catalog (IGGOCLAF) 
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*****c i* ********* 

*IGGPF4RD BU1A1* 

♦i.*-.*--*^*-*-*-*-.* 

* READ FORMAT 4 * 

* DSCB * 



******* 



") 



**C3********** 
GPSCAX CO * 
_*_*_*_*_*_*_* 
ARCH FOR THIS* 
OLUME'S CRA * 
CAXWA * 

************** 

I 
I 
I 

l 

D3* '*. 

. * *. 

CAX FOUND .'* 



CLOSE CRA 



* LOCATE AND 
♦STORE MOD NAME . 

* INTO MSG 

**************** 



ISSUE PROBLEM * 

DETERMINATION * 

MESSAGES * 

**************** 



* ENTRY 

************* 



*B5********** 



***************** 



GET USER * 

CATALOG LUB * 

INDEX * 

********** ***** 



* *** *g 5* ** ******* 
*IKQ¥DCN * 



***************** 



•NO 

**** 

* * 

* Gi * 

* *^ 
**** 

*****G1********* 
* 

* RESET VSAM 

* FIELDS IN F4 

* DSCB 



*F3********* 
RETURN * 



****P5 ********* 

* * 

* RETURN * 

* * 
*************** 



***************** 



**** 
*0 2 * 
* Jl 



♦ERROR CLEAN UP 

**************** 



L 



*j<\***** 
RETURN 



Chart AF2. CMS delete catalog (IGGOCLAF) 
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*A2***** 
ENTRY 



♦A3***** 
ENTRY 



CCR IN 

VIRTUAL 

STORAGE 



I 
V 

*****£-)********** 

♦IGGPRCCR AG2A2* 

*_*_*_*_*_*_*_*_* 

* RETRIEVE THE * 

* CCR * 



YES 

r— * 



♦ENOUGH FREE* 



♦IGGPANCI AG2A3* 



* FORCE CTGL 
♦EXTENSION ASSGN 
*AND PREFORM. CI 



♦IGGECCCR AG2F2* 



CCR IN 

VIRTUAL 
STORAGE 



*****C2**^ ******* 
♦IGGPRCCR AG2A2* 
*_*_*_*_*_*_*_*_* 

* RETRIEVE THE * 

* CCR * 

***************** 



* PREFORMAT AND 
♦ASSIGN CI'S TO 

* CALLER 



****H2******** 
* RETURN 



* CTLG 

BUILD/OPEN 
*.CBA BUILD. 



"1 



♦RETRIEVE (GET) 

* TRUE NAME 

* RECORD 



* SET SWITCH TO 

* UPDATE AND 

* REWRITE CCR 



CCR IN 
VIRTUAL 

STORAGE 



**************** 



*****H5* ********* 
*IGGPTRPL CGU4* 

*_*_*_*_*_*_ *_ *_ * 

* ENSURE UPDATE * 
*FOR CTLG HJSCORD* 

* STATUS * 

***************** 



*****j 5* ********* 
♦IGGPXIO CG1A1* 
*_*.,*_*_*_*_*_*_* 

* REWRITE (PUT) * 

* AS FREE CTLG * 

* RECORD * 
***************** 



RETURN 

********** 



, >* RETURN 

J*************** 
*** 



Chart AG1. Catalog I/O Subfunction (IGGOCLAG) 
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ENTRY 



*A2******** 
ENTRY 



* ENTRY 

* 
************** 



****A4********* 

* * 

* ENTRY * 
*************** 



TRUE NAME 

RECORD 

.REQUIRED . 



♦RETRIEVE (GET) 
* IHE CTIG 
*CCNTBCL RECCED 



**q 2*** ******* 



******** 



* UPDATE HIGH * 
♦USED RBA'S FRCP* 

* CCR INFO * 



* J1 

**** 



CCR IN 

VIRTUAL 

STORAGE 



*****Q-\********** 

* * 

* SET SWITCH TO * 

* UPDATE AN * 

* REWRITE CCR * 



REWRITE NEW 

TRUE NAME 

RECORD 



**** j-\******** 
* RETURN 



*E2***** 
RETURN 



* 
ENTRY * 
************* 



RETRIEVE TfiE 

CTLG CONTROL 

RECCRD 



* SEARCH HIGH 

* USED RBA^ IN 

* RM CE-'S 

* 
*************** 



EOV . *.- , * ENTRY * 

.* I * * 

, * v *************** 



*****C3* ********* 

* SET FLAG TO * 

* INDICATE THAT * 
*CRA NEED NOT BE* 

* UPDATED * 



*********** 



ADD REMAINING 

CI'S TO FREE 

CHAIN 



♦UNASSGN. RECORDS* 

***************** 



****P3******* 
* 

* RETURN 

* 

************* 



********** 



***** j 3* ********* 



************** 



**K3* 

RETURN * 

************* 



* JU * 

* * 
**** 



*****Q(|* ********* 



**************** 



*****£)4 ********** 

*IGGPXIO CG1A1* 

* PREFORMAT AND * 

* WRITE PREE * 

* RECORD * 

***************** 



*****C5* ********* 
♦IGGPXIO CG1A1* 

*_*„*_*_*_'*_*_*_* 

* WRITE (PUT) * 

* PREFORMAT CI * 

* * 
***************** 



D5 *. 
ERROR 



*****£5********** 

♦IGGPIORA CG1E5* 

RETURNCODE * 

ANALYSIS * 

ROUTINE * 

***************** 



*****YH* ********* 
♦IGGPIORA CG1E5* 

* RETURNCODE * 

* ANALYSIS * 

* ROUTINE * 

***************** 



.* ALL *. 
~*. REMAINING CII. 
*. CHAINED ,* 



*****G 5* ******* 
♦IGGPCHAC CG 

* COMPUTE HIGH 

* ALLOC. CI# OF 



♦COMPUTE CI# OF * 
* HIGHEST .* 
♦ALLOC. CTLG REC* 

***************** 



****j4 ********* 

* RETURN * 

* ♦ 
*************** 



****H5* ******** 

* RETURK * 

* * 
*************** 
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ENTRY 



♦IS CATALOG * 
BEING OPENED 
♦.OR BUILT . * 



ALCG .* -, 



* E2 

**** 



EKSURE THAT 

FECOHD STATUS 

IS COMPLETE 



*+++**+++ 



*****[) 1* ******** 

* LOCATE THE 

* RECORD IN THE 

* DEFINE WORK 

* AREA 



*****E1********** 
♦ISSUE EXCP AND * 
* WAIT TO * 

>♦ RETRIEVE THE * 
"■CATALOG RECORD * 



GET THE 

TRUE-NAME 

RECORD (KGE) 



♦CCNVEFT CCNIRCL* 
"INTERVAL NUMBER* 

* INTC REA * 

* * 
***************** 



******** 



* GET THE * 

* TRUE-NAME * 

* RECORD (KE) * 

***************** 



***************** 



****D5********* 

* * 

* RETURN * 



♦INITIALIZE THE 

* VALUES IN THE 

* RAB 



*H1********* 

RETURN * 

* 

************ 



GET CATALOG 

RECORD FOR 

UPDATE 



GET CATALOG 

RECORD FOR 

READ-ONLY 



* ENTRY 

*********** 



IS CCR IN 
VIRTUAL 
. STORAGE 



.*IS THERE A * 
.FREE CONTROL 
♦..INTERVAL .♦ 



->♦ RETRIEVE THE * 

* FREE CCNTRCL ♦ 

* INTERVAL * 

***************** 



*****q5* ********* 
♦ASSIGN THE FREE+ 

♦ CONTROL ♦ 
♦INTERVAL TO THE^ 

♦ CALLER ♦ 

♦ * 
***************** 



♦ H5 ♦ | 

* *_>| 
**** v 



HAS THE 

CATALOG 

.EXTENDED 



***************** 



****K 5* ******** 

* * 

♦ RETURN ♦ 



********** 
I * 
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* ENTRY 

* 
************** 



♦SET CATALOG ACB* 

* OPEN USER- * 

* CATALOG * 

***************** 



♦.CATALOG FOUND.* -. 



*****D2********* 
♦TRANSLATE TRUE 

* NAME INTO 

* CI-NUMBER IN 

* CPA 



. ♦ USER- *. 
YES .* CATALOG *. 

*. DELETE DISC . 

*. REQUEST .* 



*****£ 3* ********* 

♦IKQVDTPE * 

*_*_*_*_*_*_*_*_* 



~n 



*****£ 3* ********* 



***************** 



-~n 



*****Q4* ********* 

♦IGGPRPLF AB1A3* 

*_*_*^*_ *_*_ *.. *_ * 

* * 

* FREE RPL ♦ 

* * 
***************** 



.♦ U- ENTRY *. NO 


FOUND .*-, — 


♦. .* 


♦. . * 


*, ,* *** 


"YES * 




♦ KU 




* 




*** 


' ' 



*****D4* ********* 

* * 

* ISSUE IKQUSE * 

* FOR UCAT OPEN ♦ 

* AND UCAT ♦ 

* * 
***************** 



********** 



***************** 



.♦LAST OPEN, 

♦. CLOSE EOV 

♦. REQUEST . 



__CM POOL FOR * 
♦ THIS CATALOG ♦ 

***************** 



*****j 2* ********> 

♦IGGPGET AG3A1 


>* GET REQUIRED 

* RECCED 


********* 


r******* 






****K2* 
* 
, >♦ RET 

I ♦ 

| ******* 


******** 


JRN 

******** 



♦. CAXWA FOUND . ♦- 



_*_*_*_*_ 

* * 

* ASSIGN RPL * 

* * 
***************** 



*****j 3* ********* 

♦IGGPGET AG3A1^ 

*_*_*_*_*_*_*_*_* 
♦GET UCAT ENTRY ♦ 

♦ IN MCAT ♦ 

* * 
***************** 



I .... 

L_>* * 



♦ OPI 
SUCCE. 

*, 
* . 
*, 

i 


:n ♦ 

5SFUL 

, * 
,* 

►YES 


. NO 

-I 

**** 

* * 

* K4 ♦ 

* * 
**** 


***GH** 


1 
********* 


ADD CA 
CM 


CHA TO 
UN 


* 
* 



***************** 



*****H4* ********* 

♦ * 

♦ ISSUE IKQRLSE ♦ 

♦ FOE UCAT OPEN ♦ 

♦ AND UCAT * 

♦ * 
***************** 



*****j(j* ********* 



***************** 

**** 

* * 

* KU ♦ 

* *. 
**** 

****K 4********* 

* * 

* RETURN ♦ 

* * 
*************** 
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* A1 ***** 

ENTRY 



ENTRY 



♦A3***** 
ENTRY 



******* 

* ENTRt * 

* * 
*************** 



♦INIT. CATALOG- * 
♦RECORD KEY AND * 
♦CONTROL INFORM. * 

***************** 



* OBTAIN ALL 
♦PHYSICAL SPACE 
♦THAT IS NEEDED 



**************** 



BUILD VOLUME 

GROUP OCCUR. 

FPLS 

************** 



F1 *. 
ERROR 



***»*92********* 

* ESTABLISH 
♦UNUSEE VOLUMES 

* AS CANDIDATE 

* VOLUMES 

**************** 



SUBALLOCATE * 

CANDIDATE * 

VOLUMES * 

*************** 



****D2********* 

* * 

* RETURN * 

* * 
*************** 



B3 *. 

. * *. 

. * *. 

.UNIQUE DEFINE. ♦ 

*. . * 

* . .♦ 

'♦NO 



DATA SET 

CANDIDACY 

PROCESSING 



*****C4* ********* 
♦IGGPDEFS AQ1A1* 

*_*_*_*_*_*_*_*_* 

* * 

* DEFINE SPACE ♦.. 

* * 
***************** 



, *, 




D3 *. 

. * ♦. 


.* *. YES 

ERROR .♦ 1 

♦. .* 




*. .* 




*. .* 




*NO 

I 




I 

****£3********** 

IGGPSALL AR1A1* 

_*_*_*_*_*_*_*_* 




SUBALLOCATE FOR* 
SPACE * 

* 




*******> 


********* 





*****C5* ********* 
♦IGGPDEXD AJ * 
*_*_*_*_*_*_*_*_* 

* BUILD EXTENT * 

* DIRECTORY * 

* * 
***************** 



*****Q2********** 

*IGGFCLBF CE1A4* 

*_*_*_*_*_*_*_*_* 

* * 

* CLEAR BUFFER * 
***************** 



*****G 3* ********* 
*IGGPDSEX AJ1A5* 

*_*_*_*_*_*_*_*_* 

* * 

* STORE EXTENTS * 

* * 
***************** 



*********** 



D5 ♦. 

.♦ PBEE ♦. 

.* DIRECTORY *. 

. ENTRY OR 

♦.EXTENSION.* 



*****£5 ********** 

♦IGGPDEXD AJ * 

*_*_*_*_*_*_*_*_* 

* BOILE AN * 

* EXTENSION * 

* * 
***************** 



*****F5* ******** 

* SAVE SPACE 

* EXTENTS AND 

* PLACE EXTENTS 

* IN NEW SAVE 

* AREA 
**************** 



****G5***** 
* 
♦ RETURN 

* 
********* 



***H3******* 
RETURN 

************ 



* FREE UNNEEDED * 

* STORAGE * 

* RESOURCES * 

***************** 
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ENTRY 

******* 
I 



*****£-)*** ******* 

*IGGPDBYO AKU2* 

*_ *_ *_*_ ♦_*_*_*., * 

* BUILD VOLUME * 
♦OCCURENCES AND * 

* FPL'S * 
***************** 



.*■ KSDS AND *. 
.INDEX OR ESDS. 
*. AND DATA .* 



*****q-|*** ****** 
*SET CRA VOLUME 

* SERIAL NUMBER 
*AND CRA DEVICE 

* TYPE 
* 
**************** 



* CLEAR BUFFER * 

***************** 



*************** 



**G1******** 

RETURN 

************ 



. * *. 
* *. ! 

MORE BLOCKS . *■ 



**** 

* * 

* E3 * 



****P2********** 
FROCESS FPL * 



E2 


*, 




, * 


* , 




. * 




*. NO 


'. KEY 


RANGE 








* 1 




. * 


V 


* 


. .* 


**** 




•YES 
I 

I 
) 


* 

* G2 
**** 


n****P2 


********** 


►JGGPDRNG AK 










►STORE 


RANGEKEYS* 


► AND 


LENGTHS 




******* 


******* 


*** 


**** 












► G2 * 







*****£ 3* ********* 

♦IGGPDEXD AJ * 

*_*_*_ *_*_*_*.«.*_* 

_* * 

* GET DIRECTORY * 



"1 



CANDIDATE ' 

VOLUMES 

.REQUIRED .' 

♦.FPL'S.* 



*****F 3* ********* 

♦IGGPDBCV AK1A<** 

*_*__ *^ *_ *_*_ *_*_ * 
*BUILE CANDIDATE* 

* VOLUME GROUP * 

* OCCURRENCES * 
***************** 



*****G 2** ******** 



*************** 



*****H2********** 

* * 

* * 
♦PROCESS EXTENTS* 



******** 



*************** 



♦COMPUTE OBJECT * 
*REAS AND ENEING* 
* CCfcH Of EXI, * 

***************** 



****J3********* 

* * 

* RETURN * 

* * 
*************** 



ENTRY * 

************* 



NO .* FPL 
~*-*. DIRECTORY 
FULL 



*****£ 4* ********* 

♦IGGPDEXD AJ * 

*_*_*_*_*_*_*_*_* 

* GET ANOTHER * 
*DOECTOBY BLOCK* 



******** 



*****D4********** 

* BUILD FPL AND * 

* VOLUME OCCUR * 

* RENCES AND *. 
♦PROCESS VOLUME * 

* * 
***************** 



****E4********* 

* ♦ 

* RETURN * 

* * 
*************** 



* ENTRY 

************ 



*****B5* ********* 

* * 

* CAtCULATE NEW * 

* EXTENT HIGH * 

* ALLOCATED RBA * 

* * 
***************** 



NEED 

ANOTHER 

.DIRECTORY. 



*****q 5* ********* 
*IGGPDEXD AJ * 

*,.*_*_*_*_*_*_*..* 

* GET SPACE FOR * 

* DIRECTORY * 

* * 
***************** 



*****E5 ********** 

* SET NEW FPL * 

* ADDF IN DIRECT.* 
♦AND UPDATE * OF* 

* DATA SET * 

* EXTENTS * 
***************** 



****F5* ******** 

* * 

* RETURN * 

* * 

*************** 
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*A1***** 
ENTRY 



****A4* ******** 

* * 

* ENTRY * 

* * 
*************** 



*IGGPDCAV AL1A2* 



DATE AND 

ENTRYNAME 

PROCESSING 

************* 



♦SPACE CALCULAT. * 

* AND BUILD * 

* CLUSTER ENTRY * 

***************** 



** E1 ***** 

RETURN 

********* 



♦CfcECK VALIDITY 
♦OF CLUSTER FVT 
* AND hCRKAFEA 



♦CHECK VALIDITY 

* OF DATA FVT 

* STRUCTURE 



♦CHECK DNAME AND 
♦DATA ATTR. FOR 
♦INDEX FVT STR. 



SPACE FVT : 
REQUIRED 



♦CATALOG DEFINE 

♦ SPACE FVT 

♦ CHECKING 



*****£2******** 

♦ EBDS NCT 

♦ SPANNED MAX 

♦ RECLENGTH = 

♦ AVERAGE 
RECLENGTH 

*************** 



************** 



*F 3****** 

RETURN 
********* 



******** 



♦CEECK VALIDITY * 

♦ FOR INDEX FVT ♦ 

♦ STRUCTURE ♦ 



♦CHECK DNAHE AND+ 
♦DATA ATTR. FOR ♦ 
♦DATA FVT STRUCK 



KEY ♦. NO 

SEQUENCED . * 

.DATA SET .♦ 



♦YES 



*****B<4********* 
♦IGGPDWAI AL 

*_*_*_*_*_*_*_*_ 
♦ WORKAREA 
♦INITIALIZATION 



******** 



***** 



*****C<j* ********* 
♦IGGPDCDE AL ♦ 

*_*_*—*_*_*_*_*_* 

♦ CLUSTER DATE ♦ 

♦ AND ENTRYNAME ♦ 

♦ PROCESSING ♦ 
***************** 



♦OBJECT DATE AND^ 

♦ ENTRYNAME ♦ 

♦ PROCESSING * 

***************** 



*****F4* ********* 
♦IGGPDEDE AL * 
*_*_*_*_*_*_*_*_* 
♦OBJECT DATE AND* 

* ENTRYNAME * 

♦ PROCESSING ♦ 
***************** 



♦PROCESS CLUSTER* 

♦ SECURITY FPL * 

* STRUCT. * 

***************** 



PROCESS DATA * 

SECURITY FPL * 

STRUCTURE * 

**************** 



***** 55* ******** 

♦IGGPDST4 AL 

*_*_*_*_*_*_*_*_ 

* PROCESS INDEX 

* SECURITY FPL 

* STRUCTURE 

**************** 



****C5* ******** 

* * 

* RETURN * 

* * 
*************** 



********* 

I 



*****E5********** 



************* 



*****P5* ********* 

♦IGGPGET AG3A1* 

*_*_*_*_*_*_ *_ *_ * 

* RETRIEVE TRUE * 

* NAME RECORD * 

* * 
***************** 



♦YES 

L**** 
>* * 
* B5 * 



* GENERATE TIME * 
♦STAMP VALUE AND* 

* ENTRYNAME * 
***************** 



*****j 5* ********* 
♦BCVE ENTRYNAME * 

* TO USER HORK * 

* AREA SET * 

* TYPECODE * 

* * 
***************** 
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****K5********* 

♦ ♦ 

♦ RETURN ♦ 

♦ * 
*************** 



Section 3. Program Organization 3.45 



ENTRY 



**** A ^********* 

* * 

* ENTRY * 
*************** 



* ENTRY * 

* * 

*************** 



PROCESS SPACE 

PARAHETER FPL 

STRUCTURE 



*****B 3* ********* 

* * 

* * 

* PROCESS AMDSB * 



♦PROCESS BUFFER 

* SIZE FPL 

* STRUCTURE 

**************** 



♦AVERAGE LOGICAL* 

* REC. SIZE FPL * 

♦ STRUCTURE * 

***************** 



*************** 



%****F2****^****+ 
♦IGGPCRDA AN1A3+ 
*..*_*_*_*_*_*_*,.* 
♦REGULAR DEFINE * 

* AMDSB * 

* PROCESSING * 
***************** 



*********** 



************** 



*****£3******* 

♦IGGPDCCE AN 

*_*_*_*_*_*_*_: 



************* 



****P3********* 

* * 

* RETURN * 

* * 
*************** 



*****£ 4* ********* 

* * 

♦ SET UP FOB * 
♦NORMAL CLUSTER * 

♦ ENTRY * 

* * 
***************** 



***** D 4* ********* 

♦IGGPAOCI AG1A2* 

*_*_*_*_*_*_*_*_* 

* * 

* ASSIGN CI'S ♦ 

* * 
***************** 



***** C 5* ********* 

♦ * 

♦ SIT UP FOR * 
♦CATALOG CLUSTER* 

♦ ENTRY * 



*****£ 4* ********* 



***************** 



ERROR 

' *. .** 



♦DEFINE CATALOG 
♦DATA AND INDEX 
♦BOILD PROCESS. 

**************** 



************* 



♦INTERCEPT ROUT.^ 

♦ TO STORE ♦ 

♦ CLUSTER ENTRY * 

***************** 



****H4 ********* 

* * 

* RETURN * 

* * 
*************** 



****K2********* 

♦ RETURN ♦ 

* * 

*************** 
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ENTRY 



*IGGPCLBF CBU4* 

* INTERCEPT * 

* ROUTINE TO * 

* CLEAR BUFFER * 

***************** 



*****F1********** 

* CONSTRUCT CPL * 
*FPL AND CONTROL* 

* VALUES FOR * 

* DEFINE UNDO * 



* CIS *. N 
ASSIGNED TO . *- 
*. CLUSTER .* 



*. CMS DEFINE 



*IGGPBOUT CA2A4* 
♦BACKOUT ROUTINE* 



**************** 



* DELETE RECORD * 



GET RECORD 



* DELETE RECORD 
**************** 
I 



* ENTRY * 

* * 
*************** 



D .* . 

.*' V 



**** 

* * 

* E5 * 

* * 
**** 



*****£ 5* ********* 
♦RETRIEVE GRCUP * 

* OCCURENCE * 
>* COMBINATION * 

* FIELD FOE * 

* DELETE * 



********** 



****j3********* 
* * 

, >* RETURN * 

I * * 

*************** 

**** 



*IGGFDEUN AK2A5* 



PUT DELETE 
EXTENSION 
RECORD 



UT DELETE * 
EXTENSION * 
RECCRD * 

****** 



******: 



****K4****** 
* RETURN 
************ 



* A3 * 

* * 
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ENTRY * 

************* 



* ENTRY 

# 
************ 



* ENTRY * 

* * 
*************** 



*****B1********** 

* SET FIXED * 

* VALUES IN * 

* CATALOG DATA * 

* ANDSB * 

* * 
***************** 



52********** 



***************** 



♦DEFINE CATALOG 
* VOL. SERIAL 
♦LISTS PROCESS. 



****pi********* 

* * 

* RETURN * 



*****C2********** 
♦IKCVDTFE * 

*_*_*_*_*_*_*_*_* 

♦ READ LABEL INFO* 

* TC GET DEVICE * 
♦CHARACTERISTICS* 
***************** 



*****Q2********** 

* * 

* SET DEVICE * 

* DEPENDENT * 
♦VAIUES INTO HA * 



♦DEFINE CATAIOG * 

* SPACE PARK. * 

* FBOCESSING * 

***************** 



****p 2 ********* 

* * 

* RETURN * 

* * 
*************** 



*****53* ********* 
♦IGGPDCON AP * 
*_*_#_*_*_*_*_*_* 

* CONVERT SPACE * 

* PARAMETERS TO * 

* TRACKS * 
***************** 



*****C3*** 



* INCREASE * 
♦REQUESTED SPACE* 



***************** 



*****D 3* ********* 

* ROUND SPACE * 

* PARAMETER AND ♦ 

* CHECK DATA * 

* SPACE * 

* PARAMETERS ♦ 
***************** 



_*_*_*_*—*»*_* 



***************** 



****p 3* ******** 

* * 

* RETORN * 

* * 

*************** 



MASTER 

CATALOG 

DEFINE 



*****C4* ********* 
♦IGGPAOCI AG1A2* 

*_*._*_*_*-.*_*_*..* 

* ASSIGN CI FOR * 

* USER- CATALOG ♦. 

* . .*. 
***************** 



* GET VOLUME * 

* RECORD OF * 

* MASTER CTLG * 
***************** 



****E4* ********* 

CONSTRUCT U- * 

CATALOG ENTRY * 

AND VOLUME * 

OCCURRENCES * 



************* 



*** 



*****F 14* ********* 

♦IGGPPAD AG2A1* 

*_*_*_*_*_*..*_*_* 

* ADD U-CTLG * 

* RECORD TO * 

* CATALOG * 

***************** 



*_*_*_*_*_*_ 
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*********** 



****H(|* ******** 

* * 

* RETURN * 

* * 
*************** 
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ENTRY 

********** 



GET VIRTUAL 

STORAGE FOR 

DEFINE SPACE 

WORK AREA 



C1 *. 

* 

ERROR 



INITIALIZE 

DEFINE SPACE 

WORKAREA 



********* 



*****£1****#**** 

♦IKQVDTPE 



*NO *02 



*****Q-|* ******** 

* CHECK UNIQUE 

* REQUEST AND 

* NUMBER OF 

* EXTENTS 

* 
**************** 



*.ZERO EXTENTS . *- 



.* DUPLICATE : 

.VCIUHE IDEK- 

*. TIFIER . 



"1 



*****q2*** ******* 

* SET VOLIC AND * 
♦LOB-NUMBER INTC* 
*EADSM PARAMETER* 

* LIST * 

* * 
***************** 



VCLID FCUKD .* , 



_*_*_*_*_*_*_ 



************* 



"1 



* CTLG *. 

SEARCHED CR . 

♦.UNIQUE DS.* 



*YES 
| **** 
L_>* * 
* B5 * 



******** 



C3 

ERROR 



,- : *"l 



*****D3*******; 

*IGGPIVER AQ 



********** 



*****g4 ********** 

•IGGPSCAT AH1A1* 

*_*_*_*_*_*_*_*_* 
>* SEARCH DATA * 

* SPACE NAME * 

* * 

***************** 



************ 



*_*_*_*_*_* 



***************** 



*****B5* ********* 
*IGGPGET AG3A1* 
*_*_ *_*_ *_*_ *_*_* 

* GET VOLUME * 

* RECORD * 



..•••*-! 



*****£ 5* ********* 

*IGGFISCI AG1A1* 

*_*_*_*_*_*_*_*_* 

* CATALOG EOV * 

* CHECK * 

* * 
***************** 



..-•'-l 



* GET CI NUMBER * 

* FOR NEW VOL. * 

* RECORD * 

***************** 



GPIVER AQ * 

_*_*_*_*_*_*_* 

INITIALIZE * 

VOL. ENTRY * 

RECORD * 



| **** 
L_>*02 * 



***** 

♦ 02 * 

* G3* 



*****j5* ********* 

*IGGPCRTC AQ * 

*_*_*_*_*_*_*_*_* 

->* CCNVEET TC * 

* TRACKS OR * 

* -CYLINDERS * 
******** ***nr*Y*«* 

I .... 

L->*02 * 
* B1 * 
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* EN1RY * 

*************** 



r 

***** 



*****£) -| ********** 

* * 

* GENEBATB * 
♦DS-NAME FOR F1 * 

* DSCB * 

* * 
***************** 



*****£ 1* ********* 

* SET UP DADSM * 

* PARK LIST FOR * 

* F1 DSCB * 

* ALLOCATION * 

***************** 



*****? 1 ********** 
*IKQALL00 * 



************* 



*YES 
I 



ATED.*< — -j 



************ 



ERROR 

' *, ,*" 

♦NO 



.- : *1 



* G3 * 

* * 
**** 



***** H -| ********** 
♦1GGPCOBT ^A^AS* 

*~OBTAIN NEWLY ""* 
♦WRITTEN F1 DSCB* 

* * 

***************** 



VCL-REC 
BUILD BY 
. REQUEST 



*****£ 2* ******** * 
♦IGGPF4PF A61A5* 
*— *_*_*_ *-*_*_*—* 
♦SET OWNER- SHIP* 

* AMD TIHESTAMP * 

* * 
***************** 



F2 *. 

.* *. 

I/O ERROR 



'•"1 

**** 

* * 

* G3 * 

* * 
**** 



_*_*_*_*_*_* 

* BUILD VOL. *■ 

* ENTRY G.O. * 

* EESCR. SPACE * 

***************** 



VOL.REC. 

BUILD BY 

. REQUEST 



*****q3* ********* 
♦IGGPFUPR A61A5* 

*_*_*_*_*_*-.*_*_* 
*SET OWNER SHIP * 

* AND TIHESTAMP * 

* * 
***************** 



.* *. YES 

♦ . I/O ERROR , ♦ , 

*. .* j 

*. .* V 



NEW RECORD .♦ -, 

•.. ..-' ) 

*, ,* **** 
♦YES * * 
♦ G3 * 



*****F 3* ********* 

♦IGGPPAD AG2A1* 

*_*_*_*_*_*_*_*_* 

* PUT ADD NEW ♦ 
♦CATALOG RECORD * 

* * 
***************** 

**** I 
♦02 ♦ 

* G3 ♦->) 



*****H 3* ********* 

♦IGGPCRBO CR2AU 

*_*_*_*_*_*_ *_*_* 

* BACK OUT. NEW ♦ 
♦DEF.REC. RESET * 

♦ F4 CSCB * 

***************** 



f 

***< 



*****H4* ********* 

♦IGGPDXT AQ * 

*-.*—*_*_*-*.*_*_* 

* CLEANUP PROC, ♦ 

* FREE WA RESET * 

* POINTERS * 

******************** 



Ha * 



****ja*** ****** 

* 

->* RETURN 

* 
*************** 



***** B 5* ********* 

♦IKQVTC00 ♦ 

*_*_*_*_*_*_*_*_* 

* * 

* CPEN VTOC * 

* * 
***************** 



*****C5* ********* 
♦IKQRDSOO * 

*-*-*-*_*_*-.*-*_* 
_>* * 

♦ READ F1 DSCB * 

* * 
***************** 



I/O ERROR .* --J 

'*. .♦' V 



**** 

* * 
*-G5 * 

* * 
**** 



***** E 5* ********* 
♦IGGPVHTV ^Ag2A4* 

♦VOLUME NOUNT~OR* 

♦ VERIFY * 

* * 
***************** 



F5 ♦. 

.* * 

DC ERROR 



**** 

* * 

* G5 ♦ 



*****Q5********** 

♦IKQVTCOO ♦ 

*-.*-.*.*_*_*-*-.*_* 

* * 

* C10SE VTCC ♦ 

* * 
***************** 



****H5********* 

* * 

* RETURN * 

* * 
*************** 



i **** 

L>* * 

♦ B2 ♦ 



***** 
♦01 ♦ 
♦ J1* 
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ENTRY 



B1 *. 

.♦VOLUME *. 

FECORD IN 

VIRTUAL 

. STORAGE . 



. * DATA SET * 
.CANDIDATE ON 
*. VOLUME .* 



->* CBTAIN ADDIT. * 

* EXTENTS FCR * 

* LATA SET * 
***************** 



***************** 



YES 



* DATA SET *. 

ALREADY 
*. CANDIDATE.* 



* ENSURE ENOUGH * 
*CI«S ARE AVAIL.* 

* FOR ADD * 

***************** 



*********** 



ANOTHER 
VOLUME 

. * 

*. .* 


* 


YES 

} 

**** 


4 


NO 




* B1 * 

* * 
**** 











************ 
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*A2********* 

ENTRY * 

************ 



ENTRY 

********* 



************** 



* ENTRY 

* 
*********** 



• CCR 

CHECKPOINT 
*. NEEDED . 



*****B2* ********* 

* SET CORE SIZE * 
*ANC GET VIRTUAL* 

* STORAGE * 

* * 
***************** 



BUILD VOLUME 

GROUP 

OCCURRENCES 

*************** 

I 



•1GGPDCBE AS2A1* 

*_*_*_*_*_*_*_*_* 

* * 

* BUILD RECORDS * 



*IGGFDCOC AE1A1* 



*H1***** 
RETURN 



VIRTUAL 

STORAGE 

.AVAILABLE. 



*****Q2********** 

* SET UP MASTER * 

* INDEX TC CTIG * 

* RECORDS IN * 
♦VIRTUAL STORAGE* 

***************** 



*****E2********** 
*IGGPDEES AQ1A1* 
*_*_*_*_*_*_*_*_* 

* GET CATALOG * 

* DATA SPACE * 



*IGGPMEEM AE2AW* 



************** 



BUILD HIGH 

LEVEL INDEX 

G.O'S 



♦PREPARE VOLUME * 

* HIGH LEVEL * 

* INDEX FPL'S * 

***************** 



* PREPARE LOW 

* KEYRANGE VOL. 
♦FPL'S FOR DATA 



*****G 3* ******** 

♦IGGPDCPL AS 

*_ *_ *_ *_ *_*- *_ *_ ' 

* PREPARE HIGH 

* KEYRANGE VOL. 
♦FPL'S FOR DATA 
**************** 



*H3****** 
RETURN 

********* 



*****Q 4* ********* 

* * 

* PROCESS LOW *■ 

* KEYRANGE DATA * 

* INFORMATION * 

* * 
***************** 



.*_*_*_*_* 

COMPUTE RBA'S * 

LOW KEYRANGE * 

DATA * 

**************** 



***D4* ******** 
* 
RETURN * 



ENTRY 

************ 



*****Q 4* ********* 

* PROCESS HIGH * 

* LEVEL INDEX * 

* DATA * 

* INFORMATION * 

* * 
***************** 



* COMPUTE RBAS * 
*FOH HIGH LEVEL * 

* INDEX DATA * 

***************** 



*****B5 ********** 

* * 

* PROCESS HIGH * 

* KEYRANGE DATA * 

* INFORMATION * 

* * 
***************** 



*****C5 ********** 
♦IGGPDCRC AS * 
*_*_*_*_*_*_*_*_* 

* COMPUTE RBA'S * 

* FOR HIGH * 

* KEYRANGE DATA * 
***************** 



****D5* ******** 

* * 

* RETURN * 

* * 

*************** 



***j2********* 
* 
RETURN * 
************** 



****j4* ******** 

* * 

* RETURN * 

* * 
*************** 
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ENTRY 



* ENTRY * 

*************** 



* ENTRY * 

* * 
*************** 



**«**31* ********* 

* INITIALIZE * 

* RECORDS WITH * 

* KEY AND * 
♦NECESSARY FIXED* 

* INFORMATION * 
***************** 



*****B 3* ********* 
♦BUILD EXTENSION* 

* RECORDS FOR * 
♦DATA AND INDEX * 

* EXTENTS * 

* * 
***************** 



***************** 



C1 *. 

. * *. 
. * * 

*. DATA OBJECT 



* BUILD DEL. GOP 
*FOR HIGH LEVEL 

* INDEX EXT. CI 

**************** 



* BUILD DELETED * 
♦GOP FOR LOW SEQ* 

* SET EXT. CI ♦ 

***************** 



♦ EDILE DELETED * 

* GOP FOR LOU * 
♦KEYRANGE EXT. CI* 



* EOILL DELETED ♦ 

* GOP FOP HIGH * 
•KEYBANGE EXT. CI* 

***************** 



* MODIFY TO ♦ 

♦ COMPLETE DATA ♦ 
♦AND INDEX REC. * 

***************** 



*P3***** 

RETURN 

******** 



♦SEQ SET EXT. CI* 

***************** 



*****£ |J********** 

♦IGGPDCRC AS ♦ 

*_*_*_*_*_*_*_*_* 
♦COHPUTE SEQ SET* 

♦ RBA'S FOR LOW ♦ 

* KEYRANGE ♦ 

***************** 



*****D4********** 

♦IGGPDCRC AS * 

*_*_*„*_*_*_*_*_* 
♦COMPOTE SEQ SET* 
♦RBA*S FOR HIGH * 
♦ KEYRANGE ♦ 

***************** 



«****24*** ******* 
♦IGGPMOD AY1A1* 
*_*_*_*_*_*_*_*_* 

* MODIFY FOR ♦ 

* INDEX RECORD * 

* BUILD ♦ 
***************** 



****P4* ******** 

* * 

* RETURN ♦ 

* * 
*************** 



*♦♦ THIS PROCEDURE BDILDS •DELETED* GOP'S WHICH 

PCINT TC THE D AND I EXTENSION RECORDS IN THE 
SELF-CESCRIEING PART OF THE CATALOG, AND CAN 
BE ACTIVATED HHEN THEY ARE NEEDED. 



***************** 



**H1********* 

* 
RETURN * 

* 
************* 
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«A1****» 
ENTRY 



. * NO DEFINE 
CATALOG 

♦.REQUESTED. 



♦IGGPSCA AH1A3* 

* ENSURE THAT * 

* REQUIRED CTLG * 

* IS OPEN * 
***************** 



*****£)1*** ****** 



ULE . *- 1 

.** V 
'♦YES *0 2 ♦ 



*****D2^ *♦♦♦*♦♦♦♦ 

* * 

* * 
*SET EBRCR CCDE ♦<- 



L__ 



******** 



* B3 * 

* *— 1 

**** y 



♦ ♦♦ DEFINEyDELETEjrOR ALTER REQUEST 
FOR NON-VSAH DATA SET IN A 
RECOVERABLE CATALOG 



***** 

♦ 02 * 

* DU* 



.♦ ♦ . YES 


.* *. YES 


*. RECORD FOUND .* 


— >*. ANY ERROR .* •, 

♦. ..* ] 
*. .» V 


*. . * 


*. . * 




*, ,* ***** 


♦ NO 


*NO *02 * 




j * D4* 



D3 *. 

.♦ *. 
S .* ■ *. 
-♦.DELETE SPACE .♦ 
♦ . .* 

*. ■ . . * 

'♦NO 



♦YES 

| **** 

t->*0 2 ♦ 



♦. CMS DEFINE .♦ 



*****g4********** 



***************** 



DLBL ERROR 




* , 


' * . . ♦' 


* 


I 






***** 


♦NO 




♦ 02 ♦ 








* 04* 








* * 








* 


\ 








. *. 






H1 ♦. 






, * * 






DEFINE 


*. 


NO 


CAT! 


ILOG 




* 



v^i 



♦VERIFY SECURITY* 
***************** 



♦DEFINE CATALOG 

* 
**************** 



I **** 
L->*02 * 



_*_*_*_*_*_*_*_* 



************ 



♦NO *02 ♦ 
■ **** * d^* 

L_>*02 * ♦ ♦ 
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♦.LIST CATALOG . *- 



*. DEFIHE AIX 



E2 *. 
. * *. 
.* *. Y 

*. DEFINE PATH . *- 

* . . * 

* . . * 

'*NO 
I 

I 



* PROCESS ALTER 
**************** 



*IGGPDEFS AQ1A1* 

*_*_*_*_*_*_*_*_* 



u- 



*****C 4* ********* 
♦IGGPLSTC BQ1A2* 
*_*_*_*_*_*_*_*_* 



************** 



*****£5********** 

* * 

* SET INVALID * 
♦FUNCTION ERROR * 

* CODE * 



♦IGGPCCLN AT3A1* 



_*_*_*_.*_ 



L>."*\ 



*. DELETE SPACE . *- 



->♦ FREE VIRTUAL ♦< — ■* 

* STORAGE * 

* * 1 

********************* 



*****H3********** 
*IGGPDELC AF1A1* 

*_*_*_*_*_*_*_*_* 
->*DELETE CATALOG ♦- 

* PROCESSING * 

* * 
***************** 

*****J3*******»*» 

♦IGGPEELS BL1A1* 

*_*_*_*_*_*_*_*_* 

->* DELETE SPACE ♦- 

* PROCESSING * 

* * 
****************-* 

] 

*****K 3* ********* 

♦IGGPDEL BG1A1* 

*_*_*_*_*_*_*_*_* 
♦DELETE CLUSTER ♦- 

* PROCESSING * 

* * 
***************** 



V 
* EU ***** 

RETURN 
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*************** 



* ENTRY 

* 
*************** 



r 



, * CRA WORK *. 
*. AREA 

♦.ALLOCATED.* 



*****D1 ********** 
♦IGGPCADR CR1A1* 
*_*_*—*_*_*_*_*_* 
♦CRA PROCESSING * 
FOR BACKOOT * 



Uz 



****** 



*****g-i* ******* 



***************** 



*****[) 3* ********* 

* * 
♦CHECK DATA AND * 

* INDEX * 

* PARAMETERS * 



.* *. YES 
♦ .UNIQUE DEFINE. ♦ - 



*****£14* ********* 

♦IGGPVCHK AT ♦ 

*-,*_*-.*_*—*«-*—*_* 

->♦ CHECK VOLUMES ♦ 

♦ EXTENTS AND * 

* SPACE * 
***************** 



NO 

r 



♦DEFINE MCAT* 

AND DEQUEUE 
*. REQUEST .♦ 



*****Q1* ******** 

♦IKQRLSE 



****p 3* ******** 

* * 

♦ RETURN ♦ 



♦RELEASE STSHCO ♦ 

* * 

***************** 



♦ RETURN * 

* . . * 
*************** 
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ENTRY 
I 



* INITIALIZE 

* EXTRACT 
♦PARAMETER LIST 



*GET DATA SPACE * 

* GROUP * 

* OCCURRENCES * 

***************** 



D1 ♦. 
* *. 

*. NO 
FOUND .* 



* ENTRY * 

*************** 



************* 



♦SUFFICIENT 

CONTINUOUS 

*. SPACE . 

*.FCUNC* 



*****£ 2********* 

* SCAN AND SORT 

* SMALL EXTENT 

* TABLE. FIND 

* NUMBER OF 
"■EXTENTS NEEDED 
**************** 



* SET TRACKS 
♦UNAVAILABLE IN 

♦ SPACE flAE 

**************** 



*****£2********** 

* * 

* PLACE EXTENTS * 

* I*TC OUTPUT * 

* AHEA * 

* * 
***************** 



*****C 3* ********* 
♦IGGPBHR BR1A1* 

*_*_*_*_*_*_*_*_* 

* SET TRACKS * 
♦UNAVAILABLE IN ♦ 

♦ SPACE MAP * 
***************** 



*****£) 3* ********* 

* * 

♦ PLACE EXTENTS ♦ 

♦ INTO OUTPUT * 

* AREA * 

***************** 



***************** 



*****£ 4* ********* 

♦ PROCESS FILE ♦ 

♦ EXTENTS IN * 

♦ TABLE WHICH * 

♦ SATISFIES THE ♦ 

♦ BEQUESTS BEST ♦ 
***************** 



****D4********* 

* * 

* RETURN * 

* * 
*************** 



****£ 2* ******** 

* * 

* RETURN ♦ 

* * 

*************** 
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ENTRY * 

* 
*********** 



* ENTRY * 

* * 
*************** 



» COMPLETE VOL. 
♦ENTRY FOR VOL. 
* G.C. PROCESS. 

**************** 



RELEASE 
SECONDARY 
. EXTENTS 



**** 

* * 

* F2 * 

* * 
**** 



:•*•*-} 



♦SET GOP LENGTH 

* INITIALIZE 

* USABLE RAB'S 

****************; 



*****D1********** 
♦IGGPSFPL AV1A3* 

*_*-*_*_*_*_*_*_* 

* SCAN CATALOG * 
♦FIELD PARAMETERS 

♦ LIST ♦ 
***************** 



****E1********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****D 2* ******** 
♦IGGPRELE CE1A 

*_*_*_*..*_*-.*_*. 
-* REIEASE 

♦ SECONDARY 

♦ EXTENT 
***************>< 



* * 

♦ E2 

**** 



"1 



***** E2 * 
♦IGGPSFPl AV1A3 
*_*..*_*_*_*_*_*_ 
< — ♦ SCAN CATALOG 
♦*PL FCR UPDATE 



******* 
*»** 



********* 



*'-} 



♦ UPDATE EXTENT * 

* * 
***************** 



****G2**s****** 

* * 

* RETURK * 
*************** 



***** B 4********** 

* * 

* * 
->♦ GET NEXT FPL ♦ 

* * 

***************** 



.♦ ARE THERE ♦. NO 
♦. ANY TEST .♦ 

♦. FPL'S .♦ 



♦DETERMINE G.O. ♦ 

♦ FOR ALTER OR ♦ 

♦ DELETE ♦ 

***************** 



*****D5* ********* 
♦IGGPXDGO BT1A1^ 
*_*_*_*_*_*_*_*_* 

♦ ADD A GROUP ♦ 

♦ OCCURENCE ♦ 

♦ * 
***************** 



**************** 



_*_*_*_*_* 



*********** 



♦MORE G.O'S ♦. 

TO BE 
♦. PROCESSED. ♦ 



_*_*_*_*_*_ 



* GET RECORD ♦ 

***************** 



J4 ♦. 

.♦ ♦. 

MORE FPLS 



*****j 5* ********* 

♦IGGPPREC AM2A4S 
*_*_*_*_*_*_*_*_* 

♦ UPDATE OR ADD ♦ 

♦ NEW RECORDS ♦ 

♦ * 
***************** 



****K5* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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* ENTRY * 

*************** 



* ENTRY 

************* 



*SEABCH FOR GOP * 

* * 

***************** 



* GET RECORD * 

* * 
***************** 



*****C2* ********* 

*IGGEDGO Afi * 

*_ *_ *_ *_ *_ *- *_ *_ * 

->* CELEIE GROUP * 

* OCCURENCE * 

* * 
***************** 



*****B4*** ******* 

*IGGPGREC BAU3* 

*_*_*_*_*_*_*_*_* 

->* READ REQUIRED * 

* RECORD * 

* * 
***************** 



*****c a*** ******* 



* SCAN FOR * 

* REQUESTED GOP * 



***************** 



MORE 

EXTENSION 

. RECORDS . 



**** £4* ******** 

* * 

* RETURN * 

*************** 



***************** 



************** 



***************** 



DELETE * 

EXTENSION * 

RECORD * 

************** 



DELETE GCF 

************* 



YES .* MORE 

*. EXTENSION 

*. RECORDS . 



**** 

****K1********* 
* 
* RETURN 

* 
*************** 
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ENTRY 
*********** 
I 



ENTRY 

******* 
I 



* ENTRY * 

* * 
*************** 



*************** 



D1 *. 

.* GROUP *. 

. * OCCUR. TO * 

. BE ADDED TO 

♦.BASE REC* 



***************** 



♦GET FREE BDFPER* 

* FOR NEW * 
♦EXTENSION REC. * 

* * 
***************** 



_*_*_*_*_*_*_ 



****D 3********* 
RETURN ♦ 



*****Q (J* ********* 
♦IGGPPREC AW2AM" 

*_*_*_*_*_*_*_*_* 

♦ WRITE CATALOG ♦ 

♦ RECORD ♦ 

♦ * 
******** ********* 



.♦ EXTENSION 
. REC. ASSOC. 
♦.WITH GOP . 



*****£2**^ ******* 
♦IGGPAXCI AG3FU* 

*_*_*_*_*_*_*_*_* 



********* 



*****g<l****** 



READ RECORD 



* GET NEW 

* EXTENSIOS 

* RICORE 

************** 



***************** 



****p4* ******** 

* * 

* RETURN ♦ 

* * 
*************** 



*****55 ********** 

♦IGGPGREC BA1A3* 

*_*_*_*_ *_*_*_*_* 
>* GIT BASE OR * 

* EXTENSION ♦ 

* RECCRD * 

***************** 



*****C5* ********* 

* * 

* SEARCH FOR * 
♦DELETED GOP OR ♦ 
♦GOP TO BE BUILT^ 

* * 
***************** 



D5 ♦. 
.♦ ♦ . 

GOP FOUND 



****E5********* 

* * 

* RETURN ♦ 

* * 

*************** 



♦POSSIBLE TO+. 

EUT GROUP . * 
♦. OCCUR. .♦ 



♦IGGPAXCI AG3FU* 



******* 



GET NEW 

EXTENSION 

RECORD 



->*INSERT NEW GOP ♦ 

♦ INTO CATALOG ♦ 

♦ RECORD ♦ 

***************** 



***** j 3* ********* 

♦IGGPMVGO AW ♦ 

*_*_*_*_*_*_*_*_* 
♦MOVE G.O. INTO ♦ 
♦CATALOG RECORD ♦ 
* * 

***************** 



****K3********* 

* * 

* RETURN ♦ 

* * 

*************** 
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* A3 * 

* * — 1 

**** V 



****A 1********* 

* * 

* ENTRY * 
*************** 



.♦DELETED GOP*. 
.POUND IN BASE. 
*. REC.*B2 . * 



***** D 1 ********** 

* * 

* * 

♦PROCESS NEH GOP* 

* * 

* * 
***************** 



E1 *. 

.♦DO GR. *. 

. * OCC. AND * 

. GOP FIT IN 

♦.THIS BASE.* 

*.REC. .* 



B2 

♦THE GOP 
IS ACTUALLY 
IN THE BASE 
RECORD, BUT 
MARKED AS 
"DELETED." 



*****£ 2********** 
♦IGGPIGOP AN * 

*_*_*_*_*_*_*_*_* 



REBUILD GOP 



******* 



INSER1 GOP 



*NO 



. * SPACE IN ♦. 

.BASE REC. FOR. 

*. GOP .♦ 



*****B3********** 
♦IGGPAXCI AG3F4* 
*_*_*_*_*_*_*_*_* 

* ASSIGN CI FOR * 

* NEW RECORD * 

***************** 



GET NEXT 

EXTENSION 

RECORD 



* ENTRY * 

* * 
*************** 



.* BUFFERING *. YES 

.REQ. FOR DEF..* 

*. CLUSTER .* 



*****Q5* ********* 

♦IGGPPTBF CB * 

*_*_*_*_*_*_*_*_* 

>* * 

♦PUT INTO BUFFER* 

* * 

***************** 



L 



********** 



*HOVE G.O'S INTO* 

* EXTENSION * 

* RECORD * 

***************** 



**** 

***** c 5*** ******* 

♦IGGPPUPC AG3A5* 

*_*_*_*_*-*_*_*_.* 

->* PUT UPDATE * 

* RECORD * 

* * 
***************** 



_*_*_ 



A1* 



*PUT ADD RECORD 

**************** 

**** 
* E4 



**** 



*-> 



*************** 



INSERT GOP 

************* 



***£U********* 
RETURN 

************** 



r >; ' 

**** 



***G3* ******* 
RETURN 



GET NEW 

EXTENSION 

RECORD 

************ 



♦IGGPASPT AW1A3* 

*_*_*_*_*_*_*_*_* 

* ADD SPACE * 

* POINTER TO * 
♦CATALOG RECORD ♦ 

***************** 



♦ INSERT GOP 
**************** 



*****H 2* ********* 
♦IGGPGNEX AS1A4* 

*_*_*_*_*_*_*_*■_* 

* GET NEB * 

* EXTEHSIOR * 

* RECORD * 

***************** 



*REAE IN RECORD * 

* * 

***************** 



♦KCVE G.C«S INTG* 

* IXIENSIOK * 

* RECORD * 

***************** 



u 
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»A1***** 
ENTRY 



*************** 



* ENTRY * 

* * 
*************** 



*****B1******** 

* SEPARATE 

* COMBINATION 
>* FIELDS INTO 

*THEIR INDIVID. 

* FIELDS 
*************** 



♦GET FIELD VALOE* 



♦BASE RECORD*. 

ALREADY .* 
♦ . EXTENDED .* 



* ASSIGN CI FOR * 

* EXTENSION * 

* RECORD * 
***************** 



GET NEW 
EXTENSION 
RECORD 
************ 



*********** 



I 
1 YE 



♦ATTEMPT TO MOVE* 

♦ GROUP * 

♦ OCCURRENCES ♦ 



YES .* HAS SPACE *. 

, ♦.AVAILAELE FOR. 

♦. MOVE .* 



* LAST 

INDIVIDUAL 
*. FIELD . 



****H1********* 

* * 

♦ RETURN * 



* ASSIGN CI FOR * 

♦ ADDITIONAL * 
♦EXTENSION REC. * 
***************** 



***************** 



♦MOVE BASE GROUP* 
♦OCCURRENCES TO ♦ 
* EXTENSION * 

***************** 



*****C4* ********* 
♦IGGPGREC BA1A3* 
*_ *_*_*_*_*_*_*_* 
♦READ EXTENSION * 

♦ RECORD * 

* * 
***************** 



YES .* IS G.O. * 

*. ELIGIBLE FOR 

*. MOVE .* 



*****£) 5* ********* 

*IGGPSGOP AV2A1* 

*_*_*_*_*_*_*_*_* 

* GET GOP * 

* POSITION * 

* * 
***************** 



*****E5* ********* 
♦IGGPIGOP AH * 
*_*_*_*_*_*_*_*_* 

* * 

* INSERT GOP * 

* * 
***************** 



*****p 5* ********* 

*IGGFCGO AX * 

*_*_*_*_*_*_*_*_* 

* CCPY GROUP * 

* OCCURENCE * 

* * 
***************** 



*****G 5* ********* 
♦IGGFDGO AX * 
*—*_*_*_*_*_.*_*_* 
♦DELETE OLD G. 0.* 

* FROM CATALOG * 

* RECORD * 
***************** 



♦DELETE GCP FROM* 
* CATALOG REC. * 
♦UPDATE BASE REC* 

***************** 



*K3********* 

RETURN ♦ 
* 
************ 



****K4********* 

* * 

* RETURN ♦ 

* * 
*************** 



.♦MORE GROUP *. YES 
. OCCURRENCES .*- 
*. TO MOVE .* 
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B1 *. 
.* GROUP *. 
. * OCCURENCE *. NO 
.IN ONE RECORD.* 



* SHRINK OF *. 

VAR. LENGTH . 

*. FIELD .* 



D1 *. 

.* VAR. *. 

.* LENGTH 

. FIELD FITS 

*. EXPANDED . 

*. FIELD.* 



*NO 



*****C2********** 
♦IGGPSHNK AX * 

>* * 

* SHRINK FIELD * 

***************** 



* EXPANE FIELD * 

***************** 



************ 



* RE-ESTABLISH 
*GRP OCCURRENCE 

* LOCATION 



. * VARIABLE *. 
♦.LENGTH FIELD . < 

*. FIT .* 



* EXPAND FIELD 



************** 



.* PROCESS *. XES 
*. COMPLETE .* , 



* H5 * 

* * 
**** 



*****D3* ********* 
♦IGGPAXCI AG3F4* 

*_*_*_*_*_*_*_*_* 

* ASSIGN CI FOR * 

* NEW SPACE * 

* RECORD * 

***************** 



*****£5* ********* 

♦IGGPGNEX AH1A4* 

*_*_*_*_*_*_*_*_* 

* GET NEM * 

* EXTENSION * 

* * 
***************** 



*****C5* ********* 
♦IGGPMGO AX1A5* 
*_*_*_*_*_*_*_*_* 

* HOVE GRODP * 

* OCCURENCE * 

* * 
***************** 



**** 

* * 

* D5 * 



*****D4* ********* 
*IGGPGREC BA1A3* 

*_*_*_*_*_*_*_*_* 

* * 

* READ RECORD * 

* * 
***************** 



*************** 



♦MORE GROUP * 

OCCURRENCES 
*. TO HOVE .* 



.* GROUP 
OCCUR. 
♦.COMPLETE 



v ; '*~l 



**** 

* * 

* H5 * 

* * 

**** 



*****E5* ********* 

♦IGGPGVAL BA1A2* 

*_*_*_*_*_*_*_*_* 

* * 

* GET VALUE ♦ 

* * 
***************** 



*****p 5* ********* 

♦IGGPEXPD AX * 

*_*_*_*-.*_*•*_*-.* 

♦ EXPAND FIELD * 

♦ RECORD * 

♦ * 

***************** 



*****q<4 ********** 

♦IGGPGVAL BA1A2* 

*_*_*_*_*_*_*_*_* 

* * 

* GET VALUE * 

* * 
***************** 



* B5 * 

* * 

**** 



CE .* , 



* D5 * 

* * 
**** 



*************** 



**** 
♦ B5 



.* HOVE FOR 


*. HO 


♦. SPACE 
♦.COMPLETE 

*. .* 


'■'-\ 


♦. .* 


**** 


♦ YES 


* * 


'**** 1 


* F3 ♦ 


* * { 


* * 


* H5 ♦ 


**** 


* *«>} 




**** V 




.♦. 




H5 *. 




.* * 




.* PROCESS 


*. 


*» COMPLETE 


,* 



*****j5* ********* 

♦IGGPDEJN BR1A1* 

*_*_*_*_ *_*-*^*_* 

♦ DELETE/INSERT ♦ 

♦ SINGLE GRODP ♦ 

♦ OCCURRENCE * 

■ *** ****** ***** * ** 



****K 5* ******** 

* * 

* RETURN * 

* * 
*************** 
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ENTRY 

************** 



r 

*****Q-|*** ******* 

♦INITIALIZE CCA * 

* TC POINT TO * 

* CATALOG * 

* DICTIONARY * 

* * 
***************** 



* SCAN CPL AND 
♦FPL FOR FIELD- 

* NAMES 



*****D1 ********** 



***************** 



*****£1*** ******* 

* INSERT * 

* DICTIONARY * 

* INFORM ATI ON * 

* INTO FPL * 

* * 
***************** 



****F1* ******** 

* * 

* RETURN * 

* * 

*************** 
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ENTRY 



* A 2 ******** * 
ENTRY * 



+++++*+ 



*************** 



* ENTRY * 

*************** 



♦IGGPSCNC AY1A1* 



♦FECUESTED DATA * 

***************** 



****Q2******** 

RETURN 

************** 



*****B3*********' 

* SET UP G.O. 

* LENGTH- USER 
♦WORK AREA. AND ' 

* RECORD AREA 

* BLOCKS 



♦COMPLETE VOLUME* 

* ENTRY FIELD * 

* RETRIEVAL * 



*E1***** 
RETURN 



♦DETERMINE GO'S 

♦ TO SATISFY 

* CHAINED TESTS 

**************** 



♦RETRIEVE FIELD * 
♦DATA FOR GROUP * 
* OCCURRENCE ♦ 

***************** 



***************** 



*****£5* ********* 

* SCAN GO'S FOR ♦ 
*HIGH NOHDELETED* 

* REIREPNO AND * 

* GROUP CODE * 

* * 
***************** 



_*_*_*_*_*_*_* 
♦RETRIEVE FIELD * 

* DATA FOR ALL * 

♦ G.O'S * 

***************** 



****£5* ******** 

* * 

* RETURN * 

* * 
*************** 



♦GET BASE RECORD^ 

* * 

***************** 



J3 


*, 








. * 


* 






* 




* 


YES 


MORE FPL 

* , 
*. 


S 

* 


* 


*~l 


*. .* 






****"' 


♦NO 






* * 










* C3 ♦ 










* * 










**** 












***K3********* 


RETl 


JRN 






* 
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* ENTRY * 

* * 
*************** 



. * RELREPNO 
REQUESTED 



*****£ 2*** ******* 

♦IGGPSHIN AZ * 

*_ *_ *_ *_ *_ *_ *_ *_ * 

->* PLACE CATALOG * 

* ACB INTO OSEF * 

* MOBK AREA * 
***************** 



* GET VALUE 

* 
*************** 



.* RELREPNO 


*. NO 


FOOND 
*. 

*, , * 


'-I 


*. . * 


**** 


*YES 


* * 






* K1 * 






* * 






**** 




' 





*****£"|********** 



***************** 



. * DOES *. N 
.DISPLACEMENT . *- 
*. EXIST .* 



*****G 2* ********* 
*IGGPSHIN AZ * 

*_*_*-.*_*_*_*_*.»* 

>* * 

* SHIFT/INSERT * I 
********************* 



*****g 3* ********* 

*IGGPGREP AZ1A5* 

*_*_*_*_*_*_*_*_* 

->*OBTAIN HIGHEST * 

* NON-DELETED * 

* RELREPNO * 
***************** 



*****C 3* ********* 

♦IGGPSHIN AZ * 

*_*_*-.*_*—*_*_*_* 

* PLACE FIELD * 
*INTO USER ilORK * 

* AREA * 
***************** 



*****j1********** 
♦IGGPSHIN AZ * 

*_ *_ *_ *_ *_ *_ *_ *_ * 

* * 

* SHIFT/INSERT * 

* * 
***************** 

**** 

* * 

* K1 * 

* *-> 
**** 



* K1 * 

* * 
**** 

.*. 

H2 *. 
. * *. 
.* *. NC 
->*. INSERT HERE .* ■, 

••-. ..•* I 

#. .* **** 

*YES * * 

* K1 * 

* * 
**** 



*****J2********** 
♦IGGPSHIN AZ * 

*_*_*_*_*_*_*_*-* 

* * 

* SHIFT/INSERT * 
***************** 



****K2********* 

* + 

* RETURN * 

* * 
*************** 
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ENTRY * 

*** ********** 



************* 



ENTRY * 

* 
************* 



"CONSTRUCT DATA 

* SPACE GROUP 

* OCCURRENCE 

**************** 



CONSTRUCT 

DERIVED DATA 

SPACE INPO. 

************** 



*****£•)*** ******* 

♦IGGPCDSD A61AU* 

*_ *_ *_»_*_ *_ *_ *_ * 
♦CONSTRUCT DATA * 

* SET DIRECTORY * 

* ENTRY G.O. * 

***************** 



*****B2********** 

* * 
*CCNSTRUCT DATA * 

* SPACE GBOUF * 

* OCCURRENCE * 

***************** 



*****C2*** ******* 
♦IGGFDSMD A6 * 
*_*_*_*_*_*_*_*_* 

* VERIFY VOLUME + 

* ENTRI RECORD * 

* * 
***************** 



****D2********* 

* * 

* RETURN * 

* * 
*************** 



4TH EXTENT 



****pi********* 

RETURN 

*************** 



***** c 3* ********* 
*IKQVTC00 * 



* OPEN VTOC * 

* * 

***************** 



*****D3****** 
*IKQRDS00 



* READ F3 DSCB * 

* * 

***************** 



*****£ 3* ******* 
♦IKQVTCOO 



* CLOSE VTOC 

* 

***************; 



***** (34* ******** 

♦BUILD DATA SET 

* DIRECTORY FOR 

* DEFINE UNIQUE 

* DATA SPACE 

* ALLOCATION 
**************** 



*****£({ ********** 
*IGGPDSMD A6 * 

*_*_*_*_*_*_*_*_* 

* MODIFY VOLUME * 

* ENTRY RECORD * 

* * 
***************** 



****Q(J ********* 

* * 

* RETURN * 

* * 

*************** 



*****B 5* ********* 

♦IGGFF4RD BD1A1* 

*_*_*_*_*_*_*_*_# 

* READ FORMAT 4 * 

* DSCB * 

* * 
***************** 



*****£ 5* ********* 
*IGGPFUBR BU1A2* 
*_*_*_*_*_*_*_*_* 

* WRITE UPDATED * 

* FORMAT 4 DSCB * 

* * 
***************** 



**** D 5* ******** 

* * 

* RETURN * 

* * 

*************** 



*. . * 
*NO 
**** | 

:«: ! 

* *->i 
**** J 


**** 
* K3 

**** 


*****G3******** 
* 

* BUILD DERIVED 

* DATA SPACE 

* INFORMATION 


»* 

* 
* 
* 
* 



***************** 



*****H 3* ********* 

*IGGPDSMD A6 * 

*_*_*_*_*_*_*_*_* 

* MODIFY VOLUME * 

* ENTRY RECORD * 

* * 
***************** 



.* MORE 

EXTENTS 
•.ALLOCATED 



!•*•*-! 



ENTRY 

*********** 



*****H5* ********* 
*$$BOVS0 1 * 

*_*_*_*_*_*_*_*_* 

* ENSURE THAT * 
♦CORRECT VOL. IS* 

* MOUNTED * 
***************** 



*J5********* 

RETURN 
************ 



****K3********* 

* * 

* RETURN * 

* * 
*************** 
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******** 



*************** 



**** A 5********* 

* * 

* ENTRY * 

* * 

*************** 



*EXTE. ONE VOL. 
*G.O. FROM DATA 
* OR INDEX REC. 



****C 2* ******** 

# * 

* RETURN * 



*************** 



* DELETE THIS * 
♦DATA SET'S DATA* 

* SET DIRECTORY * 

***************** 



*. .* 
*NO 

I 



* E2 * 

* * 
**** 



*IGGPDESH A72A1* 

*_*_*_*_*_*_*_*_* 

* DELETE OR * 

* UPDATE SPACE * 

* HEADER * 
***************** 



DATA SET 

SUBALLO- 

. CATED 



*IGGPDVMV A72A5* 

♦ENSURE THAT THE* 
♦CORRECT VOLUME * 
* IS MOUNTED * 



. * COMPONENT 

>*. FIAGGED 

♦.UNUSABIE . 



*****H2********** 
♦IGGFDEVG A71A3* 

*_*_*_*_*_*_*_*_* 



***** 54* ********* 

♦IGGPSET A7 ♦ 

*_*_*_*_*_*_*_*_* 

* SETUP EXTRACT * 

* INTERFACE * 



****** 



******** 



**************** 



*****C 4* ******** 



************* 



.* EXTRACT *. 

*.WORK AREA TOO.* 

*. SMALL .* 



NO .*LARGER WORK*. 

, *. AREA GOT 

*. BEFORE .* 



"1 



"1 

**** 
* 
K3 * 

**** 



***************** 



****E4********* 

* * 

* RETURN * 

* * 
*************** 



***** B 5********* 

♦IGGPSET A7 

*_*_*_ *_ *_ *_ *_ *_ 
*SET OP EXTRACT 

* MODIFY 

* INTERFACE 
**************** 



***** C 5* ********* 

♦IGGPEXT AZ1A1* 

*_*_*_*_*_*_*_*_* 

* EXTRACT DATA * 

* SET DIRECTORY * 

* G.C. * 
***************** 



-*_*_*_*-* 



************* 



****E5********* 

* * 

* RETURN * 

* * 
*************** 



**G3********** 



RETURN 

SUBA1LCCATED 

SPACE 



*************** 



*****H 3* ********* 



***************** 



* SUBSCRATCH * 
*VCIUME G.C. AND* 

* WORK AREA * 

***************** 



****K3********* 

* * 

* RETURN * 

* * 
*************** 
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ENTRY * 

* 
******** ***** 



* ENTRY * 

* * 

*************** 



* ENTRY * 

* * 
*************** 



ENTRY * 

* 
************* 



************ 



*****B3********** 

♦IKQSCROO * 

*_*_*_*_*_*_*_*_* 
♦SCRATCH UNIQUE * 

* DATA SPACE * 

* * 
***************** 



* READ FU DSCB 



*****g5 ********** 
♦IKQVDTPE * 



********** 



*****C1 ********** 
♦IGGPEXT AZ1A1* 
*_ *j_ *- *_ *_ *_ *_ *_ * 
♦EXTRACT NO. OF * 

♦ DATA SETS IN ♦ 

♦ DATA SPACE * 
***************** 



****C3********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****C 4* ********* 

♦ UPDATE FU ♦ 

♦ TIMESTAMP AND ♦ 

♦ VOLUME RECORD ♦ 

♦ TIMESTAMP ♦ 

♦ * 
***************** 



***** C 5* ********* 

♦$$BOVS01 ♦ 

*_*_*_*_*_*_*_*_* 

* * 

* MOUNT VOLUME ♦ 

* * 
***************** 



* WRITE FU DSCB ♦ 

* * 
***************** 



****q 5* ******** 
* 
RETURN ♦ 

*************** 



*****£ 1 ********** 

♦IGGPMOD AV1A1+ 

*-*_*_*_*_ *_ *_ *_ * 

♦ DELETE SPACE ♦ 

♦ HEADER * 

♦ * 
***************** 



****E4********* 

RETURN 

*************** 



*****F1********** 

♦IGGPMOD AV1A1^ 

*_*_*-*-*_*_*_*_* 
♦ DELETE SPACE ♦ 
♦DESCRIPTOR G.O.^ 



♦CECFEMENT DATA 

♦ SET CCDNT EY 

♦ ONE 

**************** 



****G1 ********* 

* * 

* RETURN ♦ 

* * 
*************** 
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ENTRY * 

*************** 



***************** 



*. EXTENT LIST 



**************** 



*****Q1 ********* 




*****J1 ********** 



FPL 
DIRECTORY 
. CORE 



*****C2********* 
*IGGFDFRE A8 
*-*_*_*_*_*_*_*_ 
♦FREE DIRECTORY 

* BLOCKS AND 

* THIIR ENTRIES 
**************** 



-*. SiQ SET FPL .* 



*****£2********* 

*IGGPDFRE A8 

* FREE SlCRAGE 

* RESOURCES 



******** 



****** 



***F2********* 
RETURN 

************** 



*************** 
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ENTRY 

* **** ****** 



ENTRY 
********** 



NO . *TEST FIELD *. 

*. TO BE . * 

*. PROCESSED.* 



♦EERIVED VOLUME * 

* ENTRY * 

* PROCESSING * 

***************** 



*********** 



NOT FOUND 
OR FIELD 
. SUPPR. 



♦COMP.RETR. CTLG* 
*DATA WITH USER * 
* TEST FPL DATA * 
***************** 



— *.' MORE TESTS 

*. .* 

*. .* 



************ 



*************** 



E2 *. 

* 

FOUND 



"1 



*****£ 3* ********* 

* * 

* RETRIEVE * 

* AVAILABLE * 

* RECORD AREA * 

* * 
***************** 



. * CATALOG 
-♦.RECORD TO B 
*. WRITTEN 



************ 



♦READ REQUESTED 

♦ RECORD FOR 

* UPDATE 

**************** 



***G2********* 

RETURN * 
************** 



********* 



♦IGGPGTBF CB 



READ BUFFER 



NON ♦. NO 

REPEATING .* 

. PIELD .* 



ENSUBE THAT * 

HEQ. CTLG FIELD* 

EXISTS ♦ 



*****04* ********* 

* * 

* LOCATE * 

* REQUESTED *<■ 

* CATALOG FIELD * 

* * 
***************** 



****g4********* 

* RETURN * 

* * 
*************** 



*****£ 5* ********* 
*SCAN GOP'S FOR * 

* UPDATE * 

* OCCURENCE * 

* SEQUENCE NO. ♦ 

* * 
***************** 



*****D5* ********* 

♦IGGPCKLC BA * 

*_*_ *_*_ *_*_*_*_* 
-* ENSURE THAT * 
*REQ. CTLG FIELD* 
* EXISTS * 
***************** 



RETURN 

************** 



***J3******* 
RETURN 



********** 
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* 
ENTRY * 
************ 



*****Q-|********** 

♦IGGPINIT BC1A2* 

*_*_*_*_*_*_*_ *_ * 
* * 

♦INITIALIZATION * 



********** 






SEARCH FOR 



♦IGGPMVOL 



_*_*_*_*_ 



MODIFY AMDSB 
AND VOLUME * 
G.O'S * 

**************** 



♦COMPOTE EXTENTS* 

***************** 



*****j-|********** 
♦IGGPMEXT BE1A3* 

*_*_*_*_*_*_*_*_* 

* MODIFY EXTENT *- 

* INFORMATION * 

* * 
***************** 



* ENTRY * 

* * 
*************** 



*****£ 2* ********* 

♦IGGPSSWD BB1A4* 

*_*_*_*_*_*_*_*_* 
♦UPEATI SEQUENCE* 

* SET * 

* * 
***************** 



****Q2********* 

* * 

* RETURN * 

* * 
*************** 



************* 



****p 2* ********* 
GIT WORK AREA * 

AND BUILD * 
INTEREACE TO * 

SUEALLOC * 



*****£ 3* ********* 



************** 



♦MODIFY EXTENTS * 

* * 

***************** 



****p 3* ******** 

* * 

* RETURN * 

* * 
*************** 



ENTRY * 

************** 



********** 



***** B4 ********** 
*IGGPGET AG3A1* 

*_*_*_ *_*_*_*_*_* 
* GET INDEX * 
♦CATALOG RECORD * 



*** 



i************* 



* INITIALIZE * 

* INDEX AMDSB * 

* * 
***************** 



_*_*_*_*_*_ 



***************** 



*****£{J* ********* 

♦IGGPMVOL BB1E3* 

*_*—*_*_*_*_*_*_* 
♦ MODIFY AMDSB * 
♦AND VOLUME G,0.* 



******** 



******** 



*****F 3* ********* 



***************** 



_* _*_*_*_ 



MPUTE EXTENTS* 

* 
************** 



_*_*_*_*_ 



SUBALLOCATE 



*****H 2*** ******* 

* * 

* * 
♦FBEE WORK AREA * 

* * 

* * 
***************** 



MODIFY * 

* 
************* 



****(] 3********* 

* * 

* RETURN * 

* * 
*************** 



♦MODIFY EXTENTS * 

* * 

***************** 



****H4********* 

* 
RETURN * 

* 
*************** 



*************** 
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*A2***** 
ENTRY 



*****B2********** 

* * 

* EUILC EXTRACT * 

* CATALOG * 
♦PARAMETER LIST * 



* BUILD EXTRACT * 

* CATALOG * 
♦PARAMETER LIST * 

4 * 

***************** 



*****C2* ********* 
•IGGPEXT AZ1A1* 

*_ *_ *_ *_ *_*_*_*_* 

* * 

* EXTRACT AMESB * 



****q2******** 

RETORN 
************** 



>* EXTRACT NEXT 

* VOLUME GROUP 

* OCCURENCE 

*************** 



CORRECT 
VOL. G.O. 
. FOUND 



I 

*F3*** 
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*************** 



* ENTRY * 

* * 

4c****** ******** 



*****£ -|* ********* 

* * 

* CHECK ENTRY * 

* TYPE AND * 

* FUNCTION CODE * 



GET VIRTUAL 
STORAGE FOR 
HORK SPACE 



. *FIXED PART 
. INFO TO BE 
*. ALTERED . 



.* VALID *. 
.♦RECORD FOR * 
-*.THIS REQUEST 



*****p i* ********* 

* * 

* UPDATE THE * 
*RECORD FIELD TO* 

* BE ALTERED * 

* * 
***************** 



. * CTLG *. NO 
.BUFSIZE TO BE.* — > 
*. CHANGED .* 



***************** 



ALTER AIX 

UPGRADE 

.ATTRIBUTE. 



♦PERFORM UPGRADE 

* CB NOUPGRADE 

* PROCESSING 

**************** 



NO .*NAME CHANGE*. 

*. BUT NOT FOR .* 

*. CTLG .* 



*****£ 2* ********* 
♦IGGPALNM BD1A5* 
*_ *_ *_ *_ *_*_*_*_* 

♦ C RANGE THE * 

* OBJECT NAME * 



************* 



<*** 



* ALTER VCIUFE * 

* * 
***************** 



*.COBE TO FREE .* — > 



*****J2********** 



.*. 



***************** 



D3 *. 
.* AMESB *. 
JO .*CHANGE FOR *. 
— *.DATA OR INDEX.* 



***************** 



*****P3* ********* 

* * 

* * 
*FREE WORK SPACE* 

* * 

* * 
***************** 



***** B 5* ********* 

*IGGPGET AG3A1* 

*_*_*_*_*_*_*_*_* 

* TRY TO GET HEC. * 

* BY NAME USING * 

* THE NEB NAME * 

***************** 



C5 
. * 


*. 

*. 






* 


. YES 


ENTR1 
**. 


FOUND 

,* 
.* 


--] 


*. 


, * 


**** 




♦ NO 

1 


* * 

* H5 * 

* * 
**** 



NO .* UNIQUE OR *. 

*. ALIEN OBJECT . 

*. TYPE .* 



*****£5* ********* 

♦IGGPALF1 BD2A1* 

*_*_*_*_*_*_*_*_* 

* * 
♦RENAME F1 DSCB * 

* * 
***************** 



****G3********* 

* * 

* RETURN ♦ 

* * 

*************** 



*****P5********** 
♦IGGEPDE AG1A3* 

*_*_*_*_*_*_*_*_* 
♦PUT DELETE OLD * 

♦ RECORD ♦ 

* * 
***************** 



*_*_*_*_*_*_*_*_* 



***************** 



* H5 ♦ 

♦ ♦-> 

**** 



****H5* ******** 

* * 

* RETURN ♦ 

* * 
*************** 



Chart BD1. CMS alter - first module (IGGOCLBD) 



3.74 DOS/VS LIOCS Volume 4: VSAM 



*************** 

I 



*****E2********** 



* ENTRY * 

*************** 



*****33******* 



******** 



*****q2* ********* 



***************** 



* SORT VOLUME * 

* LIST AND RE- * 
♦NAME F1 DSCB'S * 

***************** 



****Q1********* 

* * 

* RETURN * 

* * 
*************** 



********* 



♦ EMFACT VCLUHE * 
♦INFC FROM A.D, * 

* CB I RECORD * 

***************** 



-*.AHDSB CHANGE .* 



*****£ 3* ********* 

* BUILD INTER- * 

* FACE FOR * 
♦MODIFYING AMDSB* 

* DATA * 

* * 
***************** 



V 

**E3******* : 

GPALBT BD 

_*_*_*_*_*_ 

COMPLETE 

MODIFYING 

INTERFACE 






***** 
I 
I 



*PPCCESS EXTRACT* 

* * 

***************** 



****[J2*** ****** 

* * 

* RETURN * 

* * 
*************** 



*****G 3* ********* 
♦BUILD INTERFACE* 

* FOR MODIFYING * 

* SECURITY IN- * 

* FORMATION * 

* * 
***************** 



*****{] 3* ******** 

*IGGPALBT BD 
*_*_*_*_*_*—*_*- 

* COMPLETE 

* MODIFYING 

* INTERFACE 



*****j3* ********* 
♦IGGPMCD AV1A1* 
*_*_*_*_*_*_*_*_* 
♦MODIFY SECURITY* 
♦OR DATA INFOR- * 
♦MATION IN AMDSB* 
***************** 



****K 3* ********* 



*************** 



****K4********* 

* * 

* RETURN * 

* * 
*************** 
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****& -j* ******** 

* * 

* ENTRY * 

* * 
*************** 



ENTRY * 

* 
*********** 



ENTRY * 

* 
*********** 



ENTRY 

*************** 



*************** 



. * REC TYPE . .„ 

.PATH CLUSTER . * 

*. OR AIX 



*****£ -)********** 

* * 

♦GET STORAGE FOR* 

* PPL AND DATA * 

* AREAS * 

* * 

***************** 



YES 

~] 

**** 


*****32*** ******* 
♦IGGPAIBC BE » 
*_*_*_*_*_*_*_*_* 

* SET UP INTER- * 
♦FACE FOR MOCIFY* 

* AND EXTRACT * 
***************** 


*****B 3* ********* 
♦IGGPALBC BE * 


* SET OP INTER- * 
♦FACE FOR MODIFY* 

* AND EXTRACT * 

***************** 


K1 * 

* 










**** 




! 







* SET UP INTER- * 
♦FACE FOR MODIFY* 

* AND EXTRACT * 

***************** 



* EXTRACT AMDSB * 

* * 
***************** 



♦EXTRACT CLUSTEB* 

* ASSOCIATION * 

* FRCM D RECCRD * 

***************** 



***** D2 * 
♦IGGFGET AG3A1* 

*_*_*_*_*_*_*..*_* 

* GET CLUSTER * 

* RECORD FOR * 

* UPDATE * 
***************** 



***** E 2* ********* 
*IGGPEXT AZU1* 

*_*_*_ *_ *_ *_ *_ *_ * 

* EXTRACT INDEX * 

* ASSOC. FROM * 
*CLDSTEE RECCBD * 

***************** 



*_*_*_*_ 

* GET INDEX * 

* FECORD EOF * 

* UPDATE * 

***************** 



****G2********* 

* * 

* RETURN * 

* * 
*************** 



* ADD VOLUME * 

* * 
***************** 



* REMOVE VOLUME * 



***** C3* ********* 

*IGGPEXT AZ1A1* 

*_*_*_*,_ *_*_*_*_* 

* EXTRACT PHYS. * 

* VOL ATTHIB. * 
*FOR D OR I REC* 
***************** 

I 



*ADD G.O'S TO V * 
*REC. AND D OR I* 
* RECORD * 

***************** 



****E3********* 
* 

* RETURN 
* 

*************** 



*****Q1| ********** 

*IGGPALBC BE * 

*_*_*_*_*_*_*_*_* 

->* SET UP INTER- * 

*FACE FOR MODIFY* 

* * 

***************** 



INDEX 
CATALOG 
RECORD 



*****Q4 ********** 
♦IGGPSALL AR1A1* 
*—*—*_*_*_*_*_*_* 

* ADD CANDIDATE * 

* TO VOLUME * 

* RECORD * 
***************** 



DATA OBJECT .* , 



*****£{(********** 

♦IGGPMOD AV1A1* 

*_*.»* _*_*_*_*_*_* 
*ADD VOLUME G.O.* 

* TO DATA SET * 

* RECORD * 
***************** 



* MORE 

VOLUMES TO 
*. ADD 



*****Q4* ********* 
♦IGGPALEC BE1A5* 
*_*_*_*_*_*_*_*_* 
♦CHECK FOR VOL. * 
*MODIF. TO INDEX* 
* RECORD * 
***************** 



**** 
*YES * * 
♦ F5 ♦ 



**** 

* * 

* E5 * 



*****q 5* ********* 
*IGGPALIX BE1A2* 

*_*_ *_*_*_ *_*_*_* 

-*DETERHINE INDEX* 

* RECORD CI * 



****** 



*********** 

**** 

* * 

* E5 * 



_*_*_*_*_*_ 
-*■ GET INDEX 

* RECORD 
* 
************** 

**** 

* * 

* F5 * 

* *__ 
**** $ 

. *. 

F5 *. 

. * *. 

.* INDEX'S 

-*.DATA CCBPCN. 

*. NEEDED . 



*****G5* ********* 

♦IGGPGET AG3A1* 

*_*_*_*_*_*_*_*_* 

* REGET DATA * 

* RECORD FOR * 

* INDEX OBJECT * 

***************** 



****H5* ******** 

* * 

* RETURN * 

* * 

*************** 



****j 4*** ****** 

* * 

* RETURN * 

* * 
*************** 



****K1******** 

* RETURN 
* 

************** 
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* ENTRY * 

* * 
*************** 



B2 *. 
. * * , 

.♦ANY EXTENTS*. NC 

♦. TO FREE .*- t 

*, ,* **** 

♦YES ♦ ♦ 

I ♦ E2 * 

I ♦ * 



♦♦♦**C2*^***^**^ 
♦IGGPBMR BBTA1* 
*_ *_ *_ *_ *_ *_ *_ *_ » 
r— >♦ SET BITMAP OF ♦ 
| ♦ SPACE ♦ 
♦ ALLCCATIOK ♦ 
***************** 



♦ E2 * 

♦ ♦->! 

♦ ♦♦♦ | 



*»**E2^** *♦♦♦*♦ 

♦ BETURH * 

* ♦ 
*************** 
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************* 



*************** 



*&4********* 

ENTRY * 

* 
************ 



*DEIETE NCN-VSAK* 

* * 

***************** 



* E2 * 
**** 



****D i ********** 

CHICK IP AMS * 

•FILE* * 

PARAMETER IS * 

SPECIFIED * 

**************** 



***** D 2*** ******* 

* * 

* * 
->*SET EFRCR CCDE *<- 



********** 





*** 


1 
1 


* 






* 


E2 * 




* 


*- 


■>l 


**** 


1 



****E2********* 

* * 

* RETURN * 



CHECK IF THE * 

OBJECT'S CRA * 

VOL. EXISTS * 

**************** 



. * PURGE * 

OPTION 

*. SPECIFIED.* 



* DELETE EATH * 

***************** 

L,."v 

* E2 * 

**** 

*****J2********** 

♦IGGEEEIX CX1A1* 

*_*_*_*_*_*_*_*_* 

->*DEIETE AIX AND * 

* ASSOCIATE! * 

* PATHS * 
***************** 



*****q 3********** 
*IGGPDEMV A71A4* 
*_*_*_*_*_*_*_*_* 
♦EXTRACT VOLUME * 
* INFORMATION * 
♦FROM 'A 1 RECORD* 



ENSURE THAT 

VOLUME IS 

MOUNTED 

************* 



* SCRATCH * 

* NON-VSAM DATA * 
*SPACE FROM VTOC* 
***************** 



F3 * | 

**** | 



*********** 



**** G 3***«* 
RETURN 



.* AMS WORK 

*. AREA TOO 

*. SHALL 



*****C 4* ********* 

♦IGGPDJCL BG2A1* 

*_*_*_*_*_*_*_*_* 
*CHECK SUBM. DOS* 
*JCL STATEMENTS * 

* * 

***************** 



***** 55* ********* 

* * 

* SET REQUIRED * 
->* LENGTH INTO * 

*USEF WORK AREA * 

4t * 

***************** 



***** C 5 ********** 

* * 

* * 
*SET ERRCR CCDE * 

* * 

* * 
***************** 

L**** 
>* * 

* K5 * 

* * 

**** 



**** 

* * 

* K5 * 



************** 



*****HU* ********* 
♦IGGPERAS BG3A5* 

*_*_*_*_*_*_*_*_* 

* ERASE THE * 

* OBJECT * 

* * 
***************** 



'*. YESlf 



_*_*_*_*_* 

* UPDATE VOLUME * 
♦INFORMATION AND* 

* TIME STAMP * 

***************** 



**** 

* * 

* K5 * 

* * 
**** 



*****G 5* ********* 

* * 
*PUT ENTRY NAME * 

* INTO AMS WORK * 

* AREA * 

* * 
***************** 



* H5 * 

* *_>i 

**** v 

H5* **. 
.* *. 
.* INDEX *. NO 
*. PROCESSED .* n 

■••.. •••* J 

*, .* **** 
*YES * * 

* EU * 

* * 
**** 



*****j 5* ********* 

*IGGEDUND AN2A1* 

*_*_*_*_*_*_*_*_* 

* DELETE ENTRY * 

* AND ANY * 

* EXTENSIONS * 

***************** 



*NO 

L>."*\ 

* D2 * 



->*EELETE CLUSTER 

* AND ANY PATHS 

* OR AIX'S 



****K 5*** ****** 



D OR I RECORD.* t r — >* RETURN * 

*. .* J I * * 

*. .* V *************** 

*. .* **** **** 



*YES 

I ***** H5 * K5 * 

L_>* * * * 

* £5 ***** **** 
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ENTRY 



r 



INDEX) RECORD * 



* ERROR OR 

NOT D OR I 
*. RECORD . 



r^*-.. 1 



_j r — *. o 

J *-2! 



ERAS 
OPTIO 
PECIF 



IEC. 
♦ " 
ES 



* SEARCH LABEL * 

* CYLINDER * 

* INFORMATION * 

***************** 



*****H i ********** 

♦IGGPVMSC A71A1* 

*_*_*_*_*_*_*_*_* 
♦CHECK IF XTENT * 

* INFORMATION * 

* SUPPLIED * 

***************** 



♦INCICATE ERASE * 



* J2 * 
*****J2**** 



***************** 



I 

i 
I 



************ 



IGGPDEXA BG * 

_*_*_*_*_*_*_*_* 

BUILD EXTRACT * 

INTERFACE * 



♦IGGPEXT AZ1A1* 



************** 



YES .* EXTRACT 

*. AREA TOO 

*. SMALL 



SET NUMBER OF * 

OBJECTS TO BE * 

DELETED * 



*****q 4* ********* 
*IGGPDELO CX3A2* 
*_*_*_*_*_*_*_*_* 
*TEST IF CLUSTER* 

* IS OPEN * 

* * 
***************** 



*****(] 4* ********* 
♦IGGPDEXP BG * 

*_*_*_*_*_*_*_*_* 



**************** 



.*ANY AIX OR *. 
. PATH TO BE . 

*. DELETED .* 



* DEL. ALL AIX * 

* OVER CLUSTER- * 
♦PATHS OVER AIX ♦ 

***************** 

I 
I 



E5 ♦. 
ERROR 



*****Q5********** 

♦IGGPDPTH CX1A4* 

*_*_*_*_*_*_*_*_* 

♦ DELETE ALL ♦ 

♦ PATHS OVER ♦ 

♦ CLUSTER ♦ 
***************** 



H5 ♦. 

ERROR 



************ 



>* RETURN * 

J * * 

I *************** 
**** 



♦DELETE Y RECORD* 
* * 

***************** 



L 



**K5********* 
RETURN ♦ 
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ENTRY 

******** 



* ENTRY * 

* * 
*************** 



GET VOL. REC. * 

OF RECOVERY * 

VOLUME * 

**************** 



*****55* ********* 

♦$$BCPEN * 

*_*_*,.*_*_*-.*_*_* 

* * 

* OPEN DATA SET * 

* * 

***************** 



*****C 2* ********* 

* * 
*SE1 EERCR CCDE * 

>*ANC SET INHIBIT* 
*CBA UPDATE FLAG* 

* * 
***************** 

I **** 
t^>* * 

* K2 * 

* * 

**** 



*CLOSE DATA SET * 
* * 

***************** 



*****Q(| ********** 



*****D5******* 
* 
* 
->* GIT RECORD 



***************** 



***************** 



BASE 

CLUSTER 

AIX 

* *, . * 


OF 

. * 


* 


YES 

'-} 

**** 


.* AIX 

*. CLU< 

*. BEC( 

*. 
*, 


OB 
5TER 

'rd 

, *' 




"NO 






* * 

* E3 * 

* * 
**** 


i 


»NC 




' 













**** 

* * 

* E3 * 



***************** 



NO .* DATA OR * 
*. INDEX RECORD 



***************** 



*****g(j ********** 
***BOPEN * 

*_*_*_*,_ *_*_*,.*_* 

* *_ 

* OPEN DATA SET * 
***************** 



***************** 



"1 



**** 

* * 

* G5 * 

* * 
**** 



.* BASE *. YES 

. CLUSTER OF .* -. 

*. PATH .* 1 



**** 
* 
* £3 



H1 *. 

. * *. 

*BASE AIX OF* 

PATH 



* E3 * 

* * 
**** 



J1 *. 

.♦DATA OR*. 

♦INDEX COUP. * 

OF CLUSTER 



*YES 

| **** 

L>* 



♦ YES 

I 

I 



RECORD 
FLAGGED 
.UNUSABLE 



*****(]3********** 

* SET FLAG TO * 

* WARN CRA UPDATE* 
-♦THAT CRA MIGHT ♦ 

* NOT CONTAIN * 

* DUPLICATE * 
***************** 



*K2***** 
RETURN 



*****F5* ********* 

* * 

* * 
-* ERASE RECORD * 

* * 

* * 
***************** 

**** 

* * 

* G5 ♦ 



* *_ 1 

**** | 



****q 5* ********* 

* * 

* * 

* PUT RECORD * 

* * 

* * 
***************** 



*****H5* ********* 

♦SSBCLOSE * 

*_*_*_*_*_*_*_*_* 

* * 
♦CLOSE DATA SET ♦ 

* * 
***************** 



****j5* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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*A2********* 

ENTRY * 

************ 



ENTRY 

*********** 



* NON-VSAM DATA 

* SET 
•INITIALIZATION 



♦CALCULATE MAX. * 
♦NUMBER CF SETS * 
♦OF FPL AND CTLG* 
* VOLUME G.O«S ♦ 
***************** 



***** B 3**** 
♦IKQVDNT 



*****q 4* ******** 

* SET UP COMBI- 

* NATIONS OF FPL 
>♦ AND CATALOG 

* VOLUME GEODP 

* OCCURRENCES 



* NON-VSAM DATA * 
♦SET VOL. GROUP * 
♦OCCURR. CONSTR. * 

***************** 



***** C 2********** 

* INITIALIZE * 

* COUNTS OF * 
♦VCIUME ENTRIES * 
♦AND DEVICE TYPE* 

* ENTRIES * 
***************** 



*****C 3* ******** 

♦ SCAN JOB 

* MANAGEMENT 

* DEVICE NAME 
♦TABLE FOR USER 

♦ DEVICE TABLE 



♦PUT ADD RECORD ♦ 

* * 

***************** 



.♦ERR. S CTLG* 
. HAS BEEN 
♦. CHANGED .♦ 



****£ 3* ******** 

♦ RETURN 

*************** 



L_ 



*****ei* ********* 
♦iggpdund an2a1* 

*_ *_ *_ *_ *_*_ *_ *_ * 

♦ BACK OUT ♦ 
♦ENTRIES CREATED^ 

* * 
***************** 



****F1********* 

* * 

♦ RETURN ♦ 



****£4******* 

RETURN 

************* 



•IGGFDANl BH1A3» 

♦DATA SET~DEVICE+ 

♦ liABE LIST ♦ 

♦ FROCESSING ♦ 



****G2*********« 
IGGFAOCI AG1A2^ 

_ *_ *_ *_ *_ *_ *_ *_ * 



ASSIGN CI 

************ 



* 

EUIID NCN- * 

REPEATING * 

FIELDS * 



*****j2*** ******* 
*SET UP ARRAY OF* 

♦ CATALOG FIELD * 
♦ELEMENT POINTER* 

♦ TC FPL ARRAY ♦ 

♦ ELEMENT ♦ 
***************** 



1 

*K2***** 
RETURN 



******** 
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ENTRY 

************ 



•*~l 



***************** 



****** 

* * 

* ENTRY * 

* * 
*************** 



***************** 



*****B3* ********* 
♦IGGPEXT AZ1A1* 
*_*_*_*_*_*_*_*_* 

♦ EXTRACT SPACE * 
*GRODP OCCURENCE* 

* * 
***************** 



*****B4********** 
♦IKQVDTPE * 

*_*-:*_*_*_*-.*-*-* 

♦READ LABEL FROH* 
♦LABEL CYLINDER * 

* * 

***************** 



*****B 5* ********* 



***************** 



*%***£•)********** 
*IGGPDLVC BL2AU* 
*_*_*_*_*_*_*_*_* 
*CHECK IF VOLOME* 

* IS EMPTY * 

* * 
****** 



******* 



D1 *. 
.♦VOLUME ♦. 
. * EMPTY OR ♦. NO 
.FORCE DELETE .♦ 



NO . * RECOVE- 
r- — *. RABLE CATA- 
1 *. LOG 



*****pf ********** 
♦IGGPDLCR BL2A5+ 

*_*_*_*_*_*_*_*_* 

* * 

* CLOSE CRA ♦ 

* * 
***************** 



*. VOLUME EMPTY 



***** HI ********** 

♦IGGPDVSC CL1A3* 

*_*_*_*_*-.*_*_*_* 

♦ REMOVE VSAH * 
♦DSCBS FROM VTOC* 

* * 
***************** 



*****{] 2* ********* 
♦IGGEDLSF CI1A1* 
*_*_*_*_*_*_*_*_* 
♦FLAG CTLG REC. * 
*CF VOL' S D-SET ♦ 
♦CLEAN VOL. VTOC* 
***************** 



***** j 1*** ******* 

♦iggpdlet bl2a2+ 
♦~dIl.vol~ctlg ~* 

* REC. RESET Ftt ♦ 
♦DSCB VSAM IND. ■♦ 

***************** 



*****j2********** 

* * 

* * 
♦SET E6RCR CCDE ♦ 

* * 

* * 
***************** 



****K2********* 

* * 

* RE1URN ♦ 

* * 
*************** 



***** D 3* ********* 
♦IGGPDLCD BL2A3^ 

*-.*_*_*_*_*_*_*_* 
♦CHECK IF SPACE ♦ 

♦ IS EMPTY ♦ 

* * 
***************** 



E3 ♦. 
. ♦ ♦. 
NO .♦ * 

< — ♦. SPACE EMPTY 
♦. .* 

♦. . ♦ 
♦. .♦ 
♦YES 



***************** 



♦ SCRATCH SPACE ♦ 

* * 
***************** 



*****£ (|*** ******* 

♦ * 

♦ SCAN EXTENTS ♦ 

♦ FOR PROPER ♦ 

♦ VOLUME ♦ 

♦ * 
***************** 



*****D4 ********** 
♦JJBOVS01 ♦ 
*_*_*_*„*_*_*_*_* 

* * 

* VOLUME MOUNT ♦ 

* * 
***************** 



****£()********* 

* * 

* RETURN * 

* * 
*************** 



*****C5********** 
♦IGGPHOD AV1A1* 

*_*—*_*-.*-*_*-.*_* 

♦ MODIFY/DELETE ♦ 

♦ SPACE GROUP * 

♦ OCCURRENCE * 

***************** 



****D5********* 

* * 

* RETURN ♦ 

* * 
*************** 



♦UPDATE F4 DSCB ♦ 
♦AND VOLUME TIHE+ 
♦ STAMP ♦ 

***************** 



*****K3* ********* 
♦IGGPPUPC AG3A5+ 
*_*_*_*_*_*_*_*_* 
-♦REWRITE UPDATED^ 
♦ VOLUME RECORD ♦ 



********* 



******* 
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A 1********* 

ENTRY 



*A2 

ENTRY 



******* 



* ENTRY * 

* * 
*************** 



* ENTRY * 

♦ * 
*************** 



*****B1********* 

* CONSTRUCT 
♦SCRATCH PARAH. 
*LIST AND DATA- 
♦SPACE NAME FOR 

* F1 DSCB 



*****ct* 

♦IKQSCRO 



************ 



**** D -|******** 

RETURN 

************** 



***************** 



*****£ 2*** ******* 
♦IGGFPEEC AG * 
*_ *_ *_ *_ *_ *_ *_ *_ * 

* EELETE VOL * 

* EXTENSION * 

* RECORD * 
***************** 



BORE GOP 1 S 



****B 3* ******** 

BOILD EXTRACT ' 

INTERFACE FOR ' 

DATA SPACE 

EXTENTS 



********** 



* EXTRACT SPACE * 
♦DESCFIPT. G.O'S* 
♦FOR EMPTY SPACE* 

***************** 



****D 3* ******** 

* * 

* RETORN * 



*****Q(| ********** 

* BOILD EXTRACT * 

* INTERFACE FOR * 

* DATA SET * 
♦DIRECTORY GROUP* 

* OCCURRENCE * 
***************** 



* EXTRACT DATA * 

* SET DIRECTORY * 

* G.O'S * 

***************** 



****Q4********* 

* 
RETURN * 

* 
*************** 



*****3 5* ********* 

*IGGFSCAX CO * 

*_*_*_*_*_*_*_*_* 

* SEARCH FOR * 

* C&XNA AND ACB * 

* FOR CRA * 

***************** 



C5 *. 

* 

FOUND 



*****D5* ********* 

*$$BCLOSI * 

*_*_*_*_*_*_*_*_* 

* * 

* CLOSE CRA * 

* * 
***************** 



*****£5* ********* 

*$$BCLCRA * 
*-.*—*_ *_ *_*_*_*_* 
♦HARK CRA CAXHA * 
♦IN OTHER PART. * 
♦ AS DEIETED ♦ 
***************** 



********* 



************ 
I 



****P5********* 

* ♦ 

* RETURN ♦ 

* * 
*************** 



* READ Ftt DSCB 



READ F« ESCE * 
**************** 



*****H1**« ******* 
♦UPDATE FU DSCB ♦ 

♦ TIMESTAHP AND * 

♦ CHANGE VOLUME * 

♦ TTHESTAMP * 



V 

*****H2********** 

* CLEAR F4 * 
*TIMESTAMPS VSAM* 
*INDICATCFS AND * 

* CBA PTR * 



********** 



***** 



WRITE F«i DSCB * 

**************** 



RETURN * 
* 
*************** 



♦ SFITE F4 DSCB 

* 
**************** 



****K2**^****** 

* * 

* BETURN * 

* * 
*************** 
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ENTRY 

********** 



* ENTRY * 

* * 
*************** 



* ENTRY 
* 
************** 



* CHECK IF * 
♦VERIFICATION IS* 

* NECESSARY * 

***************** 



***** B4* ********* 

* BUILD INTER- * 

* FACE TO USVR * 

* MODULE AND * 

* INVOKE IT * 



****** 



***** 



***B5********** 



*************** 



* EXTRACT 

* SECURITY 

* INFORMATION 

*************** 



*****C4* ********* 

♦IGGPGET AG3A1* 

*_*_*_*_*_*_*_*_* 

* GET RECORD * 

* AGAIN * 

* * 
***************** 



*****C5* ********* 
♦IGGPEXT AZ1A1* 
*_*_*_*_*_*_*_*_* 

* EXTRACT * 

* SECURITY * 

* INFORMATION * 
***************** 



****D4* ******** 

* * 

* RETURN * 

* * 
*************** 



**** D 5********* 

* * 

* RETURN * 

* * 
*************** 



* K? 

**** 



CHECK CATALOG * 
RECORD FOR * 
SECURITY INFO * 

**************** 



SET MINIMUM 

LEVEL TC BE 

VERIFIED 

************** 



CATALOG *. 
SECURITY 
.PROTECTED.* 



. * NO OR EAD *. YES 

->*, PASSWORD .* 

♦.SUPPLIED .* 



***************** 



* ENTRY * 

* * 
*************** 



♦GET BASE RECORD* 

* * 

***************** 



*****q 2* ********* 
♦IGGPPWVR BM2A1* 

*_*_*« *- r *_*^*_*_* 

* VHRIEY THE * 

* PASSWORD * 

* * 
***************** 



***** G 5* ********* 
♦IGGPGET AG3A1* 
*_*_*_*_*_ *_*_*_* 
♦GET BASE RECORD^ 

* AGAIN * 

* * 
***************** 



*****H1* ********* 

♦IGGPCKEX BM1A5* 

*_*_*_*_*_*_*_*_* 

♦ EXTRACT *-■ 

♦ SECURITY * 

♦ INFORMATION * 
***************** 



**** 

* * 

* K2 ♦ 

* * 
**** 



****f]5********* 

* * 

* RETURN * 

* * 

*************** 



YES ,* KCRE ♦. 
-*. ATTEMPTS 

♦. AILCWED .♦ 



**** 

* * 

* K2 * 

* *_> < 

**** 

*' 
****K2********* 

* » 

* RETURN * 

* * 
*************** 



♦GET BASE RECORD* 
* * 

***************** 
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*** *£-]******* 

ENTRY 

*************: 



ENTRY * 

************** 



♦CHECK PASSWORD * 



*********** 



♦YES 
I 



* GET RECORD * 

* * 

***************** 



**************** 



EXTRACT * 

SECURITY * 

INFORMATION * 

*************** 



ENTRY * 

************* 



*****Bt|* ********* 



************** 



***** C (l ********** 

♦IGGPGET AG3A1* 

*_*_*_*_*_*_*_*_* 

* GET DESTROYED * 

* RECORD * 



ENTRY * 

************** 



***** B 5* ********* 
♦IGGPGET AG3A1* 
*_*_*_*_*_*_*_*_* 

* GET CLUSTER * 

* RECCRD * 



******* 



i********* 



*********** 



****** 



***** c 5* ********* 

♦IGGPCKEX BH1A5* 

*_*_*_*_*_*_*_*_* 
♦SEE IF PASSWORD* 

* EXISTS ♦ 

* * 
***************** 



****B2******** 
♦ RETURN 
************** 



************** 



****E3********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****Q4* ********* 

♦IGGPCKEX BH1A5* 

*_*_*_*_*_*_*_*_* 

♦ EXTRACT * 

♦ SECURITY ♦ 

♦ INFORMATION * 
***************** 



****£4********* 

* * 

* RETURN * 

* * 
*************** 



♦CHECK CTLG REC. ♦ 

♦ FOR SECURITY ♦ 

♦ INFO ♦ 

***************** 



♦GET BASE RECORD^ 
* * 

***************** 



♦ EXTRACT * 

♦ SECURITY ♦ 

♦ INFORMATION ♦ 

***************** 



***** D 5********** 
♦IGGPBSGT BH1F5* 

*_*_*_*_*_*_*_*_* 

* GET ORIGINAL * 

* RECORD * 

* * 
***************** 



*****E5* ********* 

♦ IGGPCKEX BMU5* 

*_*_*_*_*_*_*_*_* 
♦RESET SECURITY * 

♦ INFORMATION ♦ 

♦ * 
***************** 



****F5* ******** 

* * 

* RETURN * 

* * 
*************** 



**J1********* 
* 
RETURN ♦ 
* 
************* 
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ENTRY * 

*********** 



************ 



**A4********* 
* 
ENTRY * 

* 
************* 



♦IGGPALPL BN 



.... | 



♦EXTEACT VOLUME 
*G.C. FBCM BASE 
* ENTRY 



*****g4 ********** 

* * 

* GET VIRTUAL * 

* STORAGE FOR * 

* WORK AREA * 



*********** 



£OBE VOL. 

SERIAL 

. NUMBERS . 



READ LABEL * 

CYLINDER * 

INFORMATION * 

*************** 



♦EXTRACT VOLUME 
* GROUP OCCURR . 
♦FROM BASE REC. 
**************** 



♦IGGPAIEC BE1A5* 

*_*_*_*_*_*_*_*_* 

* REMOVE DATA * 
♦VCl.FBCK ASSOC* 

* INDEX ENTRIES * 

***************** 



*****D 3* ********* 
♦BUILD INTERFACE* 
♦TO MODIFY DATA * 

* SET DIRECTORY * 

* GROUP * 

* OCCURRENCE * 
***************** 



*****£() ********** 

* * 
♦SORT EXTRACTED ♦ 

* VOLUME SERIAL * 

* LIST * 



♦DELETE DATA SET* 
♦DIRECTORY G.O. * 
♦FROM VOL. REC. * 
***************** 



***** £4 ********** 
♦IKQRENOO * 
*_*_*_*_*_*_*_*_* 

* RENAME F1 * 

* DSCB»S * 

***************** 



.* NOT *. 
♦INDEX REC. 

OR NOT SEQ. 
♦.SET PROC 






* F2 ***** 
RETURN 



***P3****** 
RETURN 



NU 

r 



♦REMOVE DATA SET* 
♦DIRECTORY G.O. ♦ 
♦FROM VOL. REC. ♦ 



********* 



u- 



* RESTORE OLD ♦ 

* NAME OF RE- * 
♦NAMED F1 DSCB'S* 
***************** 



****H4* ******** 

* RETURN * 

* * 
*************** 
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.* NEXT *. 
.* RECORD OF *. YES 

♦.(•ULTIFLE LIST.* 

*. NEEDED .* 



*GET NEXT RECORD* 
***************** 



*E2******** 
RETURN 
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* ENTRY 

************* 



*********** 



****A5********* 

* * 

* ENTRY * 

* ♦ 
*************** 



* B2 * 

**** 



*****B1 ********** 

* * 
♦LOCATE GOP FOR * 
♦DESIRED PART OF* 

* BIT MASK * 

* * 
***************** 



* GE1 BIT BASK * 

4c * 

***************** 



*****D1 ********** 

* PROCESS FIRST * 
*AND LAST BYTES ♦ 

* BIT COUNT AND * 

* COUNT OF FULL * 

* BYTES * 
***************** 



*****pi********** 

♦IGGPPART BR * 

*_*_*_*_*_*_*_*_* 
♦PROCESS PARTIAL* 

* BYTE * 

* * 
***************** 



r 



i^_. 



*****Q1*** ******* 

* * 

* PROCESS FULL * 
>* BYTES IN * 

♦SPECIFIED RANGED 



*"1 



*****B 2*** ******* 
♦IGGPGETH BFUK» 
*_*_*_*_*_*_*_*_* 

* * 

* GE1 BIT KASK * 

* * 
***************** 



* END OF * 

CURRENT BIT 
*. KASK .* 



*YES 
I 



*****£ 2* ********* 
*IGGPGETH BR1AH* 
*_*_*_ *_ *_ *_ *_ *_* 

* * 

* CET BIT BASK * 

* * 
***************** 






*****p 2* ********* 
*IGGFPABT BF * 
*_*_*_*_*_*_*_*_* 
♦PROCESS PARTIAL* 
♦ BITE ♦ 

***************** 



.♦IS IT A SET*. 
REQUEST .* 



* AL1 FULL ♦. 

BITES .* 
*. FROCESSED.* 
♦. . ♦ 


NO .* LAST SET *. 
< — *. REQUEST .* 

* *. . ** 


*. . * 


* . . * 


*YES 

1 **** 

L_>* * 

* B2 * 

* * 


♦YES 

! 
I 


**** 


J 




*****J2* ********* 
♦IGGPPUTM BB1AS* 

*_*_*_*_*_*_ *_ *_ * 



♦WHITE BIT MASK ♦ 
* * 

***************** 



***** £3* ********* 



***************** 



.*RAB MUST BE*. 
. WRITTEN OR . 
*.UPD.REC. .* 



*****C4********** 
♦IGGPPUTH BR1A5* 
*-.*_*_*_*_*_*-*_* 

* WRITE UPDATED * 

* RECORD * 



****** 



********** 



OG .' * , 



**** 

* * 

* FT * 

* * 

**** 



B5 *. 

.* *. 

* * 

RAB UPDATED 



*****C5* ********* 

♦IGGPPUPC AG3A5* 

*_*_*_*_*_*_*_*_* 

* PUT WRITE * 
♦UPDATED RECCRD ♦ 

* * 
***************** 



****D5********* 

* * 

* RETURN * 

* * 
*************** 



******* 



***************** 
**** 

* FU * 

* * — 1 
**** | 

*****P4 ********** 



***************** 



****Q4* ******** 

* * 

* RETURN * 

* * 
*************** 



*YES 

L>. 



**** 
* 
D1 * 
* 
*** 



****K3********* 

* * 

* RETURN * 

* * 

*************** 
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ENTRY 
******* 



ENTRY 
************** 



. * REQ. *. 
.* FOR COUNT * 
*.OF DATA SETS 
*.CR SPACES. * 



B2 *. 
.* SPACE *. 
.♦DESCRIPTOR 
*. FIEID REQ. 



* OBTAIN COUNT * 

* * 
***************** 



*****£-)* ********* 

*IGGPGREC BA1A3* 

*_*_*_*_*_*_*_*_* 

* REREAD BASE * 

* RECORD * 

* * 
***************** 



♦RETRIEVE ASSOC* 
♦DATA SPACE GRP.* 
♦ CCCOfiRENCE ♦ 

***************** 



***************** 



-*. TRACKS USED 



♦ CCUNT "OFF* 

♦ BITS IN DATA 

♦ SPACE EXTENT 

*************** 



♦CCNV.CATA SPACED 
♦EXT. BIT KAE TC* 
♦RON L-CCDE EEPR* 
***************** 






****K2******* 

. >♦ RETURN 

■ ************* 
**** 



.♦ DATA SET *. NO 

->*. DIRECT. FIELD.* 7 

*.^REQ. ^.* J 



* RETRIEVE DATA ♦ 

* SET DIRECTORY * 
♦GRP. OCCURRENCE* 

***************** 



D3 *. 

.* REQ. *. 
* FOR COUNT * 

OF DATA SET 
*. EXTENTS .* 



*****£ 3* ********* 
♦IGGPXVOL BS1F4* 
*_*_*_*_*_*_*_*_* 

* GET COUNT OF * 

* EXTENTS * 

* * 
***************** 



*********** 



DIRECTORY *. 
FIELD 
.REQUESTED.* 



***************** 



*****B4* ********* 
*IGGPGREC BA1A3* 

*_*—*_*_*_*—*_*_* 

* * 
♦GET BASE BECOHD* 

* * 
***************** 



***** c ij ********** 

♦IGGPGVAL BA1A2* 

*_*_*_*_*_*_*_*_* 

♦ GET REQUESTED * 

♦ FIELD VALUE * 

♦ * 
***************** 



*_*_*_*_*_ 



***************** 



****£ 4* ******** 
* 
RETURN * 

* 
*************** 



♦ ENTRY 

*************** 



*****q5* ********* 

♦IGGPXEXS BS1A4* 

*_*.-*_*_*_*_*_*_* 
->*GET VOL. INFO. * 

♦ FOB DATA SET * 

* * 
***************** 

I **** 



*****(]<!* ********* 
♦IGGPXEXS BS1AU* 
*_*_*_*_*_*_*_*.** 
•GET VOL. INFO. * 

* FOR DATA * 

* COMPONENT * 
***************** 



**************** 



********* 



****K 4* ******** 

* 
RETURN * 

* 
*************** 
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* ENTRY * 

* * 
*************** 



C1 *. 
.* HOST *. 
NO .* SPiCE MAP * 
' -*.BE CONSTRUCT. 



***************** 



*****p i* ********* 
♦IGGPADGO AH1A1* 
*_*_*_*_*_*_*_*_* 

* ADD GROUP * 

* OCCURENCE * 

* * 
***************** 



****Gi* ******** 

* * 

* RETURN * 

* * 
*************** 



♦RETRIEVE ASSOC* 
♦DATA SPACE GRP * 
* OCCURRENCE * 

***************** 



***************** 



-♦SET DATA SPACE ♦ 
♦EIIENT TO FREE ♦ 
♦ FOR SUEALICC. ♦ 

***************** 



♦ ENTRY ♦ 

* * 
*************** 



.♦ SPACE ♦. 

.♦HEADER G.O.^. 

-♦.TO BE DELETED. ♦ 



*****C 3* ********* 
♦IGGPGVAL BA1A2+ 
*_*_*_*_*_*_*_*_* 

♦ RETRIEVE DATA ♦ 

♦ SPACE GROUP ♦ 

♦ OCCURRENCE ♦ 
***************** 



♦ ENTRY ♦ 

* ♦ 
*************** 



* DERIVED 

VOL. ENTRY 
♦. PIELD . 



ALTER FIELD ♦ 

* 

*************** 



****Di|********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****£ 3********** 
♦IGGPGREC BA1A3^ 
*_*_*_*_*_*_*_*_* 

♦ REGET BASE ♦ 

♦ RECORD ♦ 

♦ * 
***************** 



♦ RESET BIT MAP ♦ 

* AS DATA SPACE ♦ 
♦EXT. ARE ALLOC. ♦ 

***************** 



ENTRY 

************ 



SPACE MAP ' 

ALREADY 

.EXISTING . 



*****C5********** 
♦IGGPAOCI AG1A2* 
*_*_*_*_*_*_*_*_* 

♦ GET CI # FOR ♦ 

♦ BIT MAP EXT. * 

♦ RECORD * 
***************** 



*****D5* ********* 

* * 

♦ CONSTRUCT THE ♦ 

♦ SPACE MAP ♦ 
♦VARIABLE FIELDS^ 

* * 
***************** 



*****g5****** 
♦IGGPPUPC AG3A5^ 

♦NRIli OUT NENLY^ 
♦CONSTBUCT. REC.^ 

* * 

***************** 



*****P5********** 
♦IGGPPUPC AG3A5^ 
*_*_*_*_*_*_*—*_* 
♦UPDATE THE BASE^ 

♦ VOLUME ENTRY ♦ 

* * 
***************** 



♦ DELETE FIELD ♦ 

* * 
***************** 



****{] 3* ******** 

* * 

* RETURN ♦ 

* * 
*************** 



****G5* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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* ENTRY * 

* * 
*************** 



*****B1******** 
*IKQVTCOC 



*****B2********** 

*IKC?TCCC * 



» OPEN VTOC 

*************** 



*****Ci* ********* 
*IKQBDS00 * 



* READ PU DSCB * 

* * 
***************** 



*****D1 ********** 
♦IKQVTCOO * 



***************** 



****£-)***** 

* 

* RETURN 

* 
*********** 



* CPEN VTOC 

* 
**************** 



*****£ 2* ******** 4 

♦IKCMDSOO * 

*_*_*_*_*_*_*_*_* 

* * 

* MFITE F«* DSCB * 

* * 
***************** 



*****{} 2* ******** 
MKCVTCCC 

*.*_*_*_ *_ *_ *_ *. : 

* CLOSE VTOC 

* AGAIN 

**************** 



***E2********* 
fcETURN 

************** 
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****A1******** 

ENTRY 
************** 



INS. /DEL. 
POINT IN 
. FOLLOW. 
*.REC. .* 



*****£ 2* ********* 
*IGG£GVAL BA1A2* 
*_*_*_*_*_*_*_*_* 
->*READ EXT. REC. * 
* TC ESIABIISH * 
♦INS. /DEL. PCINT* 
***************** 



CI *. 

.* SPACE *. 

* AVAIL. IN * 

PREV. REC. 



*****D1* ********* 
*IGGPSINK BH1G2* 

*_*_*_*_*_*_*_*_* 
* INSERT * 
♦INFORMATION IN * 
♦FOLLOWING REC. * 

***************** 



-*.ANY OVERFLOW .♦ 



***************** 



♦OPDATE FOLLOW. * 

* REC. UNTIL NO * 

* MORE OVERFLOW ♦ 

***************** 



****G1********* 

* * 

* RETURN * 

* * 
*************** 



* ENTRY * 

* * 
****>********** 



* DELETE * 
♦SPECIFIED FIELD* 

♦ LATA ♦ 

***************** 



* EXPAND FIEID * 

* WITHIN PHYS. ♦ 
♦REC. LIMITATIONS 

***************** 



****K2**^***** 

* * 

* RETURN * 

* * 
*************** 



************* 



************** 



* ENTRY 
* 
************* 



***** B 4********** 
*IGGPAXCI AG3F4* 

*_*_*_*—*_*._*_*_* 

* GET A NEW CI * 

* NUMBER ♦ 

* * 
***************** 



DOES AN 
EXTENSION 
. EXIST . 



***************** 



-*.ANY OVERFLOW .* 



*****£ 3*** ******* 
♦IGGPPREC AW2A«* 
*_*_*_*_*—*_*_*_* 
♦UPDATE POINTER * 

* TO NEW EXTEN- * 

* SION RECORD * 
***************** 



* GET THE OLD * 

* EXTENSION * 

* RECORD * 

***************** 



*****D 5* ********* 
♦IGGPGNEX AW1A1* 
*_*-.*-.*-.*-.*-.*_*_* 
*FORMAT THE NEi * 

* EXTENSION * 

* RECORD * 
***************** 



.* OVERFLOW * 
*. FOR CURREWT 
*. RECORD .* 



.* MUST OLD *. SO 
.REC. CHAIN BE 
*. DELETED ' 



BE .*- , 

v* n 



* DELETE * 
♦SPECIFIED FIELDS 

♦ DATA * 
***************** 



*****P5 ********** 
♦IGGPEXPD AX * 
*_*_*_*_ *—*_*_*_* 
* EXPAND FIELD * 
♦WITHIN PHYSICAL* 
♦REC. LIMITATION* 
***************** 



.♦OVERFLOW BY^. YES 

♦. PREVIOUS .* 

♦.ACTION .♦ 



***************** 



* DELETE THE * 

* RETRIEVED ♦ 

* RECORD ♦ 

***************** 



.* DID DEL. ♦. 
. RECORD HAVE . ! 
♦. EXTENSION. ♦ 



♦ K3 ♦ 

* *_> 

**** 



****K 3* ******** 

* * 

* RETURN * 

* * 
*************** 



*****G5********** 

♦IGGPAXCI AG3F4* 

*_*_*_*_*_*_*_*_* 

->* GET A NEW CI * 

* NUMBER ♦ 

* * 
***************** 



***************** 



****J1»********* 

* * 

* RETURN * 

* * 
*************** 
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♦IGGPSINK BW1G2* 

* ~ INSERT * 
♦INFORMATION IN * 
♦PREVIOUS RECOHD* 

***************** 



**** 
* E2 



•*"} 



SHIFT * 

INFCRBATICN * 

OPWARES * 

*************** 



♦OVERFLOW BY*. 

PREVIOUS 
♦. ACTION .* 



**************** 



*****E1*** ******* 

♦IGGPGVAL BA1A2* 

*_*_*_*_*_*_*_*_* 

* RETRIEVE * 

* FOLLOWING * 

* RECORD * 

***************** 



*****F1* ********* 

♦IGGPSHNK AX * 

*_*_*_*_*_*_*_*_* 
♦SHRINK FIELD BY* 
* DELETE LENGTH * 



********** 



.♦OVERFLOW TO*. 

♦. PREVIOUS .* 

♦. RECORD .* 



*****£ 2*** ******* 
♦IGGPAXCI AG3FM^ 
*_*_*_ *_. *_*_*_*_* 

* GIT A NEW CI * 

* NUHBER * 



****** 






******* 



*********** 



.♦OVERFLOW TO^ 

PREVIOUS 

*. RECORD .♦ 



H1 ♦. 

.♦INFO TO+. 

.♦BE INSERT. ♦. 

. IN PRE?. BEC. .♦ 



*j1********* 

RETURN ♦ 

* 
************ 
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* ENTRY 

* 
************** 



* GET DEVICE * 

♦CHARACTERISTICS* 
♦OF DATA VOLUME * 

***************** 



**** 

* * 

* ENTRY * 

* * 
*************** 

I 

I 



B2 *. 

.*PTR. TO*. 
* ASSIGNED * 

D1BL STMNT 
♦.EXISTING .* 



r 



*****C 2*** ******* 
♦IKC.VDTPE * 
*_*-*_*_*_*_*_*_* 
*GET THE DEVICE * 
♦CHARACTERISTICS* 



**** 



********** 



* GET DEVICE * 
♦CHARACTERISTICS* 
♦OF INDEX VOLUME* 

***************** 



***** Q 3* ********* 



***************** 



*****C 3* ********* 
♦IGGPGET AG3A1* 

*_*_*_*_*_*_*_*_* 

* GET VOLUME * 

* RECORD * 

* * 
***************** 



*****D 3* ********* 



*************** 



***** B 4* ********* 
♦CHECK SPECIFIED* 
♦LOGICAL RECORD * 

* SIZE AGAINST * 

* MAX. VALUE * 

* * 
********* ******** 



.* DATA *. 

CI-SIZE 

*. SPECIFIED.* 



♦CHECK CONSIST. 

* OF INPUT 

* PARAMETERS 



♦CALCUL.CHARAC- * 
♦TERIST. OF DATA* 
*S INDEX OBJECTS* 

***************** 



♦CONV. CI-SIZE TO* 
♦INT. MULT. OF MIN* 
* PHYS.BLK-SIZE * 

***************** 



***** £4 ********** 

* * 

* CHECK CI-SIZE * 
♦AGAINST MAXIMUM* 

* VALUE ALLOWED * 

* * 
***************** 



***** 
*02 * 
* Ft* 



* G 1***** 
RETURN 



*****p 2*** ******* 
* * 

♦CALCULATE NO OF* 
♦PHYSICAL BLOCKS* 
♦FCR THIS DEVICE* 



*****G2* ********* 

* SET MAX. * 
♦PHYSICAL BLOCK ♦ 

* SIZE FCR THIS ♦ 

* DEVICE ♦ 



*H2******** 
RETURN 



*****Q (J* ********* 

♦SET DAT. CI-SIZE* 
♦TO THE LARG. OF* 
♦CI-SIZE, REC-L ♦* 
♦REC-OV.6.0B KEY* 
*L*POS*REC.O¥.H.* 
***************** 



******** 
♦IGGPDCIM BX * 
*_*_*_*_*_*_*_*_* 
♦CONV.CI-SIZE TO* 
* INTEG. MULT. OF * 
♦MIN.PHYS.BLK-S.* 
***************** 



*****j 4* ********* 

* * 

* CHECK AGAINST * 

* MAXIMUM VALUE *- 

* ALLOHED * 

* * 
***************** 



.* INDEX 
. CI-SIZE 
♦.SPECIFIED. 



*****P5* ********* 
♦IGGPDCPT BX * 

♦CON V . CI-SIZE~TO* 

♦VALUE EQ OR GR> * 



*****G5********** 

* * 

* CHECK CI-SIZE * 

* AGAINST MAXIMUM!* 

* VALUE ALLOHED * 

* * 
***************** 



*****{j5********** 

* CHECK KEf * 

* POSITION AND .'* 
♦LENGTH AGAINST * 

* MAX. LOGICAL * 

* RECOBD SIZE * 
***************** 
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**** 
*C2 * 
* B1 * 



DATA ♦. 

CI-SIZE 
•SPECIFIED.* 



************** 



* 


INDEX CI *. NO 

SIZE . * 

SPECIFIED.* 

*. . * 




*. .* *** 






>YES * 

* B4 

* 






*** 




' 










F1 *. 
* *. 


* 


SPA* 
RECC 


NED *. 
DRDS .* 



INDEX CI 

SIZE 

.SPECIFIED. 



****E 2* ******** 

ESTABLISH 

DEFAULT VAIUE 

IOR INDEX 

CI-SIZE 



*****E3******* 



.'"I 




. *. 




B4 *. 




* * 




DATA 


*. IES 


CI-SIZE 


•-J 


SPECIFIED 

*. . * 


*. .* 


***** 


"NO 


♦ 03 * 






* B1* 






* * 






* 


v 




. *. 




C4 *. 




* * 




SPANNED 


♦ . YES 


RECORDS 


.♦__ 



*****D4* ********* 

* SET DATA * 

* CI-SIZE TO * 

* MAXIMUM * 
♦POSSIBLE VALUE * 

* * 
***************** 



***** 05* ********* 
♦SET DAT. CI SIZE^ 

♦ TO LARGER OF ♦ 
♦KEY POS.* KEYLM* 

♦ ♦ REC.OV.H. OR ♦ 

♦ LOG. REC. SIZE ♦ 
***************** 



*****G 1* ********* 
♦ENSURE THAT KEY* 

* IS IN 1ST CI * 
*AND CI SIZE IS * 
*LESS THAN MAX. * 

* RECORD LENGTH * 
***************** 



*CONV.TO INTEG. 

* MOLT. OF MIN. 

* PHYS.BLK-SIZE 



*****j i********** 

* CHECK CI-SIZE * 
♦AGAINST MAXIMUM* 

* AND MINIMUM *• 

* VALUES * 



* CALCULATE * 
♦RESULTING * OF * 

* PHYS. BLOCKS ♦ 

***************** 



*****P4* ********* 

* * 

* CHECK AGAINST * 

* MAXIMUM * 
♦POSSIBLE VALUE ♦ 

* * 
***************** 



. ♦ BUFFER- ♦. 
*♦. SPECIFIED. ♦' 



*****j4* ********* 
♦IGGPITER BX ♦ 
*_*_*_*_*_*_*_*_* 

♦ ADJUST DATA ♦ 

♦ CI-SIZE ♦ 

♦ DOiNHARDS ♦ 
***************** 



INDEX ♦. 
CI-SIZE 
. SPECIFIED. ♦ 



*****{] 5* ********* 

* * 

* SET DEFAULT ♦ 
♦VALUE FOR IIDEX* 

* CI-SIZE ♦ 

* * 
***************** 



*****K4* ********* 
♦IF SPANNED REC.^ 
♦ENSURE THAT KEY^ 

* POS. & LENGTH ♦<- 

* DOES FIT IN ♦ 

* FIRST CI ♦ 
***************** 



♦03 ♦ 
♦ B1* 

* * 



*****K5* ********* 

♦IGGPITER BX * 

*_*_*_*_*_*_*_*_* 

-♦ ADJUST DATA * 

♦ CI-SIZE * 

♦ DOHNHARDS « 
***************** 
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**** 
♦0 3 * 
* B1 



*****B2********** 



* B3 * 

* * , 



CI1. OMIT 
OP 1LLOC. 



****** *********** 



*****£ 2*** ******* 



***************** 



*****£ <|********** 

♦IGGPDPBI CI * 

*_ *— *—*—*—*—*_*•* 

* DETEBM. PHTS. * 

* BLOCK SIZE * 

* ¥AL0B * 
***************** 



*****pt********** 
♦DETER HI HE HO OF* 
♦TRACKS BEQOIBBD* 

* POB THIS * 

* ALLOCATION * 

* * 
***************** 



*****H1********** 



************** 

**** 

* 
B3 * 

w * 

**** 



u 



*****{I2********** 

* * 
♦SET CA-SIZE TO * 

* A ¥ALUI LESS *- 
*TBEH A CTLIHDEB* 

* * 
***************** 



****B3********* 

* * 

* BETOBH * 

* * 
*************** 
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***** !********♦ 

* * 

* ENTRY * 

* * 
*************** 



ENTRY * 

* 
*************** 



->* ADJUST SPACE * 
* ALLOCATION * 
*FABAN. FOB DATA* 

***************** 



C1 *. 
.* SPACE *. 
. *PARAH. FOR *. YES 
. DATA S INDEX .* 



r~ 



*****£ 1* ********* 

*IGGPDDRT BY * 
*_*_*_*_*_*_*_*_* 
♦CONVERT RECORDS* 
*TO TRACKS SPACE* 
* ALLOC. PAR AH. * 
***************** 



*****G1********** 

* * 

* CONVERT * 

* CYLINDERS TO * 

* TRACKS * 

* * 
***************** 



***** Hi* ********* 

* SET UP INDEX * 

* FPL STRUCTURE * 

* FOR SPACE * 

* PABAM. VALUES * 

* * 
***************** 



***** j 1* ********* 
*CALC. NUMBER OF * 
*CA'S CONTAINED * 
♦IN SPACE QUAN- *- 

* TITIES SPECI- * 

* FIED * 
*******<*****-****-* 



* ADJUST SPACE * 

* ALLOCATION * 
♦PARAH.FOR DATA * 

***************** 



*# CF 1RACKS . 
* SIC. INDEX 

************** 



*****£ 3* ******** 
*IGGPDISA BY 
*_*,.*_*_*_*_*_*_ 
->* ADJUST SPACE 
* ALLOC. PARAH. 
FOB INDEX 



****** 



********** 



* CA-SIZE 

EQUAL CYL. 
*. SIZE 



* CONVERT DATA * 
♦TRACKS TO CXL. * 

* SPACE ALLOC. * 

****************** 



* ADJUST TRACK * 

* ALLOC. TO CA * 

* INTEG. HULT. * 
******** ********* 



*****C4********** 

*IGGPDDRT BY * 

*-.*_*_*_*_*_ *.. *_ * 
♦CONVERT REC. TO* 

* TRACKS SPACE * 

* ALLOCATION * 
***************** 



♦ CA SIZE 
EQUAL CYL. 
*. SIZE 



***** D 5********** 

* CONVERT * 

* CYLINDERS TO * 
->♦ TRACKS SPACE * 

* ALLOCATION * 

* * 
************,**£** 



*****F4 ********** 

♦IGGPDDTC BY * 

*_*_*_*_*_*_*_*_* 
♦CONVERT TRACKS ♦ 

♦ TO CYLINDER * 

* SPACE ALLOC. 

*********- 



*****Q4 ********** 

♦IGGPDATA BY ♦ 

*_*_*_*_*_*_*_*_* 

* ADJUST TRACK * 

* ALLOC. TO CA * 

* INTEGER MULT. * 

***************** 



****H4* ******** 

* * 

* RETURN * 

* * 
*************** 



* ♦ 

* K3 * 

* * 
**** 



****K3********* 

* * 

* RETURN * 

* * 
*************** 
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ENTRY * 



* ENTRY * 

*************** 



* ENTRY * 

* * 
*************** 



*BUILD CPL'S AND* 
* FPL»S FOB * 

♦EXTRACT/MODIFY * 



r > 



***************** 



.* *. YES 
♦.UNIQUE SPACE .* 



************ 



*C3********** 



♦DELETE DATA SET* 
♦DIRECTORY GROUP* 

* OCCURRENCES * 



MORE 
CANDIDATE 
. VOLUMES . 



***£3****** 

RETURN 



*****3 4* ********* 
♦IGGPDFBI B8 * 
*_*_*_*_*_*—*_*_* 
♦BUILD CPL'S AMD* 
♦ FPL'S FOB * 
♦EXTRACT/MODIFY * 
***************** 

I 



**************** 



♦DELETE DATA SET* 
*DIRECTOBY GROUP* 
* OCCURRENCE * 

***************** 



****E4********* 

RETURN * 

* 
*************** 



*****g5* ********* 
*IKQVDTPE * 



**************** 



*«***C5* ********* 
*IKQSCR00 * 
*_*_ *_*_ *_ *_ *_*_* 

* * 
♦SCRATCH F1 DSCB* 

* * 
***************** 



****D5********* 

* * 

* RETURN * 

* * 
************-"■ 



:****p^********** 

IGGPBNUN B81GU* 

_*_*_*_*_*_*_*_* 

RETURN SPACE TO* 

SUBALLOC. * 

MECHANISM * 

************* 



*** 



♦IGGPBCSH B61G5' 



* EE1E1E SEACE 

* fcEACER GROUP 

* OCCURRENCES 

*************** 



G1 *. 

.* MORE *. 
|YES .* VOL. WITH *. 

i *. PHYS. SPACE . 

*. TO .* 

♦RECLAIM* 



ENTRY 

*********** 



ENTRY * 

* 
*********** 



ENTRY * 

* 
************* 



* CANDIDATE 

VOLUME TO 

♦.BACK OUT . 



->*PEMOVE DATA SET* 
•DIRECTORY GROUP* 
* FCR CAKC.VCI. * 

***************** 

I 



_*_*_ 



.♦DATA RECORD*. YES 

.WRITTEN INTO .* 

*. CATALOG .* 



*NO 

I **♦* 

* B2 * 



******** 



♦DELETE DS DIREC* 
♦G.O. UPDATE DS * 
* COUNT * 

***************** 

I 



_*_*_*_* 



**j3********* 
RETURN 

************* 



♦SUB-SCRATCH TO 

* FREE PHYSICAL * 

♦ SPACE * 

***************** 



****j4********* 

RETURN * 

* 
*************** 



♦DELETE DATA SET* 
♦DIRECTORY GROUP* 
* OCCURRENCE * 
***************** 



****J5* ******** 

* * 

* RETURN * 
*************** 



*IGCPVMSC A"J1A1* 
*_*_*_ *_ *_ *_ *_ *_ * 
*RETURN SPACE TO* 
♦AVAIL. STAT. AND * 
♦UPE.VOL. ENTRY * 
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*A 1********* 
ENTRY * 

************ 



CHECK INPUT 
PARAMETER 
VALIDITY 

************** 



♦IGGED5DA AK1A3* 



* WRITE THE AIX * 
♦RECCED INTC THE* 

* CATALOG * 

***************** 

I 
I 



♦IGGPDSEM CA1A4* 

♦ChIcK VALIDITY - * 

* OF REMAINING * 

* INEUT PARAM. * 



* PROCESS DATA * 
*AND SECURITY OF* 

* AIX * 

***************** 



*CHECK PASSWORD * 
♦OF RELATED BASE* 
* CLUSTER * 
***************** 



*IGGPDSPF 



* PROCESS SPACE 

* PARAMETERS OF 
♦AIX COMPONENTS 



♦PROCESS EUFFER * 

* SIZE * 

* SPECIFICATION * 

***************** 



♦PROCESS RECORD 

* SIZE 

* SPECIFICATION 



♦****C2********** 
*IGGPMODC CA1A3* 
*_*_*_*_*_*_*_*_* 

* CHAIN THE AIX * 

* TC IIS EASE * 

* CLUSTER * 
***************** 

\ 

I 


***** c 3********* 
♦IGGPMOD AV1A1" 
*_*_*_*_*_*_*_*_■< 

* ADD AIX 
♦ASSOCIATION TO 1 

♦ BASE CLUSTER 
***************** 


I 

\ 

*»***£2********** 

*IGGPGET AG3A1* 

*_*_*_*_*_*_*_*_* 

♦ GET AIX RECORD * 
♦AGAIN TC VEFIFY* 

♦ ALL IS C.K. ♦ 


i 

****D 3* ******** 

* i 

* RETURN 
* 

*************** 



***************** 






L 



♦ ADD THE AIX 

♦ COMPONENTS TO 

♦ UPGRADE SET 



♦GET AIX RECORD ♦ 

♦ AGAIN FOR ♦ 

* VERIFICATION ♦ 



J3 ♦. 

ERROR 



*K3********* 
* 
RETURN * 



j *************** 

**** 



************ 



.* RELATIVE *. YES 

*. RECORD DATA .* -, 

*. SET .* I 

*. . * V 

*. .* **** 

♦ NC * * 

I * C5 * 

I * * 

i **** 



*****Q4 ********** 
♦IGGPCKEN CA2A1* 
*_*_*_*_*_*_*_*_* 
♦CHECK OBJECT'S * 
* AND RELATED * 
♦OBJECT'S NAMES * 
***************** 



O.K..* 1 



* D5 * 

* * 

**** 



*****£ 4********** 

* * 

* CHECK IF THE * 

* CLUSTER IS A * 
♦VALID AIX BASE * 

* * 
***************** 



♦.BASE INVALID 



*F4********** 



*****C5********** 

* * 

* * 
->^SET ERRCR CODE * 

* * 

* * 
***************** 



.... j 

****B 5* ******** 
* 
* RETURN 

*************** 



ENTRY 

******* 

I 



♦GET BASE OBJECT* 

♦ EECCRD CF AIX * 

* OR PATH * 

***************** 



* EXTRACT DATA * 
♦ASSOCIAT. FROM * 

* BASE CLUSTER * 

***************** 



*****H4 ********** 
*IGGPGET AG3A1* 

* GET THE DATA * 

* RECORD * 



♦ YES 

I 



♦IGGECKAD BM1A1* 

*_*_*_*_*_*_*_*_* 

* CHECK * 

* AUTHORIZATION * 

* * 
***************** 



I 

YESj 



****j5********* 

* * 

* RETURN * 

* * 
*************** 
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ENTRY * 

*********** 



************* 



ENTRY 

*********** 



*****Q-\* ********* 

* * 

* CHECK AIX AND * 

* BASE CLUSTER * 

* NAME * 



_*_*_*_*_*_* 



*****gil** ******** 
*IGGPGET AG3A1* 
*_*_*_*_*_*_*_*_* 
*GET BASE CLUST.* 
♦OF AN AIX OB OF* 
*A PATH IN ERROB* 
***************** 



*. INVALID NAME . " 



****C3********** 

GET RECOVERY * 

VOLUME * 

INFORMATION * 

FROM CLUSTER * 

RECORD * 

**************** 



*****£ H* ********* 



* TRY TO GET A * 

* RECORD USING * 

* NEW AIX NAME * 

***************** 

I 



******** 



*DEL.AIX OR PATH* 
♦ASSOCIAT. FROM * 
* BASE CLUSTER * 

***************** 



JSLUKU rUUNU . * -i 

'*. .*'* 1 

, * **** 

♦ NO * * 



****E 3* ******** 

* RETURN 

* 
*************** 



****E4********* 

* * 

* RETURN * 

* * 
*************** 



YES .* *. 
*. CLUSTER FOUND.* 

r *•* 



i 



i 



| *****hi******** 



| *SET ERROR CODE * 

I : * 

I ***************** 



****ji******** 

RETURN 

************** 
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* A1 ******* 

ENTRY 



♦ ♦A 1 ********** 

ENTRY * 

* 
************* 



*****5 1********** 

* BUILD * 
♦EXTRACT/MODIFY * 

* CATALOG * 
♦PARAMETER LIST * 



EXTRACT NEXT 

VOLUME GROUP 

OCCUR. 

************** 



****£-)********** 

SCAN FOR NEXT 

EXTENT TO BE 

FREED 



********* 



♦UPDATE BIT HAP * 



->* UECATE FIXED 
* PART OF CTLG 
REC. 



*********** 



* C1 * 

* * 
**** 



* EXTRACT AMDSB * 



* 
* 
* 




*****£3* ******** 

♦IGGPMCD AV1A1 

*_*_*_*_*_ *_ *_ *_ 


♦ 




* MODIFY AMDSB 


* 




**************** 
I 

I 


NO 


*****F2********** 

♦IGGPEXT AZ1A1* 

*_*_*_ *_ *_*_*_*_* 

>*EX1BACT VOLURE * 

♦ GBOUP OCCUR. * 

* * 


! 
i 

****P3********* 

* RETURN 

*************** 



*****£ 4* ********* 

* * 

* * 
->*GET NEXT BUFFER* 



******* 



**** C 5********* 

* * 

* RETURN * 

* * 
*************** 



***** 014* ********* 

♦IGGPPAD AG2A1* 

*_*_*_*_*_*_*_*_* 

* PUT BUFFER * 

* * 
***************** 



***** gii* ********* 

* * 

* * 
-*FREEVIS BUFFER * 

* * 

* * 
***************** 
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FROM 6 RECORD * 



GET BASE 

CLUSTER C 

RECORD 



*****D1* ********* 
♦IGGPEXT AZ1A1* 

* EXTRACT D * 

* ASSOCIATION * 

* FROM C RECORD * 



ENTRY 

******** 



* GIT EASE 

* CLUSTER E 

* BECCFD 

************* 

I 



*****£ 2********** 
♦IGGPEXT AZ1A1* 

*" EXTRACT~Y ~* 

* ASSOCIATION * 

* FECP D EEC. * 

***************** 



*YES 
I 

I 



***** 

ENTRY * 

* 
*********** 



************** 



*****£ {4* ********* 



**D£j********* 

RETURN * 
************* 



*************** 



***** b5* ********* 
*IGGPAOCI AG1A2* 
*_*_*_*_*_*_*_*_* 

* GET CI HDHBEB * 
*OF AN F RECORD * 

* * 
***************** 



*****C5 ********** 



* ADD D AND I * 
♦ASSOCIATIONS TO* 

* NEW Y REC. * 
***************** 



•CHANGE UPGRADE/* 

* NOUPGRADE * 

* ATTRIBUTE * 

***************** 



*FXTRACT D AND I 
*ASSOCIAT. FROM 
* Y REC. 



* WRITE I * 
♦ASSOCIATION IN * 

♦ EASE D RECORD * 

***************** 



****p -)***** 
* RETURN 



*********** 



*G2******** 

RETURN 

*********** 



*_*_*_*_*_*_*_*_* 

>*ADD NEW D AND I* 

♦ASSOCIATIONS TO + 

♦ Y RECORD * 



♦DELETE C AND I 

* ASSOCIATION 

♦ FROM Y REC. 



* DELETE Y ♦ 

♦ ASSOCIATION * 
♦FROM BASE D REC* 
***************** 



*****j4* ********* 

♦IGGPPDE AG1A3* 

*_*_*_*_*_*_*_*_* 
■* CONVERT Y * 
♦RECORD TO AN F * 
* RECORD * 
***************** 



****P5********* 

* * 

* RETURN * 

* * 
*************** 
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*A3***** 
FNTRY 



B1 *. ***** E 2********** 

RECORD "*. YES * * 

RETRIEVAL . * >* ISSUE GE1 * 

. * * * 

* . . * * * 

*. ,* ***************** 

*NO I 

I **** 

L_>* * 

* F1 * 

C1 "*. ***** c2 ********** 

*' RECORD '*. YES * * 

DELETION . * >* ISSUE ERASE * 

* . . * * * 

'*. ,** ***************** 

♦NO I 

I U"**. 

* F1 * 

* * 
V »*** 

D1" **. ***** C 2********** 

. * *. *IGGFEI0 CG2A2* 

*CRA UPDATE *. YES *_*_*_*_*_*_*_*_* 

REQUIRED .* >* FERFORM CRA * 

*. .* * UPDATE * 

'*NO I 

I I 

!< J 

i 

V 

***E1********** 

ISSUE PUT * 

* 
*************** 



F1 *. ***** F 2********** 

.* *. *IKCVDUKF * 

I/O TRACE *. YES *_*_*_*_*_*_*„*_* 

REQUIRED .* >» EEEFCFM SNAP * 

.* * DUWP * 

*. . * * * 

*. .* ***************** 

*NO | 

< 1 

V 

G1* '*. ***** G 2********** 

.* *. *IGGFICFA CG1E5* 

ERROR *. YES *_*_*_*_*_*_*_*_* 

DETECTED .* >*ANALYZE RFTUFN * 

.* * CODE * 

. . ............... 

! 

. >, 

.....J....... 

* RETURN * 



♦IGGPCRAC C01A1* 

* * 

* OPEN CRA * 

***************** 
I 



.* CRA USED * 

*. FOR THE 1ST 

*. TIME .* 



*YES 
I 

I 



*****q3********** 
*IGGPRCCR AG2A2* 



** E 3***** 
RETURN 



YES .* RECORD IN * . 

r *. GET-DPDATE . 

I *. STATUS .* 



I * OBTAIN 

I * UPDATE 

| *FOR THE 

I ********> 



******** 
CG1A1* 
_*_*_*_* 
GET- * 
STATUS * 
RECORD * 



*IGGPEWSG AF2A«* 



*************** 



****H4* ******** 
RETURN TO * 
CALLER ERROR * 
EXIT * 
*************** 



ENTRY 

*************** 



*****p 5* ********* 



***************** 



**** H 5********* 

* * 

* RETURN * 

* * 

*************** 
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****A4********* 
ENTRY 

*************** 



***************** 



*SAVE PARAMETERS* 

♦OF FECORD TO BE*< 

* UPDATED * 



NO .* DELETE 
*. BEQUEST 



OPEN CRA * 

* 
*************** 



*****£) 3********** 

*IGGPECIT CG2A4* 

*_*_*_*_*_*_*_*_* 

* * 

* UPDATE CRA * 

* * 
***************** 



GET CRA *. NO 

PEC. FCR .* t 

. COMPARE .* 
*. .* V 



********* 



>■'-] 



I 



*****C4********** 



************** 



V 
„**** D 4* ********* 

*IGGPXIO CG1A1* 

*_ *_*_ *_ *_ *^ *_ *_ * 

* WRITE BECOBD * 

* INTO CRA * 

* * 
***************** 



***** g4********** 

*IGGPCHAC CG * 

*_*_*_ *_ *_ *_ *_ *_ * 

* UPDATE HIGH * 

* ALLOCATED CI * 

* NUMBER * 

***************** 



****P4* ******** 

* * 

* RETUBN * 
« * 

*************** 



* 

* EETUBK 



| ************** 
**** 
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♦A3***** 
ENTRY 



* A 4***** 
ENTRY 



— >* EXIPftCT DATA 
f * SET DIRECTORY 

I * G.O. 



l!E_, 



.* ALL *. 
. DIRECTORIES . * 
*. CHECKED .* 



SSDE IKQRLSE 
R LOOK-ASIDE 
MODULE 

************* 



EXTRACT DATA 

SIT DIRECTORY 

G.C. 



FLAG DATA SET 
RECORD AS 
UNUSABLE 



*IGGPDMCS CL1A4* 



* All *. 

DIRECTORIES .* 
*. DELETED .* 



_J 



*****3 3* ******** 
♦IKQVTCOC 



***** c3 *** 
*IKQRDS0C 



READ F<4 DSCB * 

* 
**************** 



*****D3*** 
*IKQRDS0C 



READ ANY 
********* 



"*< 

DSCB * 



*****p 3*** 
♦IKQSCFOC 



*****G3**** 



H3 *. 
. * *. 

*.*VTOC SCANNED 



*****Q(J* ********* 

* * 

*SET DP CONTROL * 

* BLOCKS FOR * 

* MODIFY * 

* * 
***************** 



* DELETE DS * 
♦DIRECTORY G.O. * 
*FROM VOLUME REC* 

***************** 



*D4********* 
* 
RETURN * 



*****H n* ********* 
*IK^VTC00 * 



*************** 



****J1*** ******* 


*****j2*** ******* 


*****j 3* ********* 


IGGFDXDS CL * 


♦IGGPEVSC CL1A3* 


*IKQVTC00 * 




*_*_*_*_*_*_*_*_* 


*_*_*_*_*_*_*_*_* 


BUILD EXTRACT * 


* CIEAN VSAP * 


* CLOSE VTOC * 


INTERFACE * 


*ESCES FROM VTOC* 


♦RETURN JIBS TO * 


* 


* * 


* SUPERVISOR * 


**************** 


***************** 


***************** 


| **** 


**** | 


I 
I 


i_>* * 






* C2 * 


* K2 * I 




* * 


* *_> | 




**** 


**** | 


| 




I 


1 




****K 2********* 


****K3********* 




* * 






* RETURN * 


* RETURN * 
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* ENTRY 

* 
************** 



n 



♦LABEL INF. 
CYL. SEC. 
*. PASSED . 



* GET SYS # OF * 
*CRA VOLUME FROM* 

* ARDB CHAIN * 



* F1 * 

* *_ 

**** 



* BEAD LABEL 

* INFO. CYL. 

* RECORD 

************** 



CORRECT * 
VCLUBE 
MOUNTED .* 



I 

\ 

*****£ 2********** 
♦IGGPVBTV A61G5* 
*_*_*_*_*_*_*_*_* 

* P.CUNT CRA * 

* VOLUME * 

* * 
***************** 

I 

I 

1 

*****Q2********** 

♦IKQCSE * 

*_*_*_*_*_*_*_*_* 

* ENQUEUE CAXWA * 

* CHAO * 

* * 
***************** 



* CRA 

OPEN/EUILE 
*. BEQUEST . 



* SCAN CAXWA 

* CHAIN FOR CRA 

* VCLSER 

**************** 

I 
I 



*****g 3* ********* 
♦SSBCLOSE * 

*_*_*_*_*_*_*_*_* 

* * 

* CLOSE CRA * 

* * 
***************** 



***** c 3* ********* 



* CHAIN AND CRA * 

* OPEN * 

***************** 



************** 



***Y 2* ********* 



**************** 



CO 



*****F4* 

♦IGGPFREE 

*_*_*_*_*_*_*_*_* 

* FREE VIRTUAL * 

* STORAGE FROM * 

* WORK AREA * 
***************** 



.* FILE NAME *. NO 
*. PASSED .* , 

*. .* **** 
*YES * * 

* E5 * 

♦ *' 
**** 


' i 


*****C5********** 

♦IKQV.DTPE * 
*_*_♦_*_*_*_*_*._* 

* READ LABEL * 

* INFO. CYL. * 

* RECORD * 
***************** 



D5 *. 

ERROR 



* E5 * 

* ♦-> 

**** 



*****E5* ********* 

* * 
♦POINT TO LABEL * 

* INFORMATION * 

* RECORD * 

* * 
***************** 



*****P5********** 

♦ SCAN LABEL * 
♦INFORMATION FOB* 

♦ VOLUME SERIAL ♦ 

♦ NUMBER ♦ 

♦ ♦ 
***************** 



. * *. no 


.♦CAXWA FOUND+ 
♦. CRA NCT 
♦. DELETED .♦ 

*. . * 
♦. .* 
♦NO 
1 

j 

H2 ♦. 
. ♦ ♦. 
.♦CAXWA FOUNDS. 
♦.8 CRA DELETED 

* , . * 

*. .* 

*. . * 


YES 


* * . 

*****H1* 
♦IGGPGLUI 


....... } 

.* **** 
*YES ♦ * 

♦ H3 * 

* * 
**** 

********* 
3 CO * 


NO 

**** 


* 

♦ GET LU! 

* 
********* 


* 
I INDEX ♦ 

* 
******** 



**J 1********** 



**************** 
I **** 

♦ B2 ♦ 

* * 
**** 



♦ C3 ♦ 

* * 

**** 



*****J2* ******** 
♦IKQRLSE 

*_ *_ *_ *_ *_ *_ *_ *_ 

♦ DEQUEUE CAXWA 

♦ CHAIN 



j **** 
♦ B3 



*****q 3* ********* 

♦IKQRLSE ♦ 

*_*_*_*_*_*_*_*_* 

>♦ DEQUEUE CAXWA ♦ 

♦ CHAIN ♦ 

* * 
***************** 



.... j 

*****{] 3********** 
♦IGGPFREE CO ♦ 
*_*_*^.*_*_*_*_*_* 

♦ FREE VIRTUAL ♦ 

♦ STORAGE FROM ♦ 

♦ WORK AREA ♦ 
***************** 



****j3* ******** 

* * 

* RETURN ♦ 

* * 

*************** 



****G 5* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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*A1***** 
ENTRY 



*FOR RECOVERABLE* 
♦CTLG CHECK FILE* 
* PARAMETER * 

***************** 



PFASE 
****A2********* 


* ENTRY 

* 

*************** 

I 

I 

I 


I 

I 
I 

\ 

*****92*»******* 
♦IGGPCKEN CA2A1 



♦CHECK PATH KABE* 

* ANC BASE * 

* OBJECT'S NAME * 



I 

V 
*****£ 2********** 

* CHECK IF TEE * 
♦BASE IS A VALID* 

* EATH BASE * 

* OEJECT * 

***************** 



******* 
* 
ENTRY * 

*************** 



♦INITIALIZE WORK* 
* AREA FOR * 

♦FOLLOWING PROC* 



* CHECK OR • 
♦DEFAULT CREAT. * 

♦ EXPIB. DATE * 

***************** 



RETRIEVE THE ♦ 
BASE OBJECT'S * 
ASSOCIATIONS ♦ 

**************** 



♦CHECK BASE OBJ. ♦ 

♦ SECURITY AND * 

♦ PASSWORD ♦ 

***************** 



♦CONSTRUCT PATH ♦ 
♦REC. AND WRITE * 
♦ IT INTO CTLG ♦ 

***************** 



♦ ADD PATH * 
♦ASSOCIATION TO * 

♦ BASE OBJECT . ♦ 

***************** 



*****£2***** 



************** 



****H1********* 
* 
♦ RETURN 



♦YES 
I 

1 



* EXTRACT TfiE 

* AIX'S C,D,I 

* ASSOCIATIONS 

**************** 



EXTRACT BASE 
CLUSTER' S r.,I 
ASSOCIATIONS 

*************** 



****K2*** ♦*♦**♦ 

* * 

* RETURN ♦ 

* * 
*************** 



*****q 3* ********* 

* * 
>*SET ERROR CODE ♦ 

* * 

* * 
***************** 



***************** 



*_*_*_*_*_ 

♦ CHECK PASS- ♦ 

♦ WORD OF BASE .♦ 

♦ OBJECT ♦ 

***************** 



****? 4*****1 
RETURN 



♦ ENTRY ♦ 

* * 
*************** 



GET A CI # * 

ASSIGNED FOR ♦ 
PATH RECORD ♦ 

**************** 



*****C5* ********* 

♦ * 

♦ BUILD PATH«S * 

♦ NON-REPEATING ♦ 

♦ FIELDS ♦ 

♦ * 
***************** 



_*_*_*_*_*-.* 



************ 



.♦ AIL ♦ 
.ASSOCIATIONS 
*. DONE .♦ 



*****P5* ********* 



******** 



ENTRY ♦ 

* 
************ 



♦ EXTRACT ASSO- ♦ 

♦ CIATIONS FROH ♦ 

♦ PATH/ BASE ♦ 

***************** 



**j4********* 

* 
RETURN ♦ 

* 
************* 



*****£ 5* ********* 

♦IGGEPAD AG2A1* 

*_*_*_*_*_*_*_*_* 

♦ ADD NEW PATH ♦ 

♦ RECORD TC ♦ 

♦ CATALOG * 

***************** 



****H 5* ******** 

* * 

* RETURN ♦ 

* * 
-************** 
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ENTRY 
*********** 



* GET BASE * 
♦CLUSTER OR AIX * 

* OF PATH * 

***************** 



*ci********** 



***************** 



*****£)-|*** ******* 

♦IGGPMOD AV1A1* 

*_*_ *_*_*_*_ *_*_* 

* ADD PATH * 
♦ASSOCIATION TO * 

* BASE RECORD * 

***************** 



*********** 



****G1*«******* 

* * 

* RETURN * 

*************** 
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**** 
* 
ENTRY * 

* 
************* 



* ENTBI 

* 
************** 



* A5 

* 
**** 



-\ 



*****A5* ********* 
*IGGPC8B0 CB2A1* 
*_*_*_*_*_*.-*_*_* 

* DELETE VOLOHE * 

* RECOBD AGAIN * 

* * 
***************** 

**** 

* * 

* B5 * 



************** 



YES . *• LIST 

, *. COMPLETELY 

I *.NON-ZEBO . 



* BUILD AND * 
*SUBALLOCATE THE* 

* CRA * 

***************** 



*****E1***» 



***************** 



*pi********* 
* 
RETUBN * 



*****€ 3* ********* 
♦GET STOBAGE FOR* 

* CRA SELP * 

* DESCRIBING * 

* RECORDS * 

* * 
***************** 



♦COPY CTLG DATA * 
* REC. FCR CRA * 
♦SELF-DESCR.PART* 

***************** 



*COPY CTLG CLUST* 
* BEC. FOB CBA * 
♦SELFDESCR. PART* 

***************** 



*****p 3* ********* 
*IGGPGET AG3A1* 

*COPY~CTLG CO NTH* 
* BEC. FOR CRA ♦ 
•SELFDESCR. PART* 

***************** 



* DELETE I * 
♦ASSOCIAT. FROM * 
*CRA CLUSTER REC* 



♦SUBALLOCATE CRA* 



************** 



*****j 3* ********* 



************ 



r ; 



_*_*_*_*_ 



* DELETE INDEX 

* ASSOC. FROM * 
♦•C'BEC. FOB CBA* 

***************** 



*****Q14*** ******* 
•IGGPCRVL CS1A1* 

*_*_*_*_*_*_*_*_* 

* * 
♦SUBALLOCATE CRA* 

* * 
***************** 



***************** 



USES 
CATALOG 
DEFINE 



************ 



**************** 



* *. 


*$$BCLOSE 


* 




* *_* * *. 




ANY ERROR .* n 




*. 


.. ..-* J 


* CLOSE 


CRA * 


* 


* 


*. .* **** 


********** 


i******* 


*YES * * 






I ***** B5 * 
{_>* * * 






* A5 ***** 







*»**B5*»******* 

* * 

* RETURN * 

* * 
*************** 



Chart CR1. Define catalog recovery area (IGGOCLjCR) 



Section 3. Program Organization 3.109 



* GET VOLUME 

* RECORD TO BE 

* DELETED 

**************** 



*****£ 3 ********** 



***************** 



GET VOLUME 

EXTENSIONS 

RECORD 



EELETE THE 
EXTENSION 

RECORD 

************ 



*DEL.PASSW. AND * 
* I ASSOC. FROM * 
*CRA CLUST. REC* 
***************** 



* D 3********* 
* 
RETURN * 



*IGGPF4RD BU1A1* 

*_*_*,-*..*_*_*_*_* 

* * 

* READ F4 DSCB * 

* * 
***************** 



*F1********* 



* H1 *»*** 
RETURN 



************* 
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*IGGPVMTV A61G5* 

* ENSURE 1HAT * 
♦CCPEECT VOLUME * 

* IS WCUN1EC * 



*IGGPGCVC CS * 

* GET VOLUME * 

* DEVICE * 
♦CHARACTERISTICS* 



* READ FU ESCB 



OPEN THE CRA 



♦1GGPSALL AR1A1* 

* SUBALLOCATE * 

* SPACE OR THE * 
♦VOLUME FOR CRA * 



* WRITE CRA * 
♦SELF-DESCRIBING* 

* RECORDS * 



♦INITIALIZE ALL ♦ 
♦FREE RECORDS OF* 

♦ THE CRA ♦ 
♦SELF-DESCRIBING* 

* PART * 



*READ VOL.REC.6 * 
* ITS EXT. INTO * 
♦SELFD.PART BUFF^ 



♦WRITE CRA SELF * 
*DESCR .PARI, UPD.* 
♦VCI.REC.IK CTLG* 



*$$BCLOSE 

* CLOSE THE CRA 



BUILD MODIFY 

INTERFACE FOR 

FOLLOWING 

PROCEDURE 



-♦.EEEINE SPACE 



♦IGGPGET AG3A1* 



♦IGGFDCRC AS 

*~BUILD~VOLUMi 

* INFORM. GROUP 

♦ OCCURRENCE 



ANY ERROfr 



♦ BUILD MODIFY 

♦ INTERFACE TO 
♦DEL. PASSWORDS 
♦AND CHANGE VOL. 

♦ INFO AND AMDSB 



•IGGPCRBC CE2A1* 



GET VOLUME 

EXTENSION 

RECORD 



*IGGPPUPC AG3A5* 

* REWRITE VOL. * 
*REC. NOW CONT- * 
♦A1NING CRA INFO* 






* REWR.VOL EXT. * 
*EEC. NOW CONT- * 
♦AINING CRA INFO* 



1 

*J4**» 
RETUR 
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ENTRY * 

*************** 



r 



_*^*_*_*_*_*^ 



***************** 



*IGGEDEXA BG 



SET NUMBER OF 

OBJECTS TO BE 

DELETED 



*IGGFDEXP BG 



**** 

* C2 * 

* * 
**** 



* SET REQUIRED * 

* LENGTH INTO * 
♦USER WORK AREA * 



YES .* AMS WORK *. 

♦. AREA TOO 

*. SMALL .* 



_*_*_*_*_*_*_* 



EXTRACT 
ASSCCIATICN 
FROM RECORD 



*SET ERROR CODE * 



* EXTRACT PATH * 

* ASSOC. FROH * 

* CLUSTER/AIX * 

***************** 



J 



**** *s 5* ********* 
♦IGGPHOD AV1A1* 
*_*_*_*_*_*_*_*_* 
♦DELETE R ASSOC* 

* FROH BASE * 

* RECORD * 
***************** 



_*_*_*_*_*_ 

* * 
♦GET PATH RECORD* 

* * 
***************** 



D5 *. 

.♦ * 

H RECORD 



*****£ 5* ********* 

*IGGEPDE AGU3* 

*_*_*_*_*-.*_*..*_* 
♦POT-DELETE PATH* 
* RECORD * 



**** 



************ 



FEFICVE G 

ASSCCIATICN 

FFCM C RECORD 



***p t|********* 
* 
RETURN * 
* 

************** 



*****P5* ********* 



***************** 



♦UPCAIE Y RECORD* 



******* 



*IGGFDPTH CX1A4* 



*J2******** 
RETURN 



*YES 

I **** 

L_>* * 

* C2 * 
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EXTRACT MX 

ASSOCIATION 

FBCM CLUSTER 



.* ALL AIX'S *. 
DELETED 

*. . * 






*NO 
1 

• 


i 

****£1********* 


IGGPGET AG3A1 


GET THE AIX 
RECORD 



♦IGGPDEXC CX 



* EXTRACT ALL * 

* ASSOCIATIONS * 
♦FROtf AIX RECORD* 



SET NUMBER OF 

PATHS TO BE 

DELETED 



♦IGGFDETH CX1AU* 

* DELETE ALL * 
♦PATHS CVEF THE * 

* AIX * 



♦IGGEDIDS BG1A4* 



* GET BASF 
♦CLUSTER RECCRD 

* AGAIN 



DEIETE G 

ASSOCIATION 

FFCM ClUSTFR 



EXTRACT Y 
(UPGRADE SET) 
ASSOCIATION 



REMOVE Y 

ASSOCIATION 

FROM D RECORD 



♦IGGPGET AG3A1* 
* GET Y RECORD * 



*H3**** 
RETURN 



***A4******* 

ENTRY 
************ 



AMS WORK 
AREA TOO 
. SHALL 



******** 



EXTRACT BASE 

ASSOCIATION 

FROM PATH 



♦GET BASE RECORD* 



♦IGGPDEXB CX 



DELETE PATH 

ASSOC. FROM 

BASE RECORD 

************* 



********** 



*****j4********** 



***K4********* 



*****B 5* ********* 

* * 

* SET REQUIRED * 
->*LENGTH INTO AMS* 

* WORK AREA * 

* * 
***************** 



*****£ 5* ********* 

* * 

* * 
*SET EBROB CODE * 

* * 

***************** 
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*************** 



*****£ 2*** ******* 

*CDLOAD * 

*_*_*_*_*_*_*_*_# 

* LOAD IKQVLASM * 

* * 
***************** 



C2 

R15 






*****£ 3* ********* 

* * 

* * 

->*SET EBRCP CODE *- 



*****£2***** 

♦IKCUSE 



ENQUEUE 

LOOK-ASIDI 

HCDULE 

************** 



*****p 2* ********* 

* * 
*BUILD PARAMETER* 
*LIST FOR LOOK- * 

* ASIDE MCEUIE * 



*****G2********* 
*IKfiVLASK 



***************** 



H2 


*. 


R15 


= C 


" *. . ** 

♦YES 



*****fj 3* ******** 

* 

->*SET ERROR CODE 



*****K2********** 
*IKCRLSE * 
*_*_.*_*_*_*_*_*_* 

* DEQUEUE * 

* LOOK-ASIDE * 

* MCDUIE * 
***************** 



****K 3******* 
* 
* RETURN 

************* 
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* GET DEVICE * 
♦CHARACTERISTICS* 

* FOR DATA * 

* COMPONENT * 



♦IGGFDPBI CY * 

•COUP. E3LOCK SIZE* 
♦AND BLOCKS PER * 
*TBACK FOR DATA * 



*x***[)1*** ******* 
♦COMPUTE DATA CI* 

* SIZE FROM * 

* SPECIFIED * 

* PARAMETERS * 



*. VALID CI SIZE. 



F1 * 
KSDS 



♦SET BUFFER SIZE* 
* DEFAULT IF NO * 
♦VALUE SPECIFIED* 

***************** 



♦IGGPDCCI CK1A3* 



*]]-|********* 
RETURN * 



*A3***** 
ENTRY 



* GET DEVICE * 
♦CHARACTERISTICS* 

* FOR INDEX * 

* COMPONENT * 



*COMP. BLOCK SIZE* 
♦AND ELOCKS PER * 
♦TRACK FOR INDEX* 



♦COMP. BLOCK SIZE^ 
♦AND BLOCKS PER ♦ 

♦TR. FOR SEQ.SET^ 

***************** 



♦SET EUFFER SIZE* 
* DEFAULT IF NO * 
♦VALUE SPECIFIED* 



****F3********* 

COMPUTE INDFX 

CI SIZE FROM 

SPECIFIED 

PARAMETERS 



****G3***** 
RETURN 



ENTRY * 

* 
*************** 



*****£ 4********** 



*****D4* ********* 



*TO 6 OR I RECD * 

***************** 



**** G lj ********** 



************ 



*****H4 ********** 

* BUILD MODIFY * 

* INTERFACE FOR * 

* BORE VOLUME * 

* INFORMATION * 

* * 
***************** 



* ADD REMAINING 
♦VOLUME INFO TO 

* D OR I RECORD 

**************** 



***** A 5********** 

* * 

* FREE ALL * 
->*WCRKING STORAGE* 

* OBTAINED * 

* * 
***************** 



****B 5* ******** 

* * 

* RETURN * 

* * 
*************** 
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* ENTRY * 

* * 
*************** 



ENTRY 

*********** 



**** 

* * 

* B4 * 



*****£ 1 ********** 

♦BLDCCA * 

*_*_*_*_*_*_*_*_* 

* * 

* BUILD CCA * 

* * 
***************** 



**************** 



♦REQUEST CLEANUP* 



************ 



****E1* ******** 

* * 

* RETURN * 

* * 
*************** 



♦EARLY EXIT 
6 0/C/EOV 



C2 *. 

.* *. 

, * * 

.CEEN REQUEST 



< — *. ACB OPENED 



****+£ 2* ********* 

* * 

* EUILB RPL'S * 

* * 

***************** 



YES .* *. 

< — *.EUILE REQUEST.* 



*****G2*** ******* 
*IGGERCCR AG2A2* 
*_*_*_*_*_*_*_*_* 

* READ CTLG * 

* CCSTBCl EEC. * 

* * 
***************** 



*****j 2* ********* 

* * 

* FREE VIRTUAL * 

* STORAGE FOR *- 

* RPL'S * 

* * 
***************** 



.*CHECK POINT*. NO 
*. CCR BEQ. .* 



*****q 3* ********* 

*IGGPCCCR AG2F2* 

*_*_*_*_*_*_*_*_* 



***************** 



E3 *. 

.* CKPT *. 

.*FCR CRA AND*. 

*.CRA NOT BEING. 

♦.EXTENDED .* 

*. . * 



UPDATE CTLG * 

NTROL REC. IN* 

CRA * 

************** 



_J 



* FREE RPL'S 



UPSI = 
X'CO' OR 
. X'60» 



•'-I 



*', 

* 


UPSI = 

X'80« OR 
X"»0« 

♦. . * 


* 
.* 


. NO 

* 




*. .* 








*YES 




* 

* Ea 

* 










*** 












.* . 








Da *. 

* * 






YES .* 

p— *. 


NON- 
RET. 


ZERO 
CODE 


* 


* 



UPSI = 
X'OO' OR 
. X'70« 



.* RETURN * 
. CODES TO BE 
*. SKIPPED .* 



'""I 



*02 * 
* C2* 

* * 



* SPECIFIC * 


. NO 


RETURN CODE 

*. .* 

*. .* 


*—] 


*. .* 


***** 


♦YES 


♦ 02 * 


I 


* C2* 

* * 



***H 4* ********** 



,* ***** 

♦YES *02 * 

* C2* 



***j 3* ********** 



**************** 



*. REPLY = SNAP 



************ 



j **** 

j_>* * 



I **** 
L_>*0 2 * 
* B2 



***q 5* ********** 

* * 

-> PUT MESSAGE 

* * 

**************** 

I .... 

L_>*02 * 
* C2 * 



***J5* ********** 

* * 

-> ISSUE IKQVSHDP 

♦ ♦ 

**************** 
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* E2 *— , 

* * J 



BZ *. 






*****B3********** 


.* * 
.* REPLY = 
CANCEI 


* 
* 


YES 


*$$BDUMP < 

*_*_*_*_ *_*_ *_*_ 

>* i 

* ISSUE DUMP 

* 


" * . . ** 






***************** 


*N0 

*»» 1 






I 


C2 * 1 
C2 *-> 






J 


4 
















C2* '*. 








.**ACE CAXHA 

.CHAIN CLEAN 

*. NEED. 


* 
* 


* 





***D2*********** 



*****E2********** 



***************** 



+*+Y 2* ********** 



**************** 



* FFIE VIRTUAL * 
*STCRAGE FCR ACE* 

* ANE/OK CAXHA * 

***************** 



* FREE VIRTUAL * 

* STORAGE FOR * 
*IAEEL INF. CYL.* 

* REC. AREA * 

* * 
***************** 



****j2********* 

* * 

* RETURN * 

* * 
*************** 
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Section 4. Directory 



This section contains the following cross-reference material: 
VSAM Phase-to-Module Index 
IIP Phase-to-Module Index 
Component Index 
Module Directory 
Routine Directory 
Catalog External Entry Points 
Data Area Directory 



VSAM Phase-to-Module Index 



The core image library contains the DOS/VS VSAM phases. Their names 
are identifiable by IKQV or $$B. Packaged within the phases are the 
DOS/VS VSAM modules, identifiable by the leading characters IKQ, 
IGGO, or $$B. Two service aid phases, IKQVDU and IKQVEDA are not 
included in the link-edit of VSAM and must be placed in the core image 
library by executing a job described in Service Aids. 

The following list includes the phase names and the names of the modules 
included within each phase. 
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Phase name 


Module name(s) 






IKQVBRP 


IKQBRP 








IKQVCAT 


IGGOCLAB 


IGGOCLAU 


IGGOCLBH 


IGGOCLCG 




IGGOCLAC 


IGGOCLAV 


IGGOCLBL 


IGGOCLCL 




IGGOCLAD 


IGGOCLAW 


IGGOCLBM 


IGGOCLCO 




IGGOCLAE 


IGGOCLAX 


IGGOCLBN 


IGGOCLCP 




IGGOCLAF 


IGGOCLAY 


IGGOCLBQ 


IGGOCLCR 




IGGOCLAG 


IGGOCLAZ 


IGGOCLBR 


IGGOCLCS 




IGGOCLAH 


IGG0CLA6 


IGGOCLBS 


IGGOCLCX 




IGGOCLAJ 


IGG0CLA7 


IGGOCLBT 


IGGOCLCY 




IGGOCLAK 


IGG0CLB8 


IGGOCLBU 


IGG0CLC9 




IGGOCLAL 


IGGOCLBA 


IGGOCLBW 


IKQALLOO 




IGGOCLAN 


IGGOCLBB 


IGGOCLBX 


IKQCOV00 




IGGOCLAP 


IGGOCLBC 


IGGOCLBY 


IKQPOPOO 




IGGOCLAQ 


IGGOCLBD 


IGG0CLB8 


IKQRDSOO 




IGGOCLAR 


IGGOCLBE 


IGGOCLCA 


IKQRENOO 




IGGOCLAS 


IGGOCLBF 


IGGOCLCB 


IKQSCROO 




IGGOCLAT 


IGGOCLBG 


IGGOCLCD 


IKQVTCOO 
IKQWSDOO 


IKQVCLC 


IKQCLCAT 








IKQVCLOC 


IKQCLOCL 








IKQCLOS 


IKQCLO 








IKQVCLOV 


IKQCLOVY 








IKQVDCN 


IKQDCN 








IKQVDNT 


IKQDNT 








IKQVDRP 


IKQDRP 








IKQVDTPE 


IKQVDTPE 








IKQVDU 


IKQVDU 








IKQVDUMP 


IKQDUMP 
IKQDUMPC 








IKQVEDA 


IKQVEDA 








IKQVEDX 


IKQEDX 








IKQVEOV 


IKQEOV 








IKQVGEN 


IKQGEN 








IKQVJIBS 


IKQJIBSM 








IKQVLAB 


IKQLAB 








IKQVLASF 


IKQLASFT 








IKQVLASM 


IKQLASMD 








IKQVMSG 


IKQOCMSG 








IKQVNEX 


IKQNEX 








IKQVOPEN 


IKQOPN 

IKQOPNAI 

IKQOPNCT 

IKQOPNDO 

IKQOPNHC 

IKQOPNNC 


IKQOPNOV 
IKQOPNRD 
IKQOPNRP 
IKQOPNUC 
IKQOPNUS 






IKQVPBF 


IKQPBFOO 








IKQVRBA 


IKQRBA 
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Phase name 


Module name(s) 






IKQVRM 


IKQAIX 


IKQIOAOO 


IKQMDY 


IKQSPMOO 




IKQBFAOO 


IKQIOBOO 


IKQNCAOO 


IKQSRG 




IKQBFBOO 


IKQINT 


IKQPFO00 


IKQSRT 




IKQBFCOO 


IKQIXEOO 


IKQRCLOO 


IKQSRU 




IKQBLD 


IKQIXFOO 


IKQRQA 


IKQUPD 




IKQCASOO 


IKQRQB 


IKQUPG 


IKQVFY 




IKQCIR 


IKQIXSOO 


IKQRQC 


IKQVSM 




IKQCISOO 


IKQJRN 


IKQRRP 






IKQERH 


IKQKRD 


IKQRTV 






IKQERX 


IKQLCD 


IKQSCN 






IKQGNXOO 


IKQLCN 


IKQSFT 






IKQGPT 


IKQLCP 






IKQVRT 


IKQVRT 








IKQVSCAT 


IKQSCAT 








IKQVSTM 


IKQSTM 








IKQVTMS 


IKQTMSD IKQTMSF 






$$BACLOS 


$$BACLOS 








$$BCLCRA 


$$BCLCRA 








$$BCVSAM 


$$BCVSAM 








$$BCVS02 


$$BCVS02 








$$BCVS03 


$$BCVS03 








$$BCVS04 


$$BCVS04 








$$BJIBFF 


$$BJIBFF 








$$BJIBOO 


$$BJIB00 








$$BODADE 


$$BODADE 








$$BODADS 


$$BODADS 








$$BOVSAM 


$$BOVSAM 








$$BOVS01 


$$BOVS01 








$$BOVS03 


$$BOVS03 








$$BTCLOS 


$$BTCLOS 
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IIP Phase-to-Module Index 



The core image library contains the ISAM Interface Program phases, 
identifiable by the first three characters IIP or $$B. Packaged Within the 
phases are the IIP modules. The following list includes the phase names 
and the names of the modules included within each phase. 



Phase name 


Module name(s) 


$$BOCISC 


IIPBMROO 


IIPCLOSE 


IIPCLSOO 


IIPOPEN 


IIPOPN00 


IIPPROC 


IIPPRCPR 




IIPPRCMR 


IIPAMDTF 


IIPAMTOO 



Figure 4.2 



IIP phase-to-module index 



4.4 DOS/VS LIOCS Volume 4 



Component Index 



VSAM is logically grouped into components, each of which consists of 
several modules. This index (Figure 4.3) lists these components in the 
following order: catalog, control block manipulation, open close EOV, 
DADSM, ISAM interface, record management, and service aids. 



Component Module name 



Module function 



Catalog IGGOCLAB Act as switching station for various catalog 

routines 
IGGOCLAC 1 Check whether VSAM master catalog is open 

IGGOCLAD 1 Open VSAM master catalog 

IGGOCLAE 2 Open and create VSAM catalog and write 

self-describing catalog records 
IGGOCLAF Delete VSAM catalog 

IGGOCLAG Perform VSAM catalog I/O subfunctions 

IGGOCLAH Search VSAM catalog for required entry 

IGGOCLAJ 3 Build data and index entries and allocate space 

IGGOCLAK 3 Build data and index entries and construct fields 

in records 
IGGOCLAL 4 Perform general Define processing 

IGGOCLAN 4 Perform Define processing and construct cluster 

entry 
IGGOCLAP 4 Perform Define processing and check AMDSBs, 

volume lists, and space parameters 
IGGOCLAQ 5 Define VSAM data space 

IGGOCLAR 6 Initialize for VSAM space suballocation 

IGGOCLAS 2 Define catalog, allocate physical space, and 

initialize preliminary records 
IGGOCLAT Act as Access Method Services request dispatch- 

er to catalog functions 
IGGOCLAU 6 Suballocate VSAM space 

IGGOCLAV 7 Modify VSAM catalog fields 

IGGOCLAW 7 Add new VSAM catalog fields 

IGGOCLAX 7 Alter VSAM catalog fields 

IGGOCLAY 7 " 8 Initialize and scan catalog parameter list 

IGGOCLAZ 8 Extract VSAM catalog fields 

IGG0CLA6 5 Define VSAM space 

IGG0CLA7 9 Delete an entry from catalog and, if a unique 

data set on more than one volume, mount other 

volume and delete an entry from catalog for 

that volume 



IGGOCLAC and IGGOCLAD are related master catalog open processing modules. 
IGGOCLAE and IGGOCLAS are related Define (catalog build and open) modules. 
IGGOCLAJ, IGGOCLAK, and IGG0CLA8 are related Define modules. 
IGGOCLAL, IGGOCLAN, IGGOCLAP, IGGOCLBX, and IGGOCLBY are related 
modules commonly known as the Define routine. 

5 IGGOCLAQ and IGG0CLA6 are related Define space modules. 

6 IGGOCLAR and IGGOCLAU are related space suballocation modules. 

7 IGGOCLAV, IGGOCLAY, IGGOCLBA, IGGOCLAW, IGGOCLAX, IGGOCLBW, 
IGGOCLBT and IGGOCLBS are related modules commonly known as the Modify 
routine. 

8 IGGOCLAZ, IGGOCLAY, and IGGOCLBA are related modules commonly known 
as the Extract routine. 

9 IGGOCLBG, IGG0CLA7 and IGGOCLX are related delete catalog entry modules. 

10 IGGOCLBD, IGGOCLBE, IGGOCLBN, and IGGOCLCD are related Alter process- 
ing modules. 



Figure 4.3 



Component index (part 1 of 5) 



Section 4. Directory 4.5 



Component Module name 


Module function 


Catalog IGG0CLA83 


Perform Define processing and free storage 




resources 


IGGOCLBA 7 "* 


Test VSAM catalog fields 


IGGOCLBB* 


Extend VSAM data sets 


IGGOCLBC 9 


Initialize for extending VSAM data sets 


IGGOCLBD™ 


Alter an entry in catalog except when processing 




volumes 


IGGOCLBE™ 


Alter a volume entry and add data set directory 




to volume entry 


IGGOCLBF 


Release space to catalog 


IGGOCLBG 9 


Delete an entry from catalog 


IGGOCLBH 


Define a non-VSAM entry in VSAM catalog 


IGGOCLBL 


Delete a VSAM data space, mount volume, 




process F4 DSCBs, remove data from volume 




record, and scratch DASD space 


IGGOCLBM 


Check authorization of catalog user, prompt 




terminal, and compare password 


IGGOCLBN™ 


Remove volumes for Alter processing and 




remove data set directories from volume entry 


IGGOCLBQ 


List contents of catalog 


IGGOCLBR 


Perform bit manipulation against VSAM space 




bit map 


IGGOCLBS 7 


Retrieve derived VSAM catalog fields 


IGGOCLBT 7 


Modify derived VSAM catalog fields 


IGGOCLBU 


Read and/or write F4 DSCBs 


IGGOCLBW 7 


Modify VSAM catalog by deleting or inserting 




fields 


IGGOCLBX 4 


Define data set entries and calculate size 


IGGOCLBY* 


Define data set entries and calculate space 


IGGOCLB8 


Back-out Define processing and restore allocated 




space 


IGGOCLCA 


Define alternate index 


IGGOCLCB 


Release function 


IGGOCLCD 


CMS alter (4th module) 


IGGOCLCG 


I/O subroutine (2nd module) 


IGGOCLCL 


CMS delete space (2nd module) 


IGGOCLCO 


Open catalog recovery area 


IGGOCLCP 


Define path 


IGGOCLCR 


Define CRA (first module) 


IGGOCLCS 


Define CRA (second module) 


IGGOCLCX 


CMS delete (3rd module) 


IGGOCLCY 


CMS define (6th module) 


IGGOCLC9 


Act as general interface and build CCA 


IKQDCN 


Define console file 


IKQDNT 


Define device name and characteristics table 


IKQSCAT 


Display catalog information 


IKQVDTPE 


Catalog device type and label cylinder routine 


CB Manip. IKQBRP 


Build VSAM resource pool 


IKQDRP 


Delete VSAM resource pool 


IKQGEN 


Build ACB, RPL, or EXLST 


IKQTMSD 


Test, modify, or display ACB, RPL, or EXLST 




(with diagnosis of input) 


IKQTMSF 


Test, modify, or display ACB, RPL, or EXLST 




(without diagnosis of input) 


IKQVRT 


VSAM Shared Resource Table 
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Component index (part 2 of 5) 



4.6 DOS/VS LIOCS Volume 4 



Component Module name 


Module function 


O/C/EOV IKQCLCAT 


Update permanent data set information in the 




catalog 


IKQCLO 


Disconnect a user's program from a VSAM data 

set 

Alternate index clean up 


IKQCLOCL 


IKQCLOVY 


Alternate index evaluation 


IKQEDX 


Extend an EDB when the control blocks need to 




reflect additional space 


O/C/EOV IKQEOV 


Mount a volume when the required volume is 




not mounted 


IKQJIBSM 


Summarize extents in EDB chain so JIBs can be 




built 


IKQLAB 


Read label information cylinder record 




(DLBL/EXTENT statements) 


IKQLASFT 


Map a look-aside file table that contains all data 




sets that are open 


IKQLASMD 


Ascertain if the data set is currently open 


IKQNEX 


Get a new extent when space is needed 


IKQOCMSG 


Open/Close message routine 


IKQOPN 


Connect a user's program with a VSAM data set 


IKQOPNAI 


Alternate index initialization 


IKQOPNCT 


Open a catalog by means of special processing 


IKQOPNDO 


Clean up after a failure to open a data set 


IKQOPNHC 


Locate data set information in catalog 


IKQOPNNC 


Next cluster 


IKQOPNOV 


Build ARDB, EDB, LPMB and call IKQJIBSM 




for volume and extent processing 


tfKQOPNRD 


Reset reusable data set 


IKQOPNRP 


Attach data set to resource pool 


IKQOPNUC 


User catalog open 


IKQOPNUS 


Alternate index upgrade set determination 


IKQRBA 


Update the catalog 


IKQSTM 


Storage management 


$$BACLOS 


Automatic close 


$$BCLCRA 


Mark deleted CRA 


$$BCVSAM 


Provide an interface between DOS/VS and 




VSAM when a data set is closed 


$$BCVS02 


Provide common exit processing for VSAM 




modules 


$$BOVSAM 


Provide an interface between DOS/VS and 




VSAM when a data set is opened 


$$BOVS01 


Provide an interface to the DOS/VS message 




writer to get a volume mounted for open or 




catalog/DADSM processing 


$$BOVS03 


Delete or build JIBs for VSAM 


$$BTCLOS 


Provide an interface between DOS/VS and 




VSAM when a data set is temporarily closed 


DADSM IKQALLOO 


Create a new Fl DSCB (and F3 DSCBs) from 




the system label cylinder record 


IKQCOV00 


Check for overlap on existing files before 




allowing new DSCB to be written 


IKQPOP00 


Build Fl and any needed F3 DSCBs from label 




cylinder record (subfunction or IKQALLOO) 


IKQRDSOO 


Read VTOC records either by key or disk 




address 


IKQRENOO 


Rename a specified Fl DSCB to a new specified 




name 
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Component index (part 3 of 5) 



Section 4. Directory 4.7 



Component Module Name 


Module Function 


IKQSCROO 


Remove an Fl DSCB (and any associated F3 




DSCBs) from the VTOC 


IKQVTCOO 


Order creation or deletion of JIBs in a DASD- 




file protected system 


IKQWDSOO 


Write VTOC records either by key or disk 




address 


$$BODADE 


Interface to DADSM from the DOS/VS 




message writer 


$$BODADS 


Interface to the DOS/VS message writer from 




DASDM 


$$BJIBFF 


Delete a JIB in a DASD-file protected system 


$$BJIB00 


Create a JIB in a DASD-file protected system 


ISAM IIPAMTOO 


Map the AMDTF table 


interface IIPBMROO 


Issue an error message if a failure occurs when 




an ISAM program is trying to open or close a 




VSAM data set 


IIPCLSOO 


Close a VSAM data set for an ISAM program 


IIPIIPOO 


Link-edit phase and include statements 


IIPOPNOO 


Open a VSAM data set for an ISAM program 


IIPPRCMR 


Issue error messages and cancel tasks in case an 




error occurred in IIP; issue a VSAM CLOSE for 




the data set if an error occurred during function 




other than Open or Close 


IIPPRCPR 


Transform an ISAM request into an equivalent 




VSAM request 


Rec. Mgmt IKQAIX 


Alternate index routine 


IKQBFAOO 


Control buffers and their contents 


IKQBFBOO 


LSR buffer management 


IKQBFCOO 


Track-hold control 


IKQBLD 


Build RDFs for all changes to a control interval 


IKQBRP 


Build VSAM resource pool 


IKQCASOO 


Split a control area or high-level index record 


IKQCIR 


CNV space reclamation routine 


IKQCISOO 


Split a control interval or get a new control 




interval 


IKQDRP 


Delete VSAM resource pool 


IKQERH 


Handle errors for record management modules 


IKQERX 


Process error exits for record management 




modules 


IKQGNXOO 


Get next buffer and read records into buffers in 




anticipation of further user request processing 


IKQGPT 


Handle GET or POINT user requests 


IKQIOAOO 


Build channel programs for READs and 




WRITEs and process I/O 


IKQIOBOO 


Analyze hardware errors encountered in 




IKQIOAOO 


IKQINT 


PLH initialization for LSR processing 


IKQIXEOO 


Make index entries and create high-level indexes 


IKQIXFOO 


Balance section entries in index record 


IKQIXSOO 


Search the index for desired key 


IKQJRN 


Journad Exit 


IKQKRD 


Initialize for key-range requests 


IKQLCD 


Locate a specific record by key or RBA 


IKQLCN 


Locate next sequential (logical or physical) 




record 


IKQLCP 


Get backwards function (locate previous) 
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Component index (part 4 of 5) 



4.8 DOS/VS LIOCS Volume 4 



Component Module Name 


Module Function 


IKQMDY 


Modify a control interval (insert, update, or 




delete) 


IKQNCAOO 


Construct a new control area 


IKQPBFOO 


Complete I/O processing already initiated 




preparatory to mounting another volume 


IKQPFO00 


Format a data control area or index control 




interval and write SEOF 


IKQRCLOO 


Clean up record management requests before a 




VSAM CLOSE can be completed 


IKQRQA 


Analyze record management requests 


IKQRQB 


Complete analysis of record management 




requests 


IKQRQC 


PLH assignment for AIX processing (LSR) 


IKQRRP 


Relative record preformat 


IKQRTV 


Retrieve a specific record for caller 


IKQSCN 


Scan a control interval for a specific record 


IKQSFT 


Shift data in a control interval 


IKQSPMOO 


Apportion data or index space within extents 


IKQSRG 


Spanned record GET 


IKQSRT 


Insert a record in a control interval 


IKQSRU 


Spanned record update 


IKQUPD 


Update a record in a control interval 


IKQUPG 


Alternate index upgrade routine 


IKQVFY 


Reestablish high-used and high-key RBAs 




(VERIFY function) 


IKQVSM 


Perform initial processing for all record manage- 




ment requests and activate the modules that 




perform the operations 


Service IKQCLEAN 


DADSM utility 


Aids IKQDUMP 


Dump non-catalog control blocks 


IKQDUMPC 


Dump catalog control blocks 


IKQVEDA 


Enable and disable VSAM snap dump routine 


$$BCVS03 


Load a phase 


$$BCVS04 


I/O routine for IKQVEDA 
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Component index (part 5 of 5) 



Module Directory 



The module directory (Figure 4.4) is organized alphabetically by symbolic 
module name. It lists the descriptive name, the component to which that 
module belongs, the method of operation diagram and program structure 
figure numbers in which that module is referenced, and the external entry 
point(s). 



Section 4. Directory 4.9 



Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IGGOCLAB 


Catalog driver 


Catalog 


DB, DC 


5 


IGGPACDV 

IGGPRPLF 

IGGPRPLM 


IGGOCLAC 


Master catalog search 


Catalog 


DB 


5 


IGGPMCO 


IGGOCLAD 


Master catalog open 


Catalog 


DB, EE 


5 


IGGPMC02 


IGGOCLAE 


Define catalog open and build 


Catalog 


EE, EH 




IGGPDCOC 
IGGPMEBM 
IGGPDCBO 


IGGOCLAF 


Delete catalog 


Catalog 


EH, EO 


5 


IGGPDELC 
IGGPEMIO 
IGGPEMSG 
IGGPSDSP 


IGGOCLAG 


Catalog I/O subfunctions 


Catalog 


DB, DC, 

DG-DL, 

EC-EH, 

EK-EP, 

ER 


5 


IGGPGET 

IGGPISCI 

IGGPPUPC 

IGGPPAD 

IGGPPDE 

IGGPPDEC 

IGGPAOCI 

IGGPAXCI 

IGGPCCCR 

IGGPRCCR 


IGGOCLAH 


Search catalog 


Catalog 


DB-DC 


5 


IGGPSCAT 
IGGPSCA 


IGGOCLAJ 


Define and build data and index entries 


Catalog 


EC-ED,EI 


- 


IGGPDBDI 
IGGPDEXD 


IGGOCLAK 


Complete define of an entry 


Catalog 


ED 


- 


IGGPDCMB 


IGGOCLAL 


CMS define, 1st module 


Catalog 


EC, EO 


5 


IGGPDEF 

IGGPDTIM 

IGGPDCAV 

IGGPDDEP 

IGGPDCDE 

IGGPDWAI 

IGGPOSTY 


IGGOCLAN 


CMS define, 2nd module 


Catalog 


EC-EF,EI, 
EM,EP 




IGGPDSCB 

IGGPDBSF 

IGGPDRDA 

IGGPDCCE 

IGGPDUND 


IGGOCLAP 


CMS define, 3rd module 


Catalog 


EC,EE 


- 


IGGPDCDA 


IGGOCLAQ 


Catalog define space 


Catalog 


ED-EE£G 


5 


IGGPDEFS 


IGGOCLAR 


Suballocate 


Catalog 


DH, DJ, 
ED, EE, 
EH, EK 




IGGPSALL 


IGGOCLAS 


VSAM catalog definition processing 


Catalog 


EC, EE, 
EH 


- 


IGGPDEFC 
IGGPDCRC 


IGGOCLAT 


CMS driver 


Catalog 


DB, EE 


5 


IGGPCDVR 


IGGOCLAU 


Suballocation 


Catalog 


DJ 


- 


IGGPSALS 
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Module directory (part l t of 7) 



4.10 DOS/VS LIOCS Volume 4 



Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IGGOCLAV 


Modify catalog field 


Catalog 


DB, DG, 
DH, DJ, 
DL, ED-EH, 
EK, EM 

EN, EP, ER 


3,5 


IGGPMOD 
IGGPUPD 
IGGPSGOP 
IGGPDEL2 


IGGOCLAW 


Add group occurrence (modify) 


Catalog 


DG, DK, 
DL 




IGGPADGO 
IGGPGNEX 
IGGPIGOP 
IGGPPREC 


IGGOCLAX 


Alter catalog field 


Catalog 


DG, DL 




IGGPALT2 

IGGPEXPD 

IGGPSHNK 

IGGPDGOP 

IGGPMGO 

IGGPDGO 


IGGOCLAY 


Scan CPL 


Catalog 


DB, DL 


5 


IGGPSCNC 


IGGOCLAZ 


Extract catalog field 


Catalog 


DB, DD 
DE, DH 
DJ, EK-EP 


5 


IGGPEXT 
IGGPLOC 


IGGOCLA6 


CMS define space (part 2) 


Catalog 


EG, EH 




IGGPDFS2 
IGGPF4PR 
IGGPVMTV 


IGGOCLA7 


CMS delete (part 2) 


Catalog 


EM, EP 




IGGPVMSC 
IGGPDUSC 
IGGPDEMV 
IGGPDVMV 


IGGOCLA8 


Define clean up 


Catalog 


ED 


- 


IGGPDFRS 


IGGOCLBA 


Tests 


Catalog 


DB, DE, 
DG, DK 
DL 


5 


IGGPTSTS 

IGGPGVAL 

IGGPGREC 


IGGOCLBB 


Update extend 


Catalog 


DB, DH 


- 


IGGPUPDE 


IGGOCLBC 


Update extend initialization 


Catalog 


DH 


- 


IGGPINIT 
IGGPSVOL 


IGGOCLBD 


Catalog alter processing 


Catalog 


EK 


5 


IGGPALT 


IGGOCLBE 


Alter volume processing 


Catalog 


EK 


- 


IGGPALVL 
IGGPALEC 


IGGOCLBF 


Subscratch 


Catalog 


EM, EP 


- 


IGGPSSCR 


IGGOCLBG 


Delete 


Catalog 


EM, EP 


5 


IGGPDEL 

IGGPDLDS 

IGGPDEXA 

IGGPDEXP 

IGGPDLXT 


IGGOCLBH 


Define non-VSAM data set 


Catalog 


EF 


5 


IGGPDEFA 


IGGOCLBL 


Delete space 


Catalog 


EN 


5 


IGGPDELS 


IGGOCLBM 


Check authorization 


Catalog 


DB, DD, EL 


5 


IGGPCKAU 


IGGOCLBN 


Catalog alter, remove volume 
processing 


Catalog 


EK 


- 


IGGPALVR 
IGGPALSV 


IGGOCLBQ 


LISTCAT processing 


Catalog 


EL 


5 


IGGPLSTC 


IGGOCLBR 


Suballocate bit mask handler 


Catalog 


DJ 


- 


IGGPBMR 


IGGOCLBS 


Volume entry translation 


Catalog 


DK 


- 


IGGPXVAL 
IGGPXEXT 
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Module directory (part 2 of 7) 



Section 4. Directory 4. 1 1 



Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IGGOCLBT 


Modify volume entry translation 


Catalog 


DL 


- 


IGGPXMOD 
IGGPXLT2 
IGGPXEL2 
IGGPXDGO 


IGGOCLBU 


Catalog read/write F4 DSCB 


Catalog 


EG, EH, 

EN, EO 


- 


IGGPF4RD 
IGGPF4WR 


IGGOCLBW 


Delete/insert (modify) 


Catalog 


DL 


- 


IGGPDEIN 


IGGOCLBX 


CMS define, 4th module 


Catalog 


EC, ED, EI 




IGGPDSPC 
IGGPDALR 
IGGPDSPF 


IGGOCLBY 


CMS define, 5th module 


Catalog 


ED 


- 


IGGPDRSP 


IGGOCLB8 


Define, space recovery 


Catalog 


- 


- 


IGGPDFBO 
IGGPCNBO 


IGGOCLCA 


Define AIX 


Catalog 


EI, ER 


5 


IGGPAIX 
IGGPPRPW 
IGGPCKEN 
IGGPBOUT 


IGGOCLCB 


Release function 


Catalog 


ED 


3 


IGGPRELE 
IGGPPTBF 
IGGPCLBF 
IGGPGTBF 


IGGOCLCD 


CMS alter, 4th module 


Catalog 


EI, EP, ER 


- 


IGGPUPG 
IGGPALY 


IGGOCLCG 


VSAM catalog I/O 
subroutine (2nd load) 


Catalog 


EH 




IGGPRBAP 

IGGPIORA 

IGGPCHAC 

IGGPTRPL 

IGGPXIO 


IGGOCLCL 


CMS delete space 
(2nd module) 


Catalog 


EN 


- 


IGGPDLSF 
IGGPDVSC 


IGGOCLCO 


Open CRA 


Catalog 


EH, EN 


' 


IGGPCRAO 
IG'GPGLUB 
IGGPSCAX 


IGGOCLGP 


Define path 


Catalog 


EJ 


5 


IGGPPATH 


IGGOCLCR 


Define CRA (1st module) 


Catalog 


EH 




IGGPCADR 
IGGPCRBO 
IGGPBCRA 
IGGPCRDI 


IGGOCLCS 


Define CRA (2nd module) 


Catalog 


EH 


- 


IGGPCRVL 
IGGPPRDS 


IGGOCLCX 


CMS delete (3rd module) 


Catalog 


EM, EN, EP 




IGGPDELX 
IGGPDPTH 
IGGPDELP 
IGGPDAIX 
IGGPDELY 
IGGPDELO 


IGGOCLCY 


CMS define (6th module) 


Catalog 


ED 


' 


IGGPDCCO 

IGGPDPBI 

IGGPDMOP 
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Module directory (part 3 of 7) 



4.12 DOS/VS LIOCS Volume 4 



Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IGG0CLC9 


Catalog first load 


Catalog 


DB 


3, 5, 10 


IGG0CLC9 


IIPAMTOO 


AMDTF (control block) 


ISAM 
interface 


- 


- 


IIPAMTOO 


IIPBMROO 


$$B message routine 


ISAM 
interface 


CH 


4 


IIPBMROO 


IIPCLSOO 


Close 


ISAM 

interface 


CG, CH 


4 


IIPCLSOO 


IIPIIPOO 


Phase and include statements 


ISAM 
interface 


- 


- 




IIPOPNOO 


Open 


ISAM 

interface 


CB, CH 


4 


IIPOPNOO 


IIPPRCMR 


Processor (messages) 


ISAM 
interface 


CH 


4 


IIPPRCMR 


IIPPRCPR 


Processor (processing) 


ISAM 
interface 


CC-CF, CH 


4 


IIPPRCPR 


IKQAIX 


AIX routine 


Rec. Mgmt. 


GC 




IKQAIX 


IKQALLOO 


Allocate data spaces 


DADSM 


EG, FB 


6 


IKQALLOO 


IKQBFAOO 


Buffer manager 


Rec. Mgmt. 


GQ, GU, 
HI-HN, IA 


9, 14 


IKQBFAOO* 


IKQBFBOO 


LSR buffer manager 


Rec. Mgmt, 


HV-HZ 


9, 14 


IKQBFBOO* 


IKQBFCOO 


Track hold control 


Rec. Mgmt. 


HI 


14 


IKQBFCOO 


IKQBLD 


RDF-build, non-spanned records 


Rec. Mgmt. 


GP 


9, 12 


IKQBLD 


IKQBRP 


Build resource pool 


CB Manip. 


AH 


- 


IKQBRP 


IKQCASOO 


Control area split 


Rec. Mgmt. 


GT, GZ 


10 


IKQCASOO* 


IKQCIR 


CNV space reclamation routine 


Rec. Mgmt. 


GT, GU 


10 


IKQCIR 


IKQCISOO 


Control interval split 


Rec. Mgmt. 


GT, IA 


9, 10 


IKQCISOO 


IKQCLCAT 


Close catalog interface function 


O/C/EOV 


GX, IA 


15 


IKQCLCAT 


IKQCLEAN 


VTOC maintenance utility 


Service aids 




- 


IKQCLEAN 


IKQCLNLK 


Phase and include statement 


VSAM include 






IKQCLEAN 


IKQCLO 


Close function 


O/C/EOV 


IA 


15 


IKQCLO00 


IKQCLOCL 


AIX clean up 


O/C/EOV 






IKQCLOCL 


IKQCLOVY 


AIX evaluation 


O/C/EOV 






IKQVCLOV 


IKQCOVOO 


Check for overlapping extents 


DADSM 


FG, FH 


6 


IKQCOVOO 


IKQDCN 


DTF console file 


Catalog 


DD 




IKQDCN 


IKQDNT 


Device name table 


Catalog 


EF 


- 


IKQDNT 


IKQDRP 


Delete resource pool 


CB Manip. 


AI 


- 


IKQDRP 


IKQDUMP 


Block dump 


Service aids 




- 


IKQDUMP 
IKQDUMPP 


IKQDUMPC 


Dump catalog control blocks 


Service aids 




- 


IKQDUMPC 


IKQEDX 


EDB extend 


O/C/EOV 


HP, HS 


11 


IKQEDX00 


IKQEOV 


Mount volume 


O/C/EOV 


HP, HR 


14 


IKQEOV00 


IKQERH 


Error handler 


Rec. Mgmt. 


HF 


7-9, 12, 13 


IKQERH 


IKQERX 


VSAM error exit 


Rec. Mgmt. 


HG 


7-9, 12, 13 


IKQERX 


IKQGEN 


GENCB: Build a new control block 


CB Gener. 


AC 


2 


IKQGEN00 



* For further entry points, see Figure 4.6 
Figure 4.4 Module directory (part 4 of 7) 



Section 4. Directory 4.13 



Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IKQGNXOO 


Get next buffer and read ahead 


Rec. Mgmt. 


GQ 


7-9,12 


IKQGNXOO 


IKQGPT 


Get/Point 


Rec. Mgmt. 


GE-GF 


7,8 


IKQGPT 


IKQINT 


PLH initialization 


Rec. Mgmt. 




9 




IKQIOA00 


I/O manager 


Rec. Mgmt. 


HO-HQ, HT 


14 


IKQIOA00* 


IKQIOBOO 


I/O manager, I/O error analysis 


Rec. Mgmt. 


- 


14 


IKQIOBOO 
IKQIOBIO 


IKQIXEOO 


Index enter 


Rec. Mgmt. 


GY 


10 


IKQIXEOO 
IKQIXE20 


IKQIXFOO 


Index format 


Rec. Mgmt. 


GU, GW 


10 


IKQIXFOO 


IKQIXSOO 


Index search 


Rec. Mgmt. 


HB 


7-9, 13 


IKQIXSOO 


IKQJRN 


JRNAD exit 


Rec. Mgmt. 


GB, HU 


8-12 


IKQJRN 


IKQJIBSM 


Summarize JIBs for EDB chain 


O/C/EOV 


BA, IA 


3, 14, 15 


IKQJIBSM 


IKQKRD 


Key range determination routine 
(KRDR) 


Rec. Mgmt. 


GO 


9 


IKQKRD 


IKQLAB 


Look at label cylinder 


O/C/EOV 


BA, FB 


3,6 


IKQLAB 


IKQLASFT 


Look-aside file table 


O/C/EOV 


BA 


- 


IKQLASFT 


IKQLASMD 


Look-aside module 


O/C/EOV 


BA, BD, EM 
EO, EP 


3, 15 


IKQLASMD 


IKQLCD 


Locate direct 


Rec. Mgmt. 


GF, GN 


7-10 


IKQLCD 


IKQLCN 


Locate next 


Rec. Mgmt. 


GL 


7-9, 12 


IKQLCN 


IKQLCP 


Locate previous 


Rec. Mgmt. 


GM, GR 


8 


IKQLCP 


IKQMDY 


Modify 


Rec. Mgmt. 


GI, GO 


9, 12 


IKQMDY 


IKQNCAOO 


Get new control area 


Rec. Mgmt. 


GT, GX 


10 


IKQNCAOO 


IKQNEX 


Get new extent 


O/C/EOV 


HA, HE 


9 


IKQNEX00 


IKQOCMSG 


Open/Close message routine 


O/C/EOV 


HF 




IKQOCMSG 


IKQOPN 


Open function 


O/C/EOV 


BA 


3 


IKQOPN 


IKQOPNAI 


Alternate index initialization 


O/C/EOV 


BA 


3 


IKQOPNAI 


IKQOPNCT 


Open catalog 


O/C/EOV 


BA 


3 


IKQOPNCT 


IKQOPNDO 


Clean up after open failure 


O/C/EOV 


BA 


3 


IKQOPNDO 


IKQOPNHC 


Locate data set information in catalog 


O/C/EOV 


BA 


3 


IKQOPNHC 


IKQOPNNC 


Next cluster 


O/C/EOV 


BA,BC 


3 


IKQOPNNC 


IKQOPNOV 


Open volume extent 


O/C/EOV 


BA 


3 


IKQOPNOV 


IKQOPNRD 


Reset reusable data set 


O/C/EOV 


BA 


3 


IKQOPNRD 


IKQOPNRP 


Attach data set to resource pool 


O/C/EOV 


BB 


3 


IKQOPNRP 


IKQOPNUC 


User catalog 


O/C/EOV 


BA 


3 


IKQOPNUC 


IKQOPNUS 


Alternate index upgrade set 
determination 


O/C/EOV 


BA 


3 


IKQOPNUS 


IKQPBFOO 


Purge buffer 


Rec. Mgmt. 


HR, HT 


14 


IKQPBFOO 


IKQPFO00 


Format data CA or index CNV 


Rec. Mgmt. 


HA, HC, IA 


9, 15 


IKQPFO00 


IKQPOP00 


Build DSCBs 


DADSM 


FB, FE 


6 


IKQPOP00 


IKQRBA 


Update catalog for sharing 


O/C/EOV 


GU, HA, HD 


10 


IKQRBA00 



* For further entry points, see Figure 4.6 
Figure 4.4 Module directory (part 5 of 7) 
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Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IKQRCLOO 


Record management close 


Rec. Mgmt. 


HH, IA 


15 


IKQRCLOO 


IKQRDSOO 


Read DSCBs 


DADSM 


EG, EN, 
FB-FD, FF-FTn 


6 

[ 


IKQRDSOO 


IKQRENOO 


Rename data set 


DADSM 


EK, FC 


6 


IKQRENOO 


IKQRQA 


Request analyzer 1 


Rec. Mgmt. 


GB 


7-13, 15 


IKQRQA 


IKQRQB 


Request analyzer 2 


Rec. Mgmt. 


GB 


7-13, 15 


IKQRQB 


IKQRQC 


Request analyzer 3 


Rec. Mgmt. 


GB 


7-13, 15 


IKQRQC 


IKQRRP 


Relative record preformat 


Rec. Mgmt. 


GV, HH 


10 


IKQRRP 
IKQRRP20 


IKQRTV 


Retrieve 


Rec. Mgmt. 


GF 


8 


IKQRTV 


IKQSCAT 


SHOWCAT: Display catalog 
information 


Catalog 


ES 


- 


IKQSCAT 


IKQSCN 


Scan control interval 


Rec. Mgmt. 


GG, GN 


7-9 


IKQSCN 


IKQSCROO 


Scratch DSCBs 


DADSM 


EM-EP, 
FD, FE 


6 


IKQSCROO 


IKQSFT 


Shift 


Rec. Mgmt. 


GW, GZ 


9, 10, 
12, 15 


IKQSFT 


IKQSPMOO 


Manage space within extents 


Rec. Mgmt. 


HA 


11 


IKQSPMOO 


IKQSRG 


Spanned record GET 


Rec. Mgmt. 


GF, GJ 


8 


IKQSRG 


IKQSRU 


Spanned record UPDATE 


Rec. Mgmt. 


GK 


9 


IKQSRU 


IKQSRT 


Insert 


Rec. Mgmt. 


GG 


9 


IKQSRT 


IKQSTM 


Storage manager 


O/C/EOV 


BA 


3 


IKQSTM 


IKQTMSD 


MODCB, SHOWCB, TESTCB: 
display, or test a control block 


Modify, CB. Manip. 


AD-AG 


2 


IKQTMSD 


IKQTMSF 


MODCB, SHOWCB, TESTCB: 
display, or test a control block 


Modify, CB. Manip. 


AD-AG 


2 


IKQTMSF 


IKQUPD 


Update 


Rec. Mgmt. 


GH, GI 


9, 12 


IKQUPD 


IKQUPG 


Alternate index upgrade routine 


Rec. Mgmt. 


GD 


9 


IKQUPG 


IKQVDTPE 


Device type routine 


Catalog 


ED, EE, 
EG, EO 


3 


IKQVDTPE 


IKQVEDA 


Enable and disable VSAM 
diagnostic aids 


Service Aids 






IKQVEDA 


IKQVFY 


Verify 


Rec. Mgmt. 


GS 


13 


IKQVFY 


IKQVSMLK 


Phase and include statements 


VSAM 


- 


- 


- 


IKQVSM 


VSAM request driver 


Rec. Mgmt. 


GB, IA 


7-9, 

12, 13, 15 


IKQVSM 



Figure 4.4 



Module directory (part 6 of 7) 



Section 4. Directory 4.15 



Module 
name 


Descriptive name 


Component 


Diag.# 


Structure 
Figure 3.x 


External 
entry points 


IKQVTCOO 


Open/Close VTOC 


DADSM 


EG, EN, 
FB-FE, FI 


6 


IKQVTCOO 


IKQWDSOO 


Write DSCBs 


DADSM 


EN, FB-FE, 
FG 


6 


IKQWDSOO 


$$BACLOS 


Automatic close 


O/C/EOV 


IA 




$$BACLOS 


$$BCLCRA 


Mark deleted CRA 


Catalog 


EN 




$$BCLCRA 


$$BCVSAM 


Close interface 


O/C/EOV 


IA 


15 


$$BCVSAM 


$$BCVS02 


Common exit 


O/C/EOV 


BA, IA 


3 


$$BCVS02 


$$BCVS03 


LKMOD routine 


Service aids 




- 


$$BCVS03 


$$BCVS04 


I/O routine for IKQVEDA 


Service aids 




- 


$$BCVS04 


$$BJIBFF 


Delete JIB 


DADSM 


FI 


6 


$$BJIB00 


$$BJIBOO 


Create JIB 


DADSM 


FI 


6 


$$BJIB00 


$$BODADE 


End of message interface 


DADSM 


- 


3, 6, 14 


$$BODADE 


$$BODADS 


Start of message interface 


DADSM 


FE 


6 


$$BODADS 


$$BOVSAM 


Open interface 


O/C/EOV 


BA 


3, 14 


$$BOVSAM 


$$BOVS01 


Catalog/DADSM interface to mount 
volume 


O/C/EOV 


BA, EG, 
EM-EP, 
FB-FE, HR 


3,6 


$$BOVS01 


$$BOVS03 


Delete/build JIBs for VSAM 


O/C/EOV 


BA 


3, 14, 15 


$$BOVS03 


$$BTCLOS 


TCLOSE interface 


O/C/EOV 


IA 


15 


$$BTCLOS 



Figure 4.4 



Module directory (part 7 of 7) 



Routine Directory 



Some of the VSAM modules contain several routines which are listed 
alphabetically by the entry points along with the appropriate module. 
Figure 4.5 contains catalog management modules, Figure 4.6 record man- 
agement modules. 
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Entry point 


Module name 


Procedure description 


IGGPACDV 


IGGOCLAB 


Catalog management driver 


IGGPADGO 


IGGOCLAW 


Add group occurrence 


IGGPAIX 


IGGOCLCA 


Define AIX 


IGGPALEC 


IGGOCLBE 


Check for index or data and sequence set with 
data 


IGGPALSV 


IGGOCLBN 


Rename DSCBs for alter data set name function 


IGGPALT 


IGGOCLBD 


ALTER processing 


IGGPALT2 


IGGOCLAX 


ALTER catalog record's field value 


IGGPALVL 


IGGOCLBE 


ALTER: Volume processing 


IGGPALVR 


IGGOCLBN 


ALTER: Remove volume processing 


IGGPALY 


IGGOCLCD 


Get and initialize work area for upgrading/no- 
upgrading routine 


IGGPAOCI 


IGGOCLAG 


Assign contiguous control intervals 


IGGPAXCI 


IGGOCLAG 


Assign one control interval 


IGGPBMR 


IGGOCLBR 


Suballocate bit mask handler 


IGGPBOUT 


IGGOCLCA 


Backout AIX or path association group occur- 
rence 


IGGPCADR 


IGGOCLCR 


Build CRA 


IGGPCCCR 


IGGOCLAG 


Checkpoint the catalog control record (CCR) 


IGGPCDVR 


IGGOCLAT 


Catalog management services common process- 


IGGPCHAC 


IGGOCLCG 


ing 

Compute RBAs for next extent 


IGGPCKAU 


IGGOCLBM 


Check the caller's authorization to access the 
catalog record 


IGGPCKEN 


IGGOCLCA 


Check entry name and entry name of related 
object 


IGGPCLBF 


IGGOCLCB 


Clear buffer 


IGGPCNBO 


IGG0CLB8 


Remove candidate volume occurrences 


IGGPCRAO 


IGGOCLCO 


Open catalog recovery area (CRA) 


IGGPCRBO 


IGGOCLCR 


Back out volume record and reset TT-pointer 


IGGPCRVL 


IGGOCLCS 


Suballocate CRA and write initial CRA records 


IGGPDAIX 


IGGOCLCX 


Implicit delete AIX (for DEL cluster request) 


IGGPDALR 


IGGOCLBX 


Average logical record size FPL structure 
processing 


IGGPDBDI 


IGGOCLAJ 


DEFINE: Build the data set and index catalog 
records of a cluster 


IGGPDBSF 


IGGOCLAN 


Buffer size FPL structure processing 


IGGPDCAV 


IGGOCLAL 


Cross check and validity check 


IGGPDCBO 


IGGOCLAE 


Define space backout 


IGGPDCCE 


IGGOCLAN 


DEFINE: Build the cluster's catalog record 


IGGPDCCO 


IGGOCLCY 


Determination of data and index characteristics 


IGGPDCDA 


IGGOCLAP 


DEFINE Catalog processing (2 of 2) 


IGGPDCDE 


IGGOCLAL 


Date and entry name processing 


IGGPDCMB 


IGGOCLAK 


DEFINE: Completion (build the volume 
information group occurrence) 


IGGPDCOC 


IGGOCLAE 


DEFINE Catalog: Catalog open, build, and 
close 



Figure 4.5 External entry points of catalog management modules (part 1 of 4) 



Section 4. Directory 4.17 



Entry point 


Module name 


Procedure description 


IGGPDCRC 


IGGOCLAS 


Compute RBAs of data space 


IGGPDDEP 


IGGOCLAL 


Date and entry name processing 


IGGPDEF 


IGGOCLAL 


DEFINE common processing 


IGGPDEFA 


IGGOCLBH 


DEFINE non-VSAM processing 


IGGPDEFC 


IGGOCLAS 


DEFINE Catalog processing (1 of 2) 


IGGPDEFS 


IGGOCLAQ 


DEFINE Space processing 


IGGPDEIN 


IGGOCLBW 


Modify: Delete/insert processing 


IGGPDEL 


IGGOCLBG 


DELETE Cluster/non-VSAM processing 


IGGPDELC 


IGGOCLAF 


DELETE Catalog processing 


IGGPDELO 


IGGOCLCX 


Check if cluster or AIX data set is open 


IGGPDELP 


IGGOCLCX 


Delete path driver 


IGGPDELS 


IGGOCLBL 


DELETE Space processing 


IGGPDELX 


IGGOCLCX 


Delete AIX driver 


IGGPDELY 


IGGOCLCX 


Delete and upgrade set (for DEL cluster 
request) 


IGGPDEL2 


IGGOCLAV 


Delete a group occurrence 


IGGPDEMV 


IGG0CLA7 


DELETE: Extract the volume information group 
occurrence 


IGGPDEXA 


IGGOCLBG 


Build interface to extract cluster, AIX, or path 
associations 


IGGPDEXD 


IGGOCLAJ 


Delete work area 


IGGPDEXP 


IGGOCLBG 


Extract the password of a cluster or an AIX 


IGGPDFBO 


IGG0CLB8 


DEFINE: Space recovery 


IGGPDFRS 


IGG0CLA8 


Free unused and unneeded storage resources 


IGGPDFS2 


IGG0CLA6 


DEFINE Space: Build the space header, space 
escriptor group, and data set directory entry 
group occurrences 


IGGPDGO 


IGGOCLAX 


MODIFY: Delete group occurrence processing 


IGGPDGOP 


IGGOCLAX 


MODIFY: Delete group occurrence pointer 
processing 


IGGPDLDS 


IGGOCLBG 


Delete the space of the cluster or AIX 


IGGPDLSF 


IGGOCLCL 


Forced delete space 


IGGPDLXT 


IGGOCLBG 


Delete clean up routine (exit) 


IGGPDMOP 


IGGOCLCY 


Complete entry construction process 


IGGPDPBI 


IGGOCLCY 


Determine physical block size index value 


IGGPDPTH 


IGGOCLCX 


Implicit delete path (for DEL cluster or DEL 
AIX request) 


IGGPDRDA 


IGGOCLAN 


Regular define AMD SB processing 


IGGPDRSP 


IGGOCLBY 


DEFINE Cluster processing (5th module) 


IGGPDSCB 


IGGOCLAN 


DEFINE common processing (space calculations 
nd build the cluster catalog record) 


IGGPDSPC 


IGGOCLBX 


DEFINE Cluster processing (4th module) 


IGGPDSPF 


IGGOCLBX 


Space parameter FPL structure processing 


IGGPDSTY 


IGGOCLAL 


Security FPL structure checking 


IGGPDTIM 


IGGOCLAL 


DEFINE: Call the system timer 


IGGPDUND 


IGGOCLAN 


DEFINE: Undo the previous processing 


IGGPDUSC 


IGGOCLA7 


DELETE: Scratch the data space (format- 1 - 
identifier - DSCB) from the volume's VTOC 


IGGPDVMV 


IGG0CLA7 


DELETE: Mount and verify volumes 


IGGPDVSC 


IGGOCLCL 


Clean VTOC from VSAM spaces 


IGGPDWAI 


IGGOCLAL 


Work area initialization 


IGGPEMIO 


IGGOCLAF 


I/O error message writer 


IGGPEMSG 


IGGOCLAF 


Error message writer 


IGGPEXPD 


IGGOCLAX 


Expand a catalog record's variable-length field 


IGGPEXT 


IGGOCLAZ 


Extract processing 


IGGPF4PR 


IGG0CLA6 


Read format-4 DSCB and either set or reset 
time stamps, CRA pointer and ownership 



Figure 4.5 



External entry points of catalog management modules (part 2 of 4) 
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Entry point 


Module name 


Procedure description 


IGGPF4RD 


IGGOCLBU 


Read the foraiat-4 DSCB 


IGGPF4WR 


IGGOCLBU 


Write the format-4 DSCB 


IGGPGET 


IGGOCLAG 


Get catalog record: Call record management to 
retrieve a catalog record 


IGGPGLUB 


IGGOCLCO 


Get LUB index associated with CRA volume 


IGGPGNEX 


IGGOCLAW 


Get an available RAB and format a new catalog 
extension record 


IGGPGREC 


IGGOCLBA 


Retrieve a catalog record 


IGGPGVAL 


IGGOCLBA 


Locate a catalog record field 


IGGPIGOP 


IGGOCLAW 


Insert a group occurrence pointer 


IGGPINIT 


IGGOCLBC 


Update-Extend: Initialization 


IGGPIORA 


IGGOCLCG 


Error code analyzer 


IGGPISCI 


IGGOCLAG 


Insure control-interval availability 


IGGPLOC 


IGGOCLAZ 


Locate processing 


IGGPLSTC 


IGGOCLBQ 


LISTCAT processing 


IGGPMCO 


IGGOCLAC 


DEFINE Catalog: Master catalog build and 
open (1 of 2) 


IGGPMC02 


IGGOCLAD 


DEFINE Catalog: Master catalog build and 
open (2 of 2) 


IGGPMEBM 


IGGOCLAE 


Handle multiple extents for catalog open and 
build 


IGGPMGO 


IGGOCLAX 


Move group occurrence from one extension 
record into another 


IGGPMOD 


IGGOCLAV 


Modify common processing 


IGGPPAD 


IGGOCLAG 


PUT- Add: Call record management to write a 
new catalog record 


IGGPPATH 


IGGOCLCP 


Define path 


IGGPPDE 


IGGOCLAG 


ERASE: Call record management to erase a 
catalog record 


IGGPPDEC 


IGGOCLAG 


Delete catalog record 


IGGPPREC 


IGGOCLAW 


Call PUT-Add or PUT-Update to write a catalog 
record 


IGGPPRPW 


IGGOCLCA 


Check password of related object 


IGGPPTBF 


IGGOCLCB 


Put into buffer 


IGGPPUPC 


IGGOCLAG 


PUT-Update: Call record management to 
rewrite a catalog record 


IGGPRBAP 


IGGOCLCG 


Scan the ARDBs and AMDSBs for all RBAs 


IGGPRCCR 


IGGOCLAG 


Read catalog control record 


IGGPRELE 


IGGOCLCB 


Release function 


IGGPRPLF 


IGGOCLAB 


Dequeue the catalog 


IGGPRPLM 


IGGOCLAB 


Assign RPLs from the catalog RPL pool 


IGGPSALL 


IGGOCLAR 


Suballocate: Candidate volume assignment 


IGGPSALS 


IGGOCLAU 


Suballocate: Space assignment 


IGGPSCA 


IGGOCLAH 


Set catalog ACB address/open user catalog 


IGGPSCAT 


IGGOCLAH 


Search catalog processing 


IGGPSCAX 


IGGOCLCO 


Scan CAXWA chain 


IGGPSCNC 


IGGOCLAY 


Initial CTGPL processing 


IGGPSDSP 


IGGOCLAF 


Remove space and close CRA 



Figure 4.5 



External entry points of catalog management modules (part 3 of 4) 



Section 4. Directory 4.19 



Entry point 


Module name 


Procedure description 


IGGPSGOP 


IGGOCLAV 


Retrieve the group occurrence pointer 


IGGPSHNK 


IGGOCLAX 


Shrink a catalog record's variable-length field 


IGGPSSCR 


IGGOCLBF 


Subscratch: Release a cluster's space within a 
VSAM data space 


IGGPSVOL 


IGGOCLBC 


Search for the volume information group 
occurrence 


IGGPTRPL 


IGGOCLCG 


Test RPL last used 


IGGPTSTS 


IGGOCLBA 


CTGFL-for-tests processing 


IGGPUPD 


IGGOCLAV 


Update catalog field 


IGGPUPDE 


IGGOCLBB 


Update-Extend processing 


IGGPUPG 


IGGOCLCD 


Add an AIX to the upgrade set (UPGRADE) or 
delete an AIX from the upgrade set 
(NOUPGRADE) 


IGGPVMSC 


IGG0CLA7 


DELETE: Delete all space information in the 
volume catalog record 


IGGPVMTV 


IGG0CLA6 


Volume mount 


IGGPXDGO 


IGGOCLBT 


Add derived group occurrence 


IGGPXEL2 


IGGOCLBT 


Delete derived group occurrence 


IGGPXEXT 


IGGOCLBS 


Extract derived group occurrence 


IGGPXIO 


IGGOCLCG 


I/O routine for catalog and CRA 


IGGPXLT2 


IGGOCLBT 


Alter derived field value 


IGGPXMOD 


IGGOCLBT 


Modify derived group occurrence 


IGGPXVAL 


IGGOCLBS 


Get derived field value 


IGG0CLC9 


IGGOCLC9 


Catalog management first load 



Figure 4.5 



External entry points of catalog management modules (part 4 of 4) 



Entry point 


Procedure description 


IKQBFA10 


Buffer manager, GETBUFF 


IKQBFA20 


Buffer manager, FREEBUFF 


IKQBFA30 


Buffer manager, get a BCB 


IKQBFA40 


Buffer manager, free a buffer 


IKQBFA50 


Buffer manager, do I/O 


IKQBFA60 


Buffer manager, steal a BCB 


IKQBFA70 


Buffer manager, check RBA for exclusive control 


IKQBFA80 


Buffer manager, return a BCB 


IKQBFB10 


Buffer manager, defer writing buffer 


IKQBFB20 


Buffer manager, write deferred buffers 


IKQBFB30 


Buffer manager, get scratch buffer from resource pool 


IKQBFB40 


Buffer manager, return scratch buffer to resource pool 


IKQBFB50 


Buffer manager, search resource pool for requested RBA 


IKQCAS80 


Control area split, count index entries 


IKQCAS90 


Control area split, decompress keys 


IKQIOA00 


I/O manager 


IKQIOA20 


I/O manager, RBA conversion 


ILQIOA30 


I/O manager, get and free blocks 


IKQIOB00 


I/O error analysis 


IKQIOB10 


I/O error analysis 



Figure 4.6 External entry points of record management modules 
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Control Block Directory 



The control block directory (Figure 4.7) contains a short entry for each of 
the most important VSAM control blocks, giving the length and the purpose 
of each block. 



Data Area 


Total size 


Purpose 


ACB 


68 bytes 


To describe a VSAM cluster 


AMBL 


104 bytes 


To connect an ACB to the PLH and AMDSB(s) 


AMCBS 


28 bytes 


To contain addresses of CAXWA chain, master 
and job catalog ACBs, and recovery information 


AMDSB 


200 bytes 


To record data set status and statistics (not 
including buffer header and first EDB) 


AMDTF 


469 bytes 


To contain save areas, lists, addresses for ISAM 
interface programs, and the error message build 
area 


ARDB 


48 + (2 

x key length) 


to record data about volumes and RBAs per 
key range 


BCB 


108 bytes 


To point to a buffer 


BHD 


52 bytes 


To contain information about buffers and buffer 
processing 


BKPHD 


64 bytes 


To describe the storage allocation for the CCW 
build area 


BSPH 


72 bytes 


To contain information about buffers in a 
subpool of the resource pool 


CAXWA 


138 bytes 


To contain pointers to control blocks and work 
areas needed when a catalog is being processed 


CCA 


1308 bytes 


To contain information about the catalog being 
processed and about the catalog record and its 
extensions 


CIW 


392 bytes + (5 
x keylength) 


To describe a control interval split workarea 


CTGFL*(also 
known as 
FPL or FL) 


24 bytes 
(variable) 


To contain catalog field name, address, and 
length 


CTGFV*(also 
known as FVT) 


92 bytes 


To contain addresses of user-supplied 
information fields and lists 


CTGPL*(also 
known as 
CPL) 


48 bytes 
(variable) 


To contain a description of the call for catalog 


* Rebuilt for each use, that is, not 


permanent 



Figure 4.7 



Control block directory (part 1 of 2) 



Section 4. Directory 4.21 



Data Area 


Total size 


Purpose 


DASDM 
parameter list 


170 bytes 


To contain the input parameters for 
the DASD Space Management routines 


DTFIS 


294 bytes 
(variable) 


To describe an ISAM file 


EDB 


40 bytes 


To contain the extent descriptions 


EXLST 


30 bytes 
(variable) 


To contain addresses for user exit 
routines 


FCDB 


64 bytes 


Describes the channel program block. 


LPMB 


24 bytes 


To describe the logical and physical nature of 
device 


OAL 


24 bytes 
(variable) 


To contain all opened VSAM ACBs 


OPNWA 


2300 bytes 


To contain information needed when a data set 
is being opened 


PLH 


ESDS 472 bytes To determine record or CNV position 
KSDS ) 540 + 
RRDS y keylength 


RPHD 


8 bytes 


To contain information about the resource pool 


RPL 


52 bytes 


To contain user request information and error 
feedback information 


RSCB 


16 bytes 


To contain information needed for sharing 
resources 


THB 


100 bytes 


To contain information needed to do track hold 


USB 


28 bytes 
(variable) 


To maintain request information 


VRPPL 


20 bytes 


To contain the input parameters needed for 
building the VSAM Resource Pool 


VSRT 


76 bytes 


To contain information and pointers for the 
resource pool 



Figure 4.7 



Control block directory (part 2 of 2) 
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Section 5: Data Areas 



This section deals with the internal data areas of VSAM, describing their 
formats, functions, and interrelationships. It is assumed that the reader is 
familiar with the basic structure of VSAM, such as the types of data sets, 
the structure of indexes, the concept of the catalog, etc., as these are 
described in the DOS/VS Data Management Guide, GC33-5372. 

The section is divided into two parts: 

• Descriptions of the VSAM data set, index, alternate index, and catalog. 

• Description and format of the VSAM control blocks, together with 
figures showing their interrelationships. 



Section 5. Data Areas 5.1 



VSAM Data Set 



VS AM Record 



Control Interval 



A VSAM data set is a collection of records grouped into control intervals. 
Control intervals are grouped into larger units called control areas. If the 
VSAM data set is key-sequenced, then the control interval(s) in which it 
resides are pointed to by entries in an associated index. The VSAM stored 
record, control interval, control area, and index are described in the topics 
that follow. 



Records are normally treated by VSAM as variable-length records. Records 
can be spanned across control intervals within a control area, and their 
maximum size is thus equal to the length of a control area. The only excep- 
tion to this is a relative-record data set, whose records must have a fixed 
length. 



A control interval is a continuous area of auxiliary storage that VSAM uses 
for storing records. The control interval is the unit of information that VSAM 
transfers between virtual and auxiliary storage. 

The length of each control interval is an integral multiple of block size. The 
size of a control interval is determined by the system from the size of the 
records, user-specified minimum buffer size, device characteristics, and the 
user-specified percentage of free space. The user can specify the size of the 
control interval, but it must be within limits acceptable to VSAM. 

Data records are put in the low-address portion of the control interval. 
Control information about each data record is put in the high-address portion 
of the control interval. The combination of a data record and its control 
information, though they are not physically adjacent, is called a stored record. 
The control information in a control interval consists of a Control Interval 
Definition Field and one or more Record Definition Fields. Figure 5.1 shows 
the format of a control interval. 



Record 


Record 


Record 


Free space 


RDF 


RDF 


RDF 


CIDF 


1 


2 


3 


<4 


3 


2 


1 





Figure 5.1 



Control interval format 
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Control Interval Definition Field 



The Control Interval Definition Field (CIDF) describes the control interval. 
Its format is shown in Figure 5.2. 



Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



2 CIDFDD Free space offset 

Displacement from the beginning of the 
control interval to the beginning of the 
free space 1 

2 2 2 CIDFLL Free space length 

Length of the free space area within this 
control interval 1 

1 If the CIDF contains only 0s, end-of -data-set or end-of-key-range is indicated; either 
the end of the data set was detected or the end of a key range in a key-sequenced data 
set was detected when the data set was to be divided between volumes. Information in 
the volume group occurrence (see VOLFLG) in the data set's catalog record helps to 
differentiate between the end-of -data-set and end-of-key-range conditions. 



Figure 5.2 



Control interval definition field format 



Record Definition Field 



The Record Definition Fields (RDFs) describe the records in the control 
interval. They are inserted into the control interval from right to left, which 
means that the rightmost RDF describes the leftmost data record. 

There is normally one RDF for each record, except in two special cases. 
These are: 

• When two or more consecutive records in the control interval have the 
same length. In this case, two RDFs are used to describe the whole group 
of records. The first (right-hand) RDF describes the characteristics of the 
records, and the second (left-hand) RDF contains a count of the number 
of records. 

Note that this is true only for key-sequenced and entry-sequenced data 
sets. The slots or records in a relative record data set have a fixed length, 
but specific information is required for each one. The records cannot, 
therefore, be grouped, and one RDF is required for each record. 

• When the record is spanned. In this case, only one segment of one record 
can be located in the control interval. Nevertheless, two RDFs are used. 
The first (right-hand) RDF describes the record segment, and the second 
(left-hand) RDF contains a "level number", which is used for data integ- 
rity checking. This number is assigned and updated by VSAM whenever 
the spanned record is processed. The level number in all segments of a 
spanned record will always be the same, unless an error has occurred. 

The format of an RDF is shown in Figure 5.3. 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 





1 


RDFFLAG 


Flag byte 






RDFEXT 


RDF extension flag 




.0 




There is no RDF to the left of this RDF 
that contains additional information 
about record(s) described in this RDF. 




.1 




There is an RDF to the left of this RDF 
that contains additional information 
about the record(s) described in this 
RDF. Byte two and three of the RDF to 
the left contain the following informa- 
tion: 

• if there are more consecutive records 
than one of fixed length they contain 
the number of these records beginning 
with the record associated with the 
previous (to the right) RDF (see repli- 
cation count flag) 

• in the case of spanned records they 
contain the level number 




..11 .... 


RDFSRM 


The RDF to the left contains information 
about spanned records (middle segment) 




..10.... 


RDFSRL 


The same as above but last segment 




..01 .... 


RDFSRF 


The same as above but first segment 






RDFREPL 


Replication count flag 




....0... 




The second and the third byte of this 
RDF contain the data records length 




.... 1... 




This RDF contains additional informa- 
tion about the record(s) described in the 
RDF to the right. 






RDFRESL 


Empty slot indicator (for relative record 
processing where one RDF is associated 
with one slot in the control interval - no 
extended RDFs) 




1.. 




The record in the corresponding slot is 
invalid (it has been deleted or not yet in- 
serted) 




0.. 




The record in the corresponding slot is 
valid 

Depending on the kind of record(s) 
described, byte two and three of an RDF 
contain one of the following values: 



Figure 5.3 



Record definition field format (part 1 of 2) 
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Offset 
Dec Hex 



Bytes and 
Bit Pattern 



Field Name Description 



1 1 



1 1 



1 1 



RDFLL Length field 

Byte two and three contain the data 
record's length. This type of RDF de- 
scribes only a single record. It has no 
RDF to its left containing additional in- 
formation. 
Byte 0, Bit 4 = 0, Bit 2, 3 = 

RDFCOUNT Count field 

Byte two and three contain the number of 
consecutive fixed-length records. It is a 
type of RDF that contains additional in- 
formation about the records described in 
the RDF to the right. 
Byte 0, Bit 4= 1, Bit 2, 3 =0 

RDFSRLVL Level number 

Byte two and three contain the level 
number for spanned records. It is a type 
of RDF that contains additional informa- 
tion about the records described in the 
RDF to the right. 
Byte 0, Bit 4= 1, Bit 2,3 = 11 or 10 or 01 



Figure 5.3 



Record definition field format (part 2 of 2) 



Control Area 



A control area consists of control intervals; the number of control intervals in 
a control area is determined by VSAM. The control area is the amount of 
space that VSAM pref ormats so that data integrity is ensured for records 
added to a data set. 

Control areas are also used to simplify and localize the movement of records 
when records are inserted in a key-sequenced data set. If an insertion requires 
a free control interval and there isn't one, a control-area split results. VSAM 
establishes a new control area and moves the contents of approximately half 
of the full control area to free control intervals in the new control area. The 
new records, as their keys dictate, are then inserted into one of the two 
control areas. The control area has no specific control information. 
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Index 



An index is created at the same time as a key-sequenced data set. The index 
structure exists in its own address space and consists of one or more levels. 
The lowest level or sequence set consists of one or more index records. There 
is an index record in the sequence set for each formatted control area. Within 
a sequence-set record there is either an index entry or a free data control 
interval pointer for each control interval in the control area. (Free data 
control interval pointers are discussed later in this section.) The key in each 
entry of a sequence set record is the same as the key of the last (highest) 
entry in the corresponding control interval. To save space, VSAM compresses 
the keys in the index. 

The upper levels of the index are collectively called the index set, and contain 
index entries which point to the next lower level of the index. Figure 5.4 
shows a simple index structure. 
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Figure 5.4 



Example of a simple VSAM index 
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Index Record 



The index records and control intervals are fully compatible with VSAM data 
records and control intervals, and are handled by record-management mo- 
dules in the same way. The only differences between index records and data 
records are: 

• There is only a single index record in an index control interval (and thus 
only one RDF). 

• The internal format of an index record is fixed. This format is shown in 
the example of Figure 5.5, and its various parts are discussed below. 
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Figure 5.5 



Example of an index control interval 



Index Record Header 



The index record header contains the information needed to insert index 
entries, to locate entries within the record, and to convert pointers into RBAs. 
The format of the index record header is shown in Figure 5.6. 



Offset 
Dec Hex 



Field Name 



Field 

Size 



Description 





2 2 

3 3 



IXRL 2 

IXCINL 1 

IXPMASK I 



Length in bytes, of the index record, 
including this field. 

Length, in bytes, of the control informa- 
tion (the IXENTRYF, IXENTRYL, and 
IXENTRYP fields) in each index entry. 

Length of the pointers to free data control 
intervals in this index record 1 . This field is 
used as a mask for insert character (store 
character) under mask instructions that are 
used to access pointers. The value con- 
tained in this field specifies the length of 
these pointers, as follows: 

B'OOOT 1 -byte pointer 
B'0011' 2-byte pointer 
B'OlIf 3-byte pointer 



Figure 5.6 



Index record header format (part 1 of 2) 
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Offset 
Dec Hex 



Field Name 



Field 
Size 



Description 



IXBASRBA 4 



8 


8 


IXNXTIR 


4 


12 


C 




4 


16 


10 


IXLVLNO 


1 


17 


11 




1 


18 


12 


IXINSOS 


2 



20 14 



22 16 



IXLENTRY 2 



IXFSECTN 2 



For a sequence-set index record, the RBA 
of a data control area that contains data to 
be referenced. This RBA and index-entry 
pointers are used together to calculate the 
4-byte RBA of another index record or of a 
data control interval (0 for high-level in- 
dexes). 

Pointer to the logically next index record in 
this index level. (Horizontal pointer) 

Reserved (0). 

Index level number. A sequence-set index 
is assigned a value of 1; the next higher- 
level index is assigned a value of 2; etc. 

Reserved (0). 

Displacement from the beginning of this 
record to the space available for inserting 
index entries. For higher-level indexes, the 
entry space immediately follows the record 
header; for sequence-set indexes, the entry 
space follows the record header and free 
data-control-interval pointers. 

Displacement from the beginning of this 
record to the last (high-key) entry in the 
index record. 2 

Displacement from the beginning of this 
record to the first (low key) section entry in 
the index record. 2 



Pointers are allowed to vary in length to conserve index space. If, for example, the 
number of items to be referenced by an index record is less than 256, a one-byte 
pointer can be used; if the number is greater than 256 and less than 65,536, a two-byte 
pointer can be used; and if the number is greater than 65,536, a three-byte pointer can 
be used. 

This displacement is to the F (front-key compression count) byte of the entry, not to 
the beginning of the entry. 



Figure 5.6 



Index record header format (part 2 of 2) 



Free Data-Control-Interval pointers 

Free data-control-interval pointers, which exist only in sequence-set index 
records, are used to calculate the RBAs of available data control intervals. 
The length of a pointer is specified in the record header. 

When the index is first built, and before records have been loaded into the 
data set, the index records of the sequence set contain one free data control 
interval pointer for each data control interval. 
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Index Entries 



VSAM always uses the rightmost free data-control-interval pointer when a 
data control interval is needed. The value of the pointer is set to when the 
control interval is used. As pointers are set to 0, the displacement to space 
that is available for index entries (contained in the record header) is adjusted 
by the length of the free data-control-interval pointer. In this way, space used 
by free data-control-interval pointers is made available for index entries when 
the pointers are no longer required. 

The example in Figure 5.5 shows a sequence set record for a control area with 
eight control intervals. Of these eight, the first four are now occupied by 
data, and the last four are still free. 



The index entries are the link between the index and the data set. They 
contain the key, the pointer to the data control interval containing the data 
record, and information about key compression. The format of an index entry 
is shown in Figure 5.7. 



Field Size 






(in bytes) 


Field Name 


Description 


Variable 


IXKEY 


Key characters that determine the sequence of records 
in a key-sequenced data set. 


1 


IXENTRYF 


Front-key compression count, that is, the number of 




(F byte) 


characters by which the beginning of the key has been 
compressed. 


1 


IXENTRYL 

(L byte) 


Length of the IXKEY field. 


1-3 


IXENTRYP 


Pointer to an index or data control interval. 




(P field) 


This value is the number of the CI within the CA (for 
example '4' for the fifth CI). To calculate the RBA of 
the CI, this value must be multiplied by the CI size and 
added to the contents of IXBASRBA. 



Figure 5.7 



Index entry format 



Index Entries for Spanned Records 



Since spanned records extend across two or more data control intervals, their 
index entries, sometimes called "complex index entries", consist of a series of 
"normal" entries (one for each data control interval). These entries, in turn, 
are basically standard index entries, but they have some special features: 

• The key is contained only in the entry for the last segment of the spanned 
records, whose F byte contains the actual key compression count. 

• The entries for all other segments contain no key, and their F byte con- 
tains a compression count equal to the key length, thus indicating a key 
length (in the entry) of zero. 

• Each entry contains a pointer to its associated segment (or data control 
interval). 
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Index Entry Sections 

To save time when searching index records for a given key, the index entries 

are grouped into sections. This allows a rapid search, scanning only the 
highest key in each section, to locate the correct section, which is then 

searched for the correct key. 

A section is defined by a two-byte field to the left of the high-key entry in the 
section. This field contains the displacement from the F byte of the high-key 
entry in this section to the F byte of the high-key entry in the next section (to 
the left). The index record header contains a pointer to the F byte in the 
high-key entry in the first section. 

For technical reasons, this division of the index entries into sections is not 
carried out until a control interval split is necessary in a control area. There 
will thus be no section definition fields in the index of a freshly loaded data 
set, and only some of the sequence set records in an "older" data set will have 
such fields. 
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Alternate Index 



The alternate index (AIX) provides an alternate means of access, using 
different keys, to the data records in the base cluster, which can be a key- 
sequenced or entry-sequenced data set, but not a relative-record data set. The 
alternate index itself is a key-sequenced data set. The index component of the 
AIX is identical in structure, format, and function to the index of any other 
key-sequenced data set. The basic structure of the data component of the 
AIX is also identical to that of a normal key-sequenced data set, as far as 
CIDFs and RDFs are concerned. 

The only difference in format between the AIX and a normal key-sequenced 
data set concerns the records in the data component of the AIX, which have a 
fixed format, shown in Figure 5.8. These records form the logical connection 
between the AIX and the base cluster, and contain control information, the 
alternate key, and one or more pointers to the base cluster. If this base cluster 
is a key-sequenced data set, the pointers consist of the prime keys of the 
required data records, which are then located by means of the base cluster 
index. If the base cluster is an entry-sequenced data set, which has no index, 
the pointers are relative-byte addresses (RBAs) of the required records, 
which can then be located directly. 

As it is possible to have more than one pointer in an AIX record, the length 
of such a record can vary. In extrteme cases, it may be greater than the control 
interval length, and the record is treated as a spanned record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 





1 


AIXFG 


Flag byte 




XXXX XXX. 




Reserved 




1 


AIXPKP 


Prime key pointers are used 









RBA pointers are used 


1 1 


1 


AIXPL 


Pointer length (in binary) 


2 2 


2 


AIXPC 


Number of pointers in this record (in 
binary) 


4 4 


1 


AIXKL 


Length of alternate key (in binary) 


5 5 


Note 1 


AIXKY 


Alternate key 


Note 2 


Note 3 


AIXPT 


First pointer to base cluster 


Note 1 : The length of this field is specified 


in AIXKL 


Note 2: The displacement of this field is 5 + the length of AIXKY 


Note 3: The length of this field is specified 


in AIXPL 



Figure 5.8 



Alternate index record format 
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Catalog 



Purpose 



VSAM employs two types of catalogs - the master catalog and user catalogs. 
The internal structure and format of the two types is identical; the only 
difference is that the master catalog contains an entry for each user catalog. 



The VSAM catalog is built and processed by catalog-management modules. 
Catalog-management modules, via the catalog, enable a user to locate a data 
set, volume, index, or cluster by specifying a name or volume serial number. 
In addition, the VSAM catalog provides VSAM with the information required 
to allocate space for data sets, verify authorization to gain access to them, 
compile usage statistics on them, and relate RBAs to physical locations within 
data sets. The catalog indicates, therefore, much more than the simple loca- 
tion of data sets. The catalog maintains the relationship between a key- 
sequenced data set and its index, or between any data set and its alternate 
index(es), describes the location of VSAM data spaces and the data sets that 
reside in them, and describes the space that is available for new data sets. 



Structure 



The VSAM catalog is conceptually a key-sequenced VSAM data set divided 
into two key ranges. VSAM data set processing options, such as record 
replication and sequence set with data, are utilized in both key ranges of the 
catalog. The catalog record size is 505 bytes in the low key range and 47 
bytes in the high key range; the catalog control interval size is 512 bytes. 
Figure 5.9 shows the VSAM catalog. The figure shows: 

• The low key range of the catalog, shown on the left, contains records that 
describe objects, that is, data sets, indexes, volumes, and clusters. 

• The high key range of the catalog, shown on the right, contains the true 
name (a data set name or volume serial number) of an object specified by 
the user. 

• The index, shown in the middle, points to both the low and high key 
ranges of the catalog. 

With the exception of catalog records that are built when the catalog is 
created and describe the catalog itself, catalog records are built as objects are 
cataloged. The order of the records depends upon which portion of the 
catalog the records belong to. If the catalog records reside in the low key 
range of the catalog, they are ordered according to control-interval number. 
As objects are cataloged, available control intervals are used. If the catalog 
records reside in the high key range of the catalog, they are ordered according 
to their true name (data-set name or volume serial number). 

Catalog management relies on record management for all record retrieval and 
storage. When a user specifies a data-set name, record management uses the 
index to retrieve a catalog record that contains the data-set name (in the high 
key range of the catalog); that record, in turn, contains the control-interval 
number of the catalog record that describes the data set. Catalog manage- 
ment converts the control-interval number to an RBA in the low key range of 
the catalog. 
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Low-key range 
catalog records 



Index 



High-key range 
true-name entries 



C=L 



Figure 5.9 



Parts of the VSAM catalog 



Catalog Records which Describe the Catalog 



Types of Catalog Records 



Catalog records that describe the catalog as a data set are in fixed positions at 
the beginning of the catalog. Figure 5.10 shows the control-interval numbers 
of records that describe the catalog, the kind of catalog record each is, and 
the contents of each. The various types of catalog record are described later 
in this section. 

Note that the self -describing records of the catalog do not contain CRA 
information (bytes 5-17). They do however use the release indicator (byte 4). 

When the catalog is built, there are two True Name records. One contains the 
catalog's volume serial number and points to control-interval 9. The other 
contains the catalog's name and points to control-interval 2. 



There are various types of catalog records. They are shown below, grouped 
according to the key range of the catalog in which they are located. 
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Control 
Interval 
Number 


Record 
Type 


Contents 





Data 


Description of the data portion of the catalog (low and 
high key ranges) 


1 


Index 


Description of the index portion of the catalog 


2 


Cluster 


Description of the catalog as a key-sequenced VSAM 
cluster. This catalog record contains the catalog's pass- 
word information group occurrence. 


3 


Control 


Catalog control record (CCR), which describes the 
catalog's free control intervals within the low key range. 


4 


Extension 


Extension of the catalog-index record (control interval 
#1). This Extension record contains a description of the 
high-level index extents of the catalog. 


5 


Extension 


Extension of the catalog-data record (control interval 
#0). This Extension record contains a description of the 
low key range data extents of the catalog. 


6 


Extension 


Extension of the catalog-index record (control interval 
#1). This Extension record contains a description of the 
index sequence-set extents for the low key range of the 
catalog. 


7 


Extension 


Extension of the catalog-data record (control interval 
#0). This Extension record contains a description of the 
extents of the True Name records in the high key range 
of the catalog. 


8 


Extension 


Extension of the catalog index record (control interval 
#1). This Extension record contains a description of the 
index sequence-set extents for the high key range of the 
catalog. 


9 


Volume 


Description of the track allocation and VSAM data 
spaces on this volume. 


10,11... 


Volume 
Extension 


As many volume extension records as are necessary 
to describe the total space on the volume. 



Figure 5.10 



Catalog records that describe the catalog 



High Key Range of the Catalog 



The high key Grange of the catalog contains 47-byte True Name records. The 
True Name records associate user-specified name or volume serial numbers 
with the control-interval number of the catalog record that describes the 
specified object. 



Low Key Range of the Catalog 



Each catalog record in this part of the catalog occupies a full control interval 
and each contains the number of the control interval in which it resides. Each 
catalog record also contains the record type of the record. The low key range 
of the catalog is made up of the following types of records: 

A: Non-VSAM record, which describes a data set organized differently from 
VSAM. There is one non-VSAM record for each non-VSAM data set 
cataloged. Sometimes called "Alien" record. 

C: Cluster record, which describes a VSAM data-set cluster. This record 
contains the control-interval number of a Data record and, if the VSAM 
data set is a key-sequenced data set, the control-interval number of an 
Index record. There is one Cluster record for each VSAM cluster cata- 
loged. 
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Catalog Recovery Area 



D: Data record, which describes the data component of a catalog, cluster, or 
AIX. There is one data record for each data set cataloged. 

E: Extension record, which contains overflow information from another 
catalog record (except type 'V'). There are as many Extension records as 
are required to contain overflow information. 

F: Free record, which marks the control interval in which it resides as 
available for use as another kind of catalog record. There is one Free 
record for each previously assigned control interval that is available for 
use. 

G: Alternate Index record, which describes an alternate index. There is one 
such record for each alternate index cataloged. 

I: Index record, which describes the index component of a catalog, cluster, 
or AIX. There is one index record for each index cataloged. 

L: Control record, which describes the free control intervals in the low key 
range of the catalog. The Control record is the fourth record in the 
catalog. 

R: Path record, which describes a VSAM path. There is one such record for 
each path cataloged. 

U: User Catalog record, which describes a user catalog. One user catalog 
record is present in the master catalog for each user catalog which is 
cataloged. 

V: Volume record, which describes each VSAM data space on a volume, the 
data sets that reside in the data space, and the space available within the 
data space. There is one Volume record for each volume controlled by 
this catalog. 

W: Volume Extension record, which is used to extend volume records as 
required. 

Y: Upgrade set record, which describes an upgrade set. There is one such 
record for each upgrade set cataloged. 



For a catalog defined with the recovery attribute, a Catalog Recovery Area 
(CRA) is reserved on each volume owned by the catalog. The CRA on each 
volume is conceptually an entry-sequenced data set which contains a self- 
describing part similar to that of the catalog and copies of catalog records 
describing the data sets on the volume. These copies are immediately updated 
whenever the original records in the catalog are changed. 



Self -Describing Part of the CRA 



This part of the CRA contains those records which are necessary to describe 
the CRA. They are basically the same records as those in the self -describing 
part of a catalog, except that the records describing an index are not needed, 
because the CRA is an entry-sequenced data set. The unused control inter- 
vals contain free records. Figure 5.11 shows the format of the self -describing 
part of the CRA. 



Section 5. Data Areas 5.15 



Control 
Interval 
number 


Record 
type 


Contents 





Data 


Description of the data portion of the CRA 

The field CRA VOL in this record contains the volume 
serial number of the catalog which owns the volume. 


1 


Free record 




2 


Cluster 


Description of the CRA as an entry-sequenced VSAM 
cluster. This record contains the name of the catalog 
which owns the volume. 


3 


Control 


Catalog control record which describes the free control 
intervals in the CRA 


4 


Free record 




5 


Extension 


Extension of the CRA data record (CI#0) 


6 


Free record 




7 


Free record 




8 


Free record 




9 


Volume 


Description of the track allocation for the CRA 


10 


Volume extension 




11 


Volume extension 


Extensions of the volume record (CI#9) 


12 


Volume extension 





Figure 5.11 



Self -describing part of the CRA 



Copies of catalog records 



All catalog records which describe data sets or volumes are duplicated on 
specific volumes, as shown below: 

A volume record is duplicated in the CRA of the volume which it de- 
scribes. 

All records concerning a key-sequenced data set or its alternate index 
(Cluster, Alternate Index, Data, Index, Path, and Upgrade Set records) 
are duplicated in the CRA of the first volume on which space was allocat- 
ed for the index of the base cluster. 

All records concerning an entry-sequenced data set or its alternate index, 
or a relative record data set, (Cluster, Alternate Index, Data and Index for 
the AIX, Path, and Upgrade Set records) are duplicated on the first 
volume on which space was allocated for the data component of the base 
cluster. 

If a volume is imported from an OS/VS VSAM system, the CRA may contain 
other records, such as records which describe a non-VSAM data set. These 
records are not, however, used by DOS/VS VSAM. 
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Catalog Record Formats 



True-name Catalog Record 



The True Name record associates the volume serial number, data-set name, or 
cluster name specified by the user with the control-interval number of the 
catalog record that describes the object (volume, cluster, non-VSAM [alien] 
data set, data component, index component, path, or alternate index). True 
Name records are contained in the high key range part of the catalog and are 
pointed to by the catalog's index records. The True Name record is retrieved 
using key-sequenced processing. The catalog-management modules convert 
the control-interval number in the True Name record to an RBA which can be 
used to retrieve the associated record in the low key range. 

True Name records are 47 bytes long; several might be contained in a 
catalog's control interval (512 bytes). The format of that record is shown in 
Figure 5.12. 



Offset 
Hex Dec 


Bytes 


Description 



44 2C 


44 

3 


Name of a data set or cluster, filled on the right with 
blanks, or a volume serial number, filled on the right with 
zeros, specified by the user. 

Control-interval number of the catalog record that 
describes the object. 



Figure 5.12 



True-name catalog record format 



Non-VSAM Catalog Record 



The non-VSAM catalog record describes a non-VSAM data set. Figure 5.13 
shows the format of a non-VSAM catalog record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 






1 1 

4 4 


44 

1 
3 
1 


ENTIDNO 
RELIND 


Key and ID area 

Binary zeros 

Control interval number of entry 

Release indicator; 



X'OO' This record was created with a 
DOS/VS Release prior to Release 31 
X'OT This record was created with 
DOS/VS Release 31 or later 



Figure 5.13 



Non-VSAM catalog record format (part 1 of 3) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'A' 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 




Length of the fixed-length, fields in this 
record, excluding any fixed-length fields 
that follow displacement 92 (5C). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


49 


31 


44 


ENTNAME 


Entry name (data set name) 


The following six-byte entry 
pointers that follow it. * 


contains control 


information for the group occurrence 


93 


5D 


5 




Pointer to Extension record. If this 
record is not continued in an Extension 
record, this field contains zeros. 


98 


62 


1 




The number of group occurrence pointers 
that follow. 








Group occurrence pointer (repetitive) 


Bit and 1 


of Byte 3 identify the group occurrence further: 






OOxx xxxx 




Pointer to a group occurrence within the 
record. 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record 

3 Bits and 1 are set to zero. Bits 
2 through 7 contain a code de- 
scribing the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to. 



Figure 5.13 



Non-VSAM catalog record format (part 2 of 3) 
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Offset Bytes and 






Dec Hex Bit Pattern 


Field Name 


Description 


lOxx xxxx 




Pointer to a group occurrence contained 
in an Extension record. 

Byte Meaning 

0-2 Control-interval number of the 
Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code describing the 
group occurrence pointed to. 

4 Sequence number of the group 
occurrence pointed to. 


01 XX xxxx 




Pointer to a group occurrence which has 
been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 


1 For further information see section Group 


occurrences in catalog records. 



Figure 5.13 



Non-VSAM catalog record format (part 3 of 3) 



Cluster Catalog Record 



The Cluster record describes a data set and its index. Figure 5.14 shows the 
format of a cluster catalog record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

X'00' This record was created with a 
DOS/VS Release prior to Release 3 1 
X'01' This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA CI number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'C for a cluster record 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 



Figure 5.14 



Cluster catalog record format (part 1 of 3) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


48 30 


1 




Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
that follow displacement 107 (6B). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


49 31 


44 


ENTNAME 


Entry name (Normally true name of the 
cluster. If this record is in the self- 
describing part of the CRA, it contains 
the name of the catalog which owns this 
volume) 


93 5D 


8 


OWNERID 


Owner of data set 


101 65 


3 


DSETCRDT 


Data set creation data (ydd) 


104 69 


3 


DSETEXDT 


Data set expiration date (ydd) 


107 6B 


1 


CATTR 


Reserved (for OS) 


The following six-byte entry 
pointers that follow it. * 


contains control 


information for the group occurrence 


108 6C 


5 




Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 


113 71 


1 




The number of group occurrence pointers 
that follow. 






Group occurrence pointer (repetitive) 


Bit and 1 


of Byte 3 identify the group occurrence further: 




OOxx xxxx 




Pointer to a group occurrence within the 
record. 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bits and 1 are set to zero. Bits 
2 through 7 contain a code de- 
scribing the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to by code. 




lOxx xxxx 




Pointer to a group occurrence contained 
in an Extension record. 

Byte Meaning 

0-2 Control-interval number of the 
Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
occurrence pointed to by code. 



Figure 5.14 



Cluster catalog record format (part 2 of 3) 
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Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



01 xx xxxx Pointer to a group occurrence which has 

been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 

* For further information see section Group occurrences in catalog records. 



Figure 5.14 



Cluster catalog record format (part 3 of 3) 



Data and Index Catalog Record 



Data and Index records describe data sets and their indexes. Figure 5.15 
shows the format of the data and index records. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

XW This record was created with a 
DOS/VS Release prior to Release 3 1 
XW This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'D' for a data record or T 
for an index record 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 




Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
following displacement 142 (8E). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


49 


31 


44 


ENTNAME 


For a Data or Index record, the data-set 
name 


93 


5D 


8 


OWNERID 


Owner of the data set, specified when the 
data set was defined. 



Figure 5.15 



Data and index catalog record format (part 1 of 4) 
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Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


101 


65 


3 


DSETCRDT 


Data-set creation data, in packed-decimal 
form YDD, specified when the data set 
was defined. 


104 


68 


3 


DSETEXDT 


Data-set expiration date, in packed- 
decimal form YDD, specified when the 
data set was defined. 


107 


6B 


1 

1 

.1 

..1 

...1.... 
.... 1... 

1.. 

1. 

X 


ATTR1 


Data-set attributes, which are defined in 
Access Method Services commands, as 
follows: 

Speed - recovery features will be mini- 
mized or omitted in order to optimize op- 
erating speed during initial loading 
Unique component. Entire space occu- 
pied by a unique component. 
Reusable data set 

Erase the component upon deletion 
Recoverable catalog 
Inhibit update 

This component has been temporarily 
exported 
Reserved for MVM 


108 


6C 


1 

00 

01 

10 

11 

..00.... 

..01 .... 
..10.... 

..11 .... 
1 

.... XXX. 


ATTR2 


Data-set sharing attributes as follows: 
Cross-partition sharing: 

The data set can be shared by READ 

users or it can be used by one 

UPDATE/OUTPUT user. 

The data set can be shared by READ 

users and one UPDATE/OUTPUT user. 

The data set can be fully shared 

The data set can be fully shared; with 

assistance supplied by VSAM. 

Cross-system sharing (set by DOS but 

used only by OS): 

The data set can be shared by READ 

users or it can be used by one 

UPDATE/OUTPUT user. 

The data set can be shared by READ user 

and one UPDATE/OUTPUT user. 

The data set can be fully shared 

The data set can be fully shared; with 

assistance supplied by VSAM. 

DS not usable 
Reserved 


109 


6D 


1 


OPENIND 


Open indicator flag; if this byte contains 
X'80', the data set is open for output. 


110 


6E 


4 


BUFSIZE 


Minimum buffer size 



Figure 5.15 



Data and index catalog record format (part 2 of 4) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


114 72 


3 


PRIMSPAC 


Primary space allocated for the data set 
or index, specified when the data set or 
index was defined. 


117 75 


3 


SCONSPAC 


Secondary space allocation for the data 
set or index, specified when the data set 
or index was defined. 


120 78 


1 


SPACOPTN 


Space options flags. 




10 

11 

..XX xxxx 




Track request, which indicates that space 
was allocated in terms of tracks. 
Cylinder request, which indicates that 
space was allocated in terms of cylinders. 
Reserved 


121 79 


4 


HURBADS 


High used RBA of the data set or index. 


125 7D 


4 


HARBADS 


High allocated RBA of the data set or 
index. 


129 81 


4 


LRECL 


For a Data record, the logical record size 
of the data set described by this Data re- 
cord. For an Index record, always X'FF's. 


133 85 


2 


USERINFO 


User information for the DOS/VS ISAM 
interface program (IIP). 


135 87 


8 


EXCPEXIT 


Exception exit 


The following six-byte entry contains control 
pointers that follow it. * 


information for the group occurrence 


143 8F 


5 




Pointer to Extension record. If this 
record is not continued in an Extension 
record, this field contains zeros. 


148 94 


1 




The number of group occurrence pointers 
that follow. 1 






Group occurrence pointer (repetitive) 


Bit and 1 of Byte 3 identify the group occurrence further: 




OOxx xxxx 




Pointer to a group occurrence within the 
record 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bits and 1 are set to zero. Bits 
2 through 7 contain a code that 
describes the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to. 



Figure 5.15 Data and index catalog record format (part 3 of 4) 
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Offset 
Dec Hex 



Bytes and 
Bit Pattern 



Field Name Description 



lOxx xxxx 



Pointer to a group occurrence contained 
in an Extension record. 



Byte Meaning 

0-2 Control-interval number of the 

Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
occurrence pointed to by code. 

01 xx xxxx Pointer to a group occurrence which has 

been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 
1 For further information see section Group occurrences in catalog records. 



Figure 5.15 



Data and index catalog record format (part 4 of 4) 



Extension Catalog Record 



The Extension record contains overflow information from another catalog 
record. Figure 5.16 shows the format of an extension catalog record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

X'00' This record was created with a 
DOS/VS Release prior to Release 31 
X'OT This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'E', for an extension of any 
other record except a volume catalog re- 
cord where record type is 'W. 


45 


2D 


2 




Record length 



Figure 5.16 



Extension catalog record format (part 1 of 3) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


47 


2F 


1 






Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 






Length of the fixed-length fields in the 
header fields, excluding any fixed length 
fields following displacement 48 (30). 
This value is always equal to the displace- 
ment from the beginning of the record to 
the extension record's pointer. 


The following six-byte entry contains control 
pointers that follow it. * 


information for the group occurrence 


49 


31 


5 






Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 


54 


36 


1 






The number of group occurrence pointers 
that follow. 










Group occurrence pointer (repetitive) 


Bit and 1 


of Byte 3 


identify the group occurrence further: 






OOxx 


xxxx 




Pointer to a group occurrence within the 
record. 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bits and 1 are set to zero. Bits 
2 through 7 contain a code de- 
scribing the group occurrence 
pointed to. 

4 Sequence number of the group 
(4-5) 2 occurrence pointed to be code. 



Figure 5.16 Extension catalog record format (part 2 of 3) 
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Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



1 Oxx xxxx 



01 xx xxxx 



Pointer to a group occurrence contained 
in an Extension record. 

Byte Meaning 

0-2 Control-interval number of the 

Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
(4-5) 2 occurrence pointed to be code. 

Pointer to a group occurrence which has 
been deleted. 



The code in bits 2 through 7 of 
byte 3 and the sequence number 
in bytes 4 and 5 of "W" type 
have been retained however. 
For further information see section Group occurrences in catalog records. 

For 'W type records, this sequence number occupies bytes 4 and 5, and the 
group occurrence pointer is 6 bytes long. 



Figure 5.16 



Extension catalog record format (part 3 of 3) 



Free Catalog Record 



The Free record indicates that the control interval in which it resides is free 
and points to the next control interval that is free because of deletion. Note 
that the free space in the catalog that has never been assigned is not repre- 
sented by a Free record; a Free record is used only to mark a record that was 
used and deleted. Figure 5.17 shows the format of the free record. 



Offset 








Dec Hex 


Bytes 


Description 







44 


Key. 








Byte 


Meaning 









Zeros. 






1-3 


Control-interval number of this record 






4-43 


Zeros 


44 2C 


1 


Record type 


-'F'. 


45 2D 


3 


Control-interval number of the next free control interval 



Figure 5.17 



Free catalog record format 
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Alternate Index Catalog Record 



The alternate index catalog record describes the alternate index as a key- 
sequenced data set and relates it to the base cluster it belongs to. Figure 5.18 
shows the format if the alternate index catalog record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

X'00' This record was created with a 
DOS/VS Release prior to Release 31 
X'01' This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


GRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'G' 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 




Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
that follow displacement 107 (6B). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


49 


31 


44 


ENTNAME 


Entry name (data set name) 


93 


5D 


8 


OWNERID 


Owner of data set 


101 


65 


3 


DSETCRDT 


Data set creation date (ydd) 


104 


69 


3 


DSETEXDT 


Data set expiration date (ydd) 


107 


6B 


1 


RGATTR 


AIX attribute, X'80' - upgrade (AIX) 


The following six-byte entry 
pointers that follow it. * 


contains control 


information for the group occurrence 


108 


6C 


5 
1 




Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 

The number of group occurrence pointers 
that follow. 



Figure 5.18 



Alternate index catalog record format (part 1 of 2) 
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Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



Group occurrence pointer (repetitive) 

Bit and 1 of Byte 3 identify the group occurrence further: 

OOxx xxxx Pointer to a group occurrence within the 

record. 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bits and 1 are set to zero. Bits 
2 through 7 contain a code that 
describes the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to. 

Pointer to a group occurrence contained 
in an Extension record. 



lOxx xxxx 



Byte Meaning 

0-2 Control-interval number of the 

Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
occurrence pointed to by code. 

Pointer to a group occurrence which has 
been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 

1 For further information see section Group occurrences in catalog records. 



01 xx xxxx 



Figure 5.18 



Alternate index catalog record format (part 2 of 2) 



Index Catalog Record 



For index catalog record format see data catalog record format. The record 
type (byte 44) is T. 
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Catalog Control Record (CCR) 



The catalog control record (CCR) is used by catalog management to control 
the allocation of control intervals in the low key range of the catalog, where 
catalog records, excluding the True Name records and the index, reside. The 
CCR also shows the catalog's high-used and high-allocated RBA values. The 
catalog control record is the fourth record (control interval) in the catalog. 

For a request of one catalog record, catalog management tries to use a record 
that was freed because of deletion. This process is done before using unas- 
signed space. If more than one catalog record is needed, catalog management 
tries to use contiguous unassigned space in the current extent; if sufficient 
unassigned space is not available, records that have been deleted are used. 
Figure 5.19 shows the CCR format. 



Offset 
Dec Hex 


Bytes 


Description 








44 


Key 

Byte Meaning 

Zeros. 

1-3 Control-interval number of this record. 

4-43 v Zeros. 


44 


2C 


1 


Record type - 'L'. 


45 


2D 


3 


Number of the highest control interval within the current 
extent. * 


48 


30 


3 


Number of the next free control interval of those that 
have not been previously assigned. 1 


51 


33 


3 


Count of deleted control intervals, that is, the count of 
control intervals that are free because of deletion. 2 


54 


36 


3 


First deleted control interval in a chain of control inter- 
vals that are free because of deletion. 2 


The following fields are used to keep track of the RBA values that denote the current 
logical end of parts of the catalog: 


57 


39 


4 


Data, low key range: high-key RBA 


61 


3D 


4 


Data, low key range: high-used RBA 


65 


41 


4 


Data, low key range: high-allocated RBA 


69 


45 


4 


Data, high key range: high-key RBA 


73 


49 


4 


Data, high key range: high-used RBA 


77 


4D 


4 


Data, high key range: high-allocated RBA 


81 


51 


4 


Index, high level: high-used RBA 


85 


55 


4 


Index, high level: high-allocated RBA 


89 


59 


4 


Index, low key range - sequence set: high-used RBA 


93 


5D 


4 


Index, low key range - sequence set: high-allocated RBA 


97 


61 


4 


Index, high key range - sequence set: high-used RBA 


101 


65 


4 


Index, high key range - sequence set: high-allocated RBA 


1 


This field is used to keep track of unassigned space within the current extent. 


2 


This field is used to keep track of previously-used records that are now available 
for use as another catalog record. 



Figure 5.19 



Catalog control record format 
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Path Catalog Record 



The path catalog record describes a VSAM-path which is a logical connection 
between a base cluster and an alternate index. Figure 5.20 shows the format 
of the path catalog record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

XW This record was created with a 
DOS/VS Release prior to Release 31 
X'or This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'R' 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 




Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
following displacement 107 (6B). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


49 


31 


44 


ENTNAME 


Entry name (data set name) 


93 


5D 


8 


OWNERID 


Owner of data set 


101 


65 


3 


DSETCRDT 


Data set creation date (ydd) 


104 


69 


3 


DSETEXDT 


Data set expiration date (ydd) 


107 


6B 


1 


RGATTR 


Path attribute, X'80' = update (path) 


The following six-byte entry contains control 
pointers that follow it. * 


information for the group occurrence 


108 


6C 


5 

1 




Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 

The number of group occurrence pointers 
that follow. 



Figure 5.20 



Path catalog record format (part 1 of 2) 
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Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



lOxx xxxx 



Group occurrence pointer (repetitive) 

Bit and 1 of Byte 3 identify the group occurrence further: 

OOxx xxxx Pointer to a group occurrence within the 

record. 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bit and 1 are set to zero. Bits 
2 through 7 contain a code that 
describes the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to. 

Pointer to a group occurrence contained 
in an Extension record 

Byte Meaning 

0-2 Control-interval number of the 

Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
occurrence pointed to by code. 

Pointer to a group occurrence which has 
been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 



01 xx xxxx 



1 For further information see section Group occurrences in catalog records. 



Figure 5.20 



Path catalog record format (part 2 of 2) 



User-Catalog Catalog Record 



This record can only occur in the VSAM master catalog. It describes a user 
catalog. Figure 5.21 shows the format of the user-catalog catalog record. 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

X'00' This record was created with a 
DOS/VS Release prior to Release 31 
X'01' This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'LP 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 




Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
following displacement 92 (5C). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


49 


31 


44 


ENTNAME 


Entry name (data set name) 


The following six-byte entry 
pointers that follow it. * 


contains control 


information for the group occurrence 


93 


5D 


5 




Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 


98 


62 


1 




The number of group occurrence pointers 
that follow. 1 








Group occurrence pointer (repetitive) 


Bit and 1 


of Byte 3 identify the group occurrence further: 






OOxx xxxx 




Pointer to a group occurrence within the 
record. 

Byte Meaning 

Reserved 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bit and 1 are set to zero. Bits 
2 through 7 contain a code that 
describes the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to. 



Figure 5.21 



User-catalog catalog record format (part 1 of 2) 
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Offset 
Dec Hex 



Bytes and 
Bit Pattern 



Field Name 



Description 



lOxx xxxx 



Pointer to a group occurrence contained 
in an Extension record. 

Byte Meaning 

0-2 Control-interval number of the 

Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
occurrence pointed to by code. 

Pointer to a group occurrence which has 
been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 

1 For further information see section Group occurrences in catalog records. 



01 xx xxxx 



Figure 5.21 



User-catalog catalog record format (part 2 of 2) 



Volume Catalog Record 



The Volume record describes VSAM data spaces, their extents, and the data 
sets that reside in VSAM data spaces. Figure 5.22 shows the format of the 
volume record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

X'00' This record was created with a 
DOS/VS Release prior to Release 31 
X'Of This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Record type - 'V 


45 


2D 


2 




Record length 



Figure 5.22 



Volume catalog record format (part 1 of 3) 
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Offset 
Dec Hex 



Bytes and 
Bit Pattern 



Field Name Description 



47 2F 



48 30 



49 31 



93 5D 



101 65 



44 



20 



.... 1... 



121 79 

122 7A 

123 7B 



XXXX .XX. 

1 
1 

4 



Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 

Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
following displacement 126 (7E). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 

ENTNAME Volume serial number, filled with binary 
zeros on the right, of the volume de- 
scribed by this record. 

VOLTSTMP Volume time stamp, which indicates the 
time-of-day clock value when space was 
last added to, or deleted from, this vol- 
ume. 

VOLDVCHR Device characteristics. 

Byte Meaning 

0-3 Volume device type. 

4-7 Maximum device blocksize. 

8-9 Number of cylinders on this 

volume. 

10-11 Number of tracks per cylinder 
on this volume. 

12-13 Number of bytes per track on 
this volume. 

14 Number of bytes required for 
gaps and check bits for each 
keyed block other than the last 
block on a track for this 
volume. 1 

1 5 Number of bytes required for 
gaps and check bits for the last 
keyed block on a track for this 
volume. 1 

16 Number of bytes to be subtract- 
ed for a block that is not 
keyed. 1 

17 Flags: 

Block overhead for keyed 
records is a two-byte field (bytes 
15 and 16). 

Use tolerance factor (bytes 18 
and 19) on all blocks except the 
last block to calculate the effec- 
tive length of a block. 1 
Reserved. 
Volume record flags 

Number of extents per suballocation- 
request allowed by the DOS/VS system. 

Space in the catalog record into which the 
following 4 bytes of derived information 
will be moved (in the buffer) if requested. 



VOLRFLG 
SYSEXTDS 



Figure 5.22 



Volume catalog record format (part 2 of 3) 
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Offset Bytes and 
Dec Hex Bit Pattern 


Field Name 


Description 


The following field names identify information that is not contained in the volume 
catalog record; the information is derived from the group occurrences in the volume 
catalog record and will be placed in the buffer if requested: 


123 7B 2 


NODSPACE 


Number of data spaces on the volume - a 
count of the Data Space Group occur- 
rences. 


125 7D 2 


NODSET 


Number of data sets on the volume - a 
count of the Data Set Directory Entry 
group occurrences. 


The following six-byte entry 
pointers that follow it. * 


> contains control 


information for the group occurrence 


127 7F 5 




Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 


132 84 1 




Number of group occurrence pointers 
that follow. 




Group occurrence pointer (repetitive) 


Bit and 1 of Byte 3 identify the group occurrence further: 


OOxx xxxx 




Pointer to a group occurrence within the 
record. 






Byte 


Meaning 









Reserved. 






1-2 


Displacement of the group 
occurrence from the beginning 
of all group occurrences in this 
record. 






3 


Bits and 1 are set to zero. Bits 
2 through 7 contain a code de- 
scribing the group occurrence 
pointed to. 






4-5 


Sequence number of the group 
occurrence pointed to. 


1 Oxx xxxx 




Pointer to a group occurrence contained 
in an Extension record. 






Byte 


Meaning 






0-2 


Control-interval number of the 
Extension record that contains 
this group occurrence. 






3 


Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 






4-5 


Sequence number of the group 
occurrence pointed to. 


1 For further information see section Group 


occurrences in catalog records. 



Figure 5.22 



Volume catalog record format (part 3 of 3) 
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Volume Extension Catalog Record 



For this format see extension catalog record format. The record type (byte 
44) is 'W\ Note that the Group occurrence pointers in a 'W type record are 6 
bytes long, similar to those in a 'V type record. 



Upgrade Set Catalog Record 



An upgrade set catalog record describes an AIX in the upgrade set which is 
the group of alternate indexes belonging to a base cluster which are to be 
updated automatically. Figure 5.23 shows the format of the upgrade set 
catalog record. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








44 




Key and ID area 








1 




Binary zeros 


1 


1 


3 


ENTIDNO 


Control interval number of entry 


4 


4 


1 


RELIND 


Release indicator; 

XW This record was created with a 
DOS/VS Release prior to Release 3 1 
X'Ol' This record was created with 
DOS/VS Release 31 or later 


5 


5 


6 


CRAVOL 


CRA volume serial number 


11 


B 


3 


CRAIDNO 


CRA control interval number 


14 


E 


4 


CRADEVT 


CRA device type 


18 


12 


26 




Binary zeros 


44 


2C 


1 


ENTYPE 


Entry type - 'V 


45 


2D 


2 




Record length 


47 


2F 


1 




Number of variable-length fields that 
precede the pointer to an Extension re- 
cord. Always zero. 


48 


30 


1 




Length of the fixed-length fields in this 
record, excluding any fixed-length fields 
following displacement 48 (30). This 
value is always equal to the displacement 
from the beginning of the record to the 
pointer to an Extension record. 


The following six-byte entry contains control 
pointers that follow it. * 


information for the group occurrence 


49 


31 


5 
1 




Pointer to Extension record. If this 
record is not continued on an Extension 
record, this field contains zeros. 

The number of group occurrence pointers 
that follow. 



Figure 5.23 



Upgrade set catalog record format (part 1 of 2) 
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Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



lOxx xxxx 



Group occurrence pointer (repetitive) 

Bit and 1 of Byte 3 identify the group occurrence further: 

OOxx xxxx Pointer to a group occurrence within the 

record. 

Byte Meaning 

Reserved. 

1-2 Displacement of the group 

occurrence from the beginning 
of all group occurrences in this 
record. 

3 Bits and 1 are set to zero. Bits 
2 through 7 contain a code that 
describes the group occurrence 
pointed to. 

4 Sequence number of the group 
occurrence pointed to. 

Pointer to a group occurrence contained 
in an Extension record. 

Byte Meaning 

0-2 Control-interval number of the 

Extension record that contains 
this group occurrence. 

3 Bits and 1 are set to 1 and 0, 
respectively. Bits 2 through 7 
contain a code that describes 
the group occurrence pointed 
to. 

4 Sequence number of the group 
occurrence pointed to by code. 

Pointer to a group occurrence which has 
been deleted. 

The code in bits 2 through 7 of 
byte 3 and the sequence number 
in byte 4 have been retained 
however. 



01 xx xxxx 



1 For further information see section Group occurrences in catalog records. 



Figure 5.23 



Upgrade set catalog record format (part 2 of 2) 



Group Occurrences in Catalog Records 



Group occurrences are fields of related information within a catalog record 
which are grouped together so that they can be treated as a unit. For exam- 
ple, all fields relating to a volume on which a data set resides are located in 
one group occurrence. There is one group occurrence for each volume con- 
cerned. Thus, if a data set resides on three volumes, there are three group 
occurrences, which are not necessarily contiguous. 

The group occurrences are found by means of group occurrence pointers in 
the catalog record. These pointers also contain a code which identifies the 
type of group occurrence to which they point. The pointers are grouped in 
such a way that all pointers to a particular type of group occurrence are 
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together. In the example above, the pointers to the three volume information 
group occurrences would be contiguous, even if the group occurrences are 
not. 

Group Occurrences in Extension Records 

This description is designed to show the steps involved in building the group 
of records shown in Figure 5.24. The numbers in parentheses in the descrip- 
tion refer to the record numbers in Figure 5.24. 

Initially, when the base record (1) is created, the group occurrence pointers 
(GOPs) and group occurrences (GOs) are placed in the base record. As 
further GOs and GOPs are added, the available space becomes insufficient 
and the base record must be extended. 

This is done by means of a vertical chain of extension records. GOs are 
moved out of the base record (1) into an extension record (2) to create space 
for GOPs. If necessary, further extension record(s) (3) can be added to this 
vertical chain. The GOs in the extension records are located by means of two 
GOPs: the first GOP, in the base record, points to the extension record, 
where a second GOP with the same group code and sequence number as the 
first, points to the associated GO within the extension record. 

Later, the GOPs in the base record may require more space than is available, 
although all GOs have been moved to the vertical chain. In this case, the base 
record (1) is extended by a horizontal chain. The first record in the horizontal 
chain(4) is located by means of the extension pointer in the base record (1). 
This extension record (4) is now treated similarly to the original base record. 
It first contains both GOPs and GOs, then extended with records in a vertical 
chain (5,6,8), and finally extended horizontally (9). 

If it becomes necessary to store a GO which will not fit into a single record, a 
pseudo-horizontal chain becomes necessary. If this is required within a vertical 
chain (6), the extension record (7) is simply chained with the aid of the 
extension pointer in the record containing the first part of the GO (6). 

A pseudo-horizontal chain is however, not allowed within the horizontal chain 
(1,4,9). Thus, if an overlong GO is encountered at a time where the last 
record in the horizontal chain (9) still contains GOPs, GOs, and free space 
(whicji means that the next GO would normally be placed in this record) an 
artificial vertical chain (10) must first be built. This can the be extended in 
the form of a pseudo-horizontal chain (10,1 1) to hold the GO. 

The first record in a pseudo-horizontal chain always contains an extension 
pointer to the second record and always has a GOP count of 1, because such 
a "spanned" GO may not share a record with any other GO. 
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E N 







n 


GOPs 


GOs 




o 



GOPs 



GOs 



E: Extension pointer field 
N: GOP count field 
n: Actual GOP count 






n 


GOPs 


GOs 




6 L |t 7 I 1 I GOP 1 GO 



ri 




10 L ltll| 1 [GOP 







1 * 





1 


GOP 


...GO 







m 





n 


GOPs 


GOs 








1 


f 





1 


GOP 


...GO 



GO: Group occurence 
GOP: Group occurrence pointer 
GO...GO: OverlengthGO (in 
2 parts) 



Record I: 



Record 2: 
Record 3: 



Base record, containing GOPs pointing to records 2 and 3 (vertical pointers) and an extension pointer to 
record 4 (horizontal pointer). 



Extension record, containing GOs from record 
Extension record, containing GOs from record 



i} 



Vertical 
chain 



Record 4: Extension record in the horizontal chain, containing further GOPs pointing to records 5,6, and 8 (vertical 

pointers) and an extension pointer to record 9 (horizontal pointer). 



Record 5 
Record 6 
Record 7 
Record 8 



Extension record containing GOs from record 4 \ 

Extension record containing 1st part of long GO I Pseudo f Vertical 



Extension record containing 

Extension record containing GOs from record 4 



g 2nd part of long GO j chain I 
e GOs from record 4 / 



chain 



Record 9: Extension record containing further GOPs and GOs (last record in the horizontal chain) 

Record 10: Extension record containing 1st part of long GO 1 Artifical vertical chain 

Record 11: Extension record containing 2nd part of long GO ) with pseudo-horizontal chain 



Figure 5.24 Group occurrences in extension records. 
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Types of Group Occurrences 



The following list shows the various types of group occurrences, and the types 
of catalog records in which they can occur. Note that it is possible for one 
catalog record to contain many group occurrences. 

• AMDSB (Access Method Data Set Statistics Block), which appears in 
Data and Index records. Only one copy of an AMDSB appears in a 
record. A pointer to AMDSB information contains a code of 1. 

• Association information, which occurs in Data, Index, Cluster, Alternate 
Index, Path, and Upgrade Set records. For further details, see Association 
Group Occurrences later in this section. A pointer to association informa- 
tion contains a code of 2. 

• Volume information, which appears in Data, Index, User Catalog, and 
non-VSAM records. This group occurrence describes all of the direct- 
access device space allocated to the data set (or index, etc.) on a particu- 
lar volume. A separate set of volume information fields is used to de- 
scribe the total space on each volume. If the data set's space on a volume 
is divided into key ranges, each key range is described in a separate set of 
volume-information fields. As many sets of volume-information fields as 
are required to describe allocated space can appear. A pointer to volume 
information contains a code of 3. 

• Password information, which can appear in Data, Index, Path, Cluster and 
Alternate index records. This group occurrence contains the security 
information for a data set (or index, etc.). Only one set of password- 
information fields can appear. A pointer to password information con- 
tains a code of 4. 

The following group occurrences occur only in Volume catalog records. 

• Space map group occurrence. This group occurrence describes each track 
on the volume as allocated to a VSAM object or unallocated. Each 
volume record contains as many group occurrences as are necessary to 
reflect the total space on the volume. A pointer to track allocation in- 
formation contains a code of 5. 

• Data space group occurrence. This group occurrence describes a VSAM 
data space on the volume. One group occurrence is required to describe 
each data space and its extents on the volume. A pointer to data-space 
information contains a code of 6. 

• Data set directory entry group occurrence. This group occurrence de- 
scribes a data set that resides in a VSAM data space. One group occur- 
rence is required for each data set. A pointer to data-set information 
contains a code of 8. 
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Association Group Occurrences 



These group occurrences identify the relationships between the various 
records which describe a data set and its associated components. 



Each Cluster, Data, Index, Alternate index, Path, or Upgrade Set catalog 
record can contain one or more association group occurrences, depending on 
the overall configuration of the data set. 

Figure 5.25 shows a possible configuration for a data set which uses all 
possible association group occurrences. It consists of a key-sequenced data 
set (base cluster), an alternate index which belongs to the upgrade set, and 
two paths. Path 1 is defined over the base cluster and serves as an "alias", 
while path 2 is defined over the AIX and is used to address the AlX/base 
cluster combination. 

The arrows in the figure represent the "direction" of the pointers in the group 
occurrences. For example, the base cluster record and the path 1 record 
contain pointers to each other. The path 1 record, however, points only to the 
base index and data records; there is no "backward" pointer from these 
records to the path record. 




Figure 5.25 



Association group occurrences 



Section 5. Data Areas 5.41 



Figure 5.25 shows at least one of each type of association group occurrence. 
If, however, the data set configuration contains more alternate indexes, paths, 
etc. there will be correspondingly more association group occurrences which 
point to the additional components. The base cluster record, for example, will 
have an association group occurrence pointing to each alternate index record. 



Group Occurrence Formats 



The following section shows the format of each type of group occurrence. 



AMDSB Group Occurrence 



The AMDSB group occurrence contains a copy of the AMDSB control block, 
and is updated each time the data set is closed. This group occurrence is 
associated with a pointer that contains a group code of 1. Figure 5.26 shows 
the AMDSB format. 



Field 
Size 



Field Name 



Description 



2 Control information 

Byte Meaning 

Count of the number of variable fields in this 
group occurrence 

1 Hexadecimal displacement to the first variable- 
length field from the beginning of this group 
occurrence 

96 AMDSBCAT AMDSB. Only the first 96 bytes of the AMDSB are 

cataloged. The remainder are ignored. See description 
and format of AMDSB for detailed information, except 
for the following special case in the AMDSBs of an AIX. 

The field at offset 4 of the index AMDSB and of the group 
occurrence is referenced with the name AMDNEST and 
contains the number of entries in an index section. 

In the data AMDSB group occurrence, this field is called 
AMDAXRKP and contains the relative key position (in 
the base cluster record) for this AIX. 

When the AMDSB group occurrences are transferred to 
the AMDSBs at OPEN time, the contents of 
AMDAXRKP are moved to field AMDAIRKP (at offset 
118 decimal) and the field at offset 4 (now again called 
AMDNEST) is loaded with the contents of AMDNEST 
from the index AMDSB. 

Note that this movement of data is carried out by OPEN 
for all AMDSBs, even through the fields may be empty, or 
already contain the correct information. 



Figure 5.26 



AMDSB group occurrence format 



Association Group Occurrence 



The control interval number of a related record is contained in an association 
group occurrence. This group occurrence is associated with a pointer which 
contains a group code of 2. Figure 5.27 shows the format. 
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Field 

Size Field Name 


Description 


2 


Control information 




Byte 


Meaning 







Count of the number of variable fields in this 
group occurrence 




1 


Hexadecimal displacement to the first variable- 
length field from the beginning of this group 
occurrence 


1 TYPE 


'D' 


if this entry describes a Data record 




T 


if this entry describes an Index record 




'C 


if this entry describes a Cluster record 




'G' 


if this entry describes an Alternate Index record 




'R' 


if this entry describes a Path record 




'Y' 


if this entry describes an Upgrade Set record 


3 NAME 


Control interval number of the record specified above 


The following fields are 
Upgrade Set Record * 


present only 


in an association group occurrence located in an 


.1 TYPE2 


T 


This entry can describe only an Index record 


3 NAME2 




Control interval number of the Index record 


1 Each association group occurrence in an Upgrade Set record describes the data 
component (TYPE, NAME) and the index component (TYPE2, NAME2) of an 
alternate index. 



Figure 5.27 



Association group occurrence format 



Volume Information Group Occurrence 

All extents allocated to the data set, index, or data set's key range on a 
volume are described by a volume information group occurrence. This group 
occurrence is associated with a pointer that contains a group code of 3. 
Figure 5.28 shows its format. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 





2 


ENTVOL 


Control information 
Byte Meaning 

Count of the number of variable 
fields in this group occurrence 

1 Hexadecimal displacement to 
the first variable-length field 
from the beginning of this 
group occurrence. 


2 2 


4 


DEVTYP 


Device type 


6 6 


6 


VOLSER 


Volume serial number 


12 C 


2 


FILESEQ 


File sequence number. (This field is used 
for nonVSAM data sets that reside on 
tape volumes.) 



Figure 5.28 



Volume information group occurrence format (part 1 of 2) 
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Offset Bytes and 

Dec Hex Bit Pattern Field Name Description 



14 



1 VOLFLG 

1 



Volume flags, as follows: 

Prime, which indicates that this volume 
was allocated when the data set was de- 
fined or that a data set that is not divided 
into parts according to key has been ex- 
tended to this volume. 
Candidate, which indicates that this 
volume is available for use by the data set 
described by this record. 
Overflow, which indicates that this 
volume is being used by a data set that is 
divided into parts according to key, but 
this volume was not allocated when the 
data set was defined. 
...xxxxx Reserved 

The following fields are used only in Data and Index records 

1 5 F 1 NOEXTNT Number of extents allocated in this set of 

extents on this volume for this data set. 



..1. 



16 10 



HKRBA 



20 


14 


4 


HURBA 


24 


18 


4 


HARBA 


28 


1C 


4 


PHYBLKSZ 


32 


20 


2 


NOBLKTRK 


34 


22 


2 


NOTRKAU 


36 


24 


1 

1 


ITYPEXT 






.1...... 


ARDPRFMT 






..xxxxxx 




37 


25 


2 


DSDIRSN 


39 


27 


Variable 


LOKEYV 



Variable HIKEYV 



Variable EXTENT 



RBA of the data control interval with the 
high key. 

High used RBA on this volume 

High allocated RBA on this volume 

Block size 

Number of blocks per track 

Number of tracks per control area 

Flags: 

In an index record: the sequence set is 

with the data. 

The extents are not preformatted 

Reserved 

Data-set directory sequence number in 
the volume control 

Low key on the volume. This field can be 
a maximum of 64 bytes long; the first two 
bytes indicate the length of the field. For 
non-KSDS files, this field contains two 
bytes of zeros. 

High key on the volume. This field can be 
a maximum of 64 bytes long; the first two 
bytes indicate the length of the field. For 
non-KSDS files, this field contains two 
bytes of zeros. 

The field contains a 2-byte length field, 
followed by a 20-byte field for each ex- 
tent. The 20-byte field describes the start 
and end of the extent, in the form 
SSCCHHCCHHTTDDDDDDDD, 
where SS is the data-space sequence num- 
ber, CCHHCCHH is the low and high 
cylinder and head, TT is the number of 
tracks, and DDDDDDDD is the low and 
high RBA of the extent. 



Figure 5.28 



Volume information group occurrence format (part 2 of 2) 
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Password Group Occurrence 



Password information, if any, is contained in the password group occurrence. 
This group occurrence is associated with a pointer that contains a group code 
of 4. Figure 5.29 shows its format. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








2 




Control information 
Byte Meaning 

Count of the number of variable 
fields in this group occurrence 

1 Hexadecimal displacement to 
the first variable-length field 
from the beginning of this 
group occurrence. 


2 


2 


32 


PASSWORD 


Four eight-character passwords, in the 
following order: MASTER, CONTROL- 
INTERVAL, UPDATE, and READ. 


34 


22 


8 


PASSPRMT 


Password prompting code name that 
allows the operator to provide the correct 
password without displaying the data-set 
name. 


42 


2A 


2 


PASSATMP 


Maximum number of attempts allowed 
for the operator to provide correct pass- 
word. 


44 


2C 


8 


USVRMDUL 


Name of the user's security-verification 
module, if any. 


52 


34 


Variable 


USERAREC 


User-authorization record. The first two 
bytes give the length of the user record 
(up to 256) which is contained in the fol- 
lowing bytes. 



Figure 5.29 



Password group occurrence format 



Space Map Group Occurrence 



The tracks on a VSAM volume are allocated to a VSAM object, or are 
unallocated, as described by the Space Map group occurrence. Each bit 
position describes one track as allocated (bit =0) or unallocated (bit =1). 
This group occurrence is associated with a pointer that contains a group code 
of 5. Figure 5.30 shows its format. 

All tracks on the volume are mapped, starting at cylinder 0, track 0. Any 
tracks not owned by VSAM are marked 'allocated' in order to ensure that 
they are not used by VSAM data sets. 
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Field 

Size Field Name 


Description 


2 


Control information: 




Byte Meaning 




Count of the number of variable-length fields in 
this group occurrence (X'OT) 




1 Hexadecimal displacement to the variable-length 
field from the beginning of the group occurrence 
(X'02'). 


2 


Length of the field BITMAP 


Variable BITMAP 


Portion of the volume bit map (1 to 440 bytes describing 
the allocated/unallocated status of 1 to 3520 tracks). 



Figure 5.30 



Space map group occurrence format 



Data Space Group Occurrence 



Each VSAM data space on the volume is described with a Data Space Group 
ocurrence. This group occurrence is associated with a pointer that contains a 
group code of 6. Figure 5.31 shows its format. 



Bytes and 
Bit Pattern 



Field Name Description 



5 
1 

1....... 



.1 

..1 

...1 .... 
.... 1... 

.... .XXX 

1 



Control information 
Byte Meaning 

Count of the number of variable-length fields in 
this group occurrence (XW). 

1 Hexadecimal displacement to the first variable- 
length field from the beginning of this group oc- 
currence (X'55'). 

DSCBTS Format- 1 DSCB time stamp, which indicates when the 

DSCB was created. The time stamp is part of the name 
given to the format-1 DSCB. 

DSCBPTR CCHHR of the format-1 DSCB 

SPHDFLG Data-space flags 

Unique data space, that is, this data space contains all or 

part of only one VSAM object. 

Shared data space, that is, this data space contains all or 

part of two or more VSAM objects. 

Automatically built data space, that is, this data space 

was built as a result of an end-of-volume request. 

This data space contains a VSAM user catalog. 

This data space contains a VSAM master catalog. 

This data space was built when the user issued an Access 

Method Services DEFINE catalog command. 

Reserved 

NODSPEXT Number of extents in this data space 



Figure 5.31 



Data space group occurrence format (part 1 of 2) 
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Bytes and 
Bit Pattern 



Field Name Description 



10.. 
11.. 



..xxxxxx 

3 



64 



DSPSOPT Data-space allocation options 

Track request, which indicates that primary space was 

allocated in terms of tracks. 

Cylinder request, which indicates that primary space 

was allocated in terms of cylinders. 

Reserved 

DSPSSQ Secondary space allocation quantity by which space is to 

be extended if required. This value is taken either from 
an Access Method Services DEFINE command or from 
the first data set on this volume that caused space to be 
used. This field is used only by OS/VS VSAM. 

SPEXTENT Sixteen 4-byte extent descriptors in the form TTNN: 

TT - starting track number of the extent (relative to the 

beginning of the volume). 

NN - number of tracks in the extent 



Figure 5.31 



Data space group occurrence format (part 2 of 2) 



Derived Data Space Information 



The following field names identify information that is expected, but not 
contained in the data space group occurrence. The information is derived 
from fields in the volume catalog record. Figure 5.32 shows its format. 



Bytes and 
Bit Pattern 



Field Name Description 



1 SPHDFLG Data space flags: 

. . 1 A VSAM user catalog is in this data space 

... 1 .... A VSAM master catalog is in this data space 

xx.. xxxx Reserved 

2 NODSDSP Number of data sets in the data space - this information 

is derived by searching each data and index catalog 
record (pointed to by Data Set Directory Entry group 
occurrences and Cluster catalog records) for a volume 
information group occurrence that contains the 
volume's serial number. Each group occurrence so iden- 
tified is searched to determine if the data set or index 
has been allocated space in one of the data space's ex- 
tents. 

The following field names refer to information about an extent of the data space: 

2 TRKSUSED Number of allocated tracks in the extent - the Space 

Map group occurrence is scanned to determine the num- 
ber of allocated tracks, based on the extent's starting 
track number and total number of tracks (contained in 
SPEXTENT). 



Figure 5.32 



Derived data space information format (part 1 of 2) 
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Bytes and 
Bit Pattern 



Field Name Description 



4 EXTSTART Cylinder and track on which the extent begins - the 

extent's TT value (contained in SPEXTENT) is convert- 
ed to a CCHH value. 

2 NOTRKEXT Number of tracks in the extent - the extent's value 

(contained in SPEXTENT) . 

2 SNSPHD Sequence number of the group occurrence that describes 

the extent's data space - the sequence number of the 
Data Space Group occurrence. 

Variable SPACEMAP A variable-length space map that defines the allocated 

and unallocated space in the extent - the Space map 
group occurrence is converted to the format of this 
variable-length field based on the extent's starting tracks 
number and total length (contained in SPEXTENT). 



Figure 5.32 



Derived data space information format (part 2 of 2) 



Data Set Directory Entry Group Occurrence 

Each data set that resides in a VSAM data space on the volume is described 
with a Data Set Directory Entry group occurrence. This group occurrence is 
associated with a pointer that contains a group code of 8. Its format is shown 
in Figure 5.33. 



Field 

Size Field Name 



DSIDNO 



Description 



Control information 
Byte Meaning 

Count of the number of variable fields in this 
group occurrence (X'OO') 

1 Hexadecimal displacement to the first variable- 
length field from the beginning of this group oc- 
currence. 

Control-interval number of the Data or Index catalog 
record that describes this data set or index. 



Figure 5.33 



Data set directory entry group occurrence format 



Derived Data Set Information 



The following field names identify information that is expected, but not 
contained in, the Data Set Directory Entry group occurrence. The informa- 
tion is derived from fields in the volume catalog record. Figure 5.34 shows its 
format. 
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Bytes and 
Bit Pattern 



Field Name Description 



DSDIRFLG Flags: 



Variable 



DSSPSN 



The Data or Index catalog record identifies the volume 
as a candidate volume -the Data or Index catalog record 
is searched; its volume information group occurrence 

VOLFLG field candidate volume indicator (B'.l ' 

flag) is on. 

A variable-length collection of 3-byte fields that identify 
each data space within which the data set has extents 
allocated to it - this information is obtained by convert- 
ing each volume information group occurrence's extent 
descriptor's (EXTENT) SS value (data space extent's 
sequence number) so that the resulting 3-byte field is: 



Byte 

0-1 



Meaning 

Sequence number of the Data Space Group 



occurrence 



Number of extents (groups of contiguous tracks) 
assigned to the data set or index from the data 
space (limits: 1-123). 



Figure 5.34 



Derived data set information 



Field Name Dictionary 



The field name dictionary (defined in IGGOCLAY) is an internal data area 
that provides a map between field names and fields within catalog records, as 
well as derived information that is not contained in catalog records. The 
dictionary also allows the dictionary user to specify values (for example, the 
number of group occurrences to be processed) by associating them with a 
dictionary name. Using a field name specified in the CTGFL (field parameter 
list), the catalog management modules reference the field name dictionary for 
the location, length, and type of fields. 

The field name dictionary is a series of 8-byte entries. The first four bytes 
contain a shortened field name consisting of the first, second, fifth, and sixth 
character of the field name in IKQCTGFL. Bytes 4-7 of the field name 
dictionary entry describe the field. When a caller makes a request in a 
CTGFL, dictionary information is moved from the dictionary to the CTGFL. 

Figure 5.35 shows the field name dictionary entry format. 
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Offset Bytes and 

Dec Hex Bit Pattern Description 



Shortened field name: the first, second, fifth, and sixth 
characters of the eight-character field name. 

Flags that describe the field. 

Value Meaning 

000 The field is fixed-length and appears in the 
header portion of a record (before the Extension 
record pointer). 

001 A combination field name 1 

010 The field is fixed-length and is part of a group 
occurrence that follows the Extension record 
pointer. 

1 00 The field is variable-length and appears in the 

header portion of a record (before Extension 
record pointer). 

1 10 The field is variable-length and is part of a 
group occurrence that follows the Extension 
record pointer. 

011 Special field 2 

111 Special field 2 

Not a flag field, which means that a CLC 
(compare logical character) instruction can be 
used to test this field. 

1 Flag field, which means that a TM (test under 
mask) instruction can be used to test this field. 

Not a fixed-length field within a variable-length 
field in a group occurrence 

1 A fixed-length field within a variable-length field 
in a group occurrence 

Reserved 

Bytes that identify the location of the field: 

Type of Contents of 



field name: 

Fixed-length: 

In the header: 

In a group occurrence: 

In a group of 
fixed-length fields 
within a 
variable-length field: 

Variable-length: 

Combination: 



this byte: 

Displacement in bytes 
from the 

beginning of the 
record 

beginning of the 
group occurrence 
Length of the group of 
fixed-length fields 



Zero 

Index value in the 
combination-name in- 
dex 



Figure 5.35 



Field name directory entry format (part 1 of 2) 
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Offset Bytes and 

Dec Hex Bit Pattern Description 



6 6 1 Bytes that identify the location of the field (continued): 

Type of Contents of 

field name: this byte: 

Fixed-length: Length of the field (in bytes) 

Variable-length: Sequence number of the field 

Combination: Number of fields identified by the 

combination name 

Value Meaning 

7 7 x Not a non-repeating volume entry field 

1 A non-repeating volume entry field (i.e., a 

header field) 

.xxx xxxx Group code 

1 Combination field name indicates that the name supplied is a name that allows catalog 
management to locate a group of related fields. 

2 The field-name dictionary permits catalog management to locate information that is 
not contained in catalog records. 



Figure 5.35 Field name dictionary entry format (part 2 of 2) 

Combination names are also included in the field name dictionary. Each 
combination name allows catalog management to locate more than one field 
at a time by means of a combination name index. 

The following example shows the relationship of the field name dictionary to 
the combination name index. The three entries in this example are shortened 
field names for NAME, NAMEDS, and TYPE. Since NAME and TYPE are 
only four characters in length, the fifth and sixth characters are blanks. The 
shortened versions, NAb ft and TYb ft , are combinations of the first, second, 
fifth and sixth characters of the original field names. NAMEDS is a combina- 
tion field name that includes fields NAME and TYPE. Thus, byte 5 contains 
an index value (A) that points to the displacement in the combination name 
index (B) which contains, in turn, the displacement of the first field name 
(NAME) in the field name dictionary. Because byte 6 contains a 2 (meaning 
that this combination name includes two field names), the displacement of the 
second field name (TYPE) in the field name dictionary is given in the byte C 
following the first displacement value in the combination name index. 
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Field name 
dictionary 





h 


8 bytes 











1 


2 


3 


4 


5 


6 


7 




















/ 

3 


N 


A 


b 


b 










N 


A 


D 


s 




A 


2 






















/ 


T 


Y 


b 


b 










C <- 

1 " 












\ 







-byte entries 



Combination -*. 
name index 



H 



where 

A, B, C = displacement values 

NAtfc = NAMEbb 

NADS = NAMliDS 

TYtfo = TYPIib.b 



Figure 5.36 



Example of a combination name in field name dictionary 



Figure 5.37 identifies the catalog dictionary entries by field name and briefly 
describes each field. 
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Field 


Record 


Group 




Name 


Type 1 


Code 2 


Description 


AMDSBCAT 


DI 


1 


Combination name that includes 
fields AMDS1, HILIRBA, SSRBA, 
AMDS2, TIMESTMP, CATSTAT 


AMDS1 


DI 


1 


Part of AMDSB 


AMDS2 


DI 


1 


Part of AMDSB 


ATTR1 


DI 


- 


Data set attributes 


ATTR2 


DI 


- 


Data set sharing attributes 


BITMAP 


V 


5 


Portion of volume bit map showing 
the allocated and unallocated tracks 
on a direct-access volume 


BUFSIZE 


DI 


- 


Minimum buffer size 


CATACB^ 






Address of catalog ACB 


CATSTAT 


DI 


1 


Part of AMDSB 


CATVOL 


ADIU 


3 


Combination name 4 that includes 
fields RELREPNO, DEVTYP, VOL- 
SER, FILESEQ, VOLFLG 


CNTREPNO 3 






Maximum number of RELREPNOs 
to be processed 


CRAIDNO 


ACDGIRUVY 


- 


CRA control interval number 


CRADEVT 


ACDGIRUVY 


- 


CRA device type 


CRAVOL 


ACDGIRUVY 


- 


CRA volume serial number 


DATASPAC 


V 


6 


Combination name that includes 
fields RELREPNO, SPHDFLG, 
DSCBPTR, DSCBTS, NODSPEXT, 
DSPSOPT, DSPSSQ, SPEXTENT 


DEVTYP 


ADIU 


3 


Device type 


DEXTENTS 


V 


6 


Combination name that includes 
fields RELREPNO, SPHDFLG, 
NODSPEXT, SPEXTENT 


DIRECTRY 


V 


8 


Combination name that includes 
fields RELREPNO, DSIDNO 


DSATRO 


DI 


- 


Combination name that includes 
fields ATTR 1 , ATTR2, OPENIND 


DSATTR 


DI 


- 


Combination name that includes 
fields ATTR 1, ATTR2 


DSCBPTR 


V 


6 


CCHHR of Fl DSCB 


DSCBTS 


V 


6 


Fl DSCB time stamp 


DSDIRECT 


V 


8 


Combination name that includes 
fields RELREPNO, NODSEXT, 
DSIDNO, DSDIRFLG, DSSPSN 


DSDIRFLG 5 


V 


8 


Flags 


DSDIRSN 


DI 


3 


Data set directory sequence number 
in the extent descriptor of the vol- 
ume information group occurrence 



Figure 5.37 



Catalog dictionary entries (part 1 of 6) 
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Field 


Record 


Group 




Name 


Type 1 


Code 2 


Description 


DSETGRDT 


CDGIR 


_ 


Data set creation date (YDD) 


DSETEXDT 


CDGIR 


- 


Data set expiration date (YDD) 


DSIDNO 


V 


8 


Control interval number of Data or 
Index catalog record that describes 
this data set or index 


DSPDSCRP 


V 


7 


Combination name that includes 
fields RELREPNO, TRKSUSED, 
EXTSTART, NOTRKREXT, 
SNSPHD, SPACEMAP 


DSPSOPT 


V 


6 


Options for data space creation 


DSPSSQ 


V 


6 


Secondary data space allocation 
quantity 


DSSPSN5 


V 


8 


Sequence number and number of 
extents 


DSTYPNAM 


ACDGIRUVY 


- 


Combination name that includes 
fields ENTYPE, ENTIDNO 


ENTIDNO 


ACDGIRUVY 


- 


Control interval number of this 
catalog record 


ENTNAME 


ACDGIRUVY 




Data set name (Data, Index, or 
NonVSAM catalog record), cluster 
name (Cluster catalog record), vol- 
ume serial number (Volume catalog 
record) 


ENTVOL 


DI 


3 


Combination name that includes 
fields RELREPNO, DEVTYP, VOL- 
SER, FILESEQ, VOLFLG, 
NOEXTNT, HKRBA, HURBA, 
HARBA, PHYBLKSZ, 
NOBLKTRK, NOTRKAU, ITY- 
PEXT, DSDIRSN, LOKEYV, HIK- 
EYV, EXTENT 


ENTYPE 


ACDGIRUVY 


- 


Catalog record type 


EXCPEXIT 


DI 


- 


Exception exit 


EXTENT 


DI 


3 


Extent descriptors 


EXTSTART5 


V 


7 


Cylinder and track on which extent 
begins 


EXTVOL 


DI 


3 


Combination name that includes 
fields RELREPNO, DEVTYP, ITY- 
PEXT, EXTENT 


FILESEQ 


ADIU 


3 


File sequence number for a 
nonVSAM data set that resides on 
tape volume(s) 


GENDSP 3 






Generated data space name 


HARBA 


DI 


3 


High-allocated RBA on this volume 
for this data set 


HARBADS 


DI 




High-allocated RBA of the data set 
or index (not always the same as 
HARBA if the data set resides on 
more than one volume) 
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Catalog dictionary entries (part 2 of 6) 
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Field 
Name 



Record 
Type 1 



Group 

Code 2 Description 



HIKEYV 



HILIRBA 
HKRBA 



ITYPEXT 
LOKEYV 



DI 



DI 
DI 



HKURBA 


DI 


3 


HURBA 


DI 


3 


HURBADS 


DI 


. 



DI 
DI 



LRECL 


DI 


MAPSPACE 


V 


NAME 


CDGIRY 


NAME2 


Y 


NAMEDS 


CDGIRY 


NOBLKTRK 


DI 


NODSDSP 5 


V 


NODSET5 


V 


NODSEXT5 


V 


NODSPACE 5 


V 


NODSPEXT 


V 


NOEXTNT 


DI 


NOTRKAU 


DI 


NOTRKEXT 5 


V 


OPENIND 


DI 



3 Key-sequenced data set's high key 

value on a volume or, if the data set 
is divided into key ranges, the key 
range's high key value 

1 AMDSB high-level index RBA 

3 RBA of the record containing the 

high key of a key-sequenced data set 
on a volume or, if the data set is di- 
vided into key ranges, the key 
range's high key value 

Combination name that includes 
fields HKRBA, HURBA 

High-used RBA on this volume for 
this data set 

High-used RBA for the data set or 
index (not always the same as HUR- 
BA if the data set resides on more 
than one volume) 

3 Flag 

3 Key-sequenced data set's low key 

value on a volume, or if the data set 
is divided into key ranges, the key 
range's low key value 

Logical record size (data set) or 
X'FF' (index) 

5 Combination name that includes 
fields RELREPNO, BITMAP 

2 Control interval number of associat- 
ed catalog record 

2 Control interval number of associat- 

ed catalog record 

2 Combination name that includes 
fields TYPE, NAME 

3 Number of blocks per track 

6 Number of data sets in this data 
space 

Number of data sets on this volume 

8 Number of data set directory extents 

Number of data spaces on this 
volume 

6 Number of extents in this data space 

3 Number of extents allocated in this 

set of extents on this volume for this 
data set 

3 Number of tracks per allocation unit 

7 Number of tracks in extent 
Open indicator flag 
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Catalog dictionary entries (Part 3 of 6) 
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Field 
Name 


Record 
Type 1 


Group 
Code 2 


Description 


0PNCALL1 


DI 


- 


Combination name that includes 
fields SPACOPTN, BUFSIZE, ENT- 
NAME, HURBADS 


OWNERID 


CDGIR 


- 


Data set owner identification 


PASSATMP 


CDGIR 


4 


Maximum number of attempts 
allowed operator to provide correct 
password 


PASSPRMT 


CDGIR 


4 


Password prompting code name for 
security verification 


PASSWALL 


CDGIR 


4 


Combination name that includes 
fields PASSWORD, PASSPRMT, 
PASSATMP, USVRMDUL, USER- 
AREC 


PASSWORD 


CDGIR 


4 


Four 8-character password 


PHYBLKSZ 


DI 


3 


Physical block size 


PRIMSPAC 


DI 


- 


Primary space allocation 


RELCRA 


ACDGIRUVY 




Combination name that includes 
fields RELIND, CRAVOL, CRAID- 
NO, CRADEVT 


RELIND 


ACDGIRUVY 


- 


VSAM release indicator 


RELREPNO 3 






Two-byte relative repetition number 


REPNO 3 






Two-byte highest repetition number 
found 


RGATTR 


GR 


- 


Path/alternate index attributes 


SCONSPAC 


DI 


- 


Secondary space allocation require- 
ment 


SNSPHD5 


V 


7 


Sequence number of the group 
occurrence that describes extent's 
data space 


SPACEHDR 


V 


6 


Combination name that includes 
fields RELREPNO, DSCBTS, 
DSCBPTR, SPHDFLG, NODSDSP, 
NODSPEXT, DSPSOPT, DSPSSQ 


SPACEMAP 5 


V 


7 


Data space map that defines 
allocated and unallocated space in 
the extent 


SPACOPTN 


DI 


- 


Space options flags 


SPACPARM 


DI 




Combination name that includes 
' fields PRIMSPAC, SCONSPAC, 
SPACOPTN 


SPEXTENT 


V 


6 


Extent descriptors 
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Catalog dictionary entries (Part 4 of 6) 
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Field 


Record 


Group 




Name 


Type 1 


Code 2 


Description 


SPHDFLG 5 


V 


6 


Data space flags 


SSRBA 


DI 


1 


AMDSB sequence-set RBA 


SYSEXTDS 


V 


- 


Number of system-allowed extents 
per suballocation request 


TIMESTMP 


DI 


1 


AMDSB time stamp 


TRBAEXT^ 


DI 


3 


This is a test RBA for EOV mount 
by RBA 


TRKSUSED5 


V 


7 


Number of allocated tracks per 
extent 


TYPE 


CDGIRY 


2 


Associated catalog record type 


TYPE2 


Y 


2 


Associated catalog record type 


UPDVOL 


DI 


3 


Combination name that includes 
fields RELREPNO, DEVTYP, VOL- 
SER, FILESEQ, VOLFLG, 
NOEXTNT, HKRBA, HURBA, 
HARBA, PHYBLKSZ, 
NOBLKTRK, NOTRKAU, ITY- 
PEXT, DSDIRSN, LOKEYV, HIK- 
EYV 


UPGRADE 


Y 


2 


Combination name that includes 
fields TYPE, NAME, TYPE2, 
NAME2 


USERAREC 


CDIGR 


4 


User authorization record 


USERINFO 


DI 


- 


User information for DOS/VS 
ISAM Interface Program 


USVRMDUL 


CDIGR 


4 


User security verification module 
name 


VOLDEV 


DI 


3 


Combination name that includes 
fields DEVTYP, PHYBLKSZ, 
NOBLKTRK, NOTRKAU 


VOLDVCHR 


V 


- 


Device characteristics 


VOLEXT 


DI 


3 


Combination name that includes 
fields RELREPNO, VOLSER, 
DSDIRSN, EXTENT 


VOLFLG 


ADIU 


3 


Volume flags 


VOLPHY 


DI 


3 


Combination name that includes 
fields RELREPNO, VOLSER, 
VOLFLG, NOEXTNT, HKRBA, 
HURBA, HARBA, ITYPEXT, 
LOKEYV, HIKEYV, EXTENT 


VOLRFLG 


V 


- 


Volume record flags 


VOLSER 


ADIU 


3 


Volume serial number 


VOLTSTMP 


V 


- 


Volume time stamp 
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Catalog dictionary entries (Part 5 of 6) 
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1 Record type indicates which catalog record contains the field name: 

A-non-VSAM 

C- Cluster 

D-Data 

G - Alternate index 

I - Index 

R-Path 

U - User catalog 

V- Volume 

Y - Upgrade set 

2 Group code indicates which group occurrence contains the field: 

- Field is in the header portion of the record, not associated with any group occur- 
rence 

1 AMD SB group occurrence 

2 Association group occurrence 

3 Volume information group occurrence 

4 Password group occurrence 

5 Space map group occurrence (contained only in a Volume catalog record) 

6 Data space group occurrence (contained only in a Volume catalog record) 

7 Space descriptor group occurrence (derived) 

8 Data set directory entry group occurrence (contained only in a Volume catalog 
record) 

3 Special names not contained in the catalog; their values are derived from other sources, 
in most cases to locate repetitive data and control processing. 

4 Combination names allow catalog management to locate more than one field at a time 

5 These field names identify information that is expected, but not contained in, the data 
space or data set directory group occurrences. The information is derived from fields 
in the Volume catalog record. _^ 
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Catalog dictionary entries (Part 6 of 6) 



To clarify the use of the dictionary as a means of gaining access to catalog 
information, refer to the examples that follow. 



Dictionary Example 1 



The DSETCRDT (data set creation date) field appears in the dictionary, as 
follows: 



C4E2C3D900650300 

The first 00 is the fifth-byte value of the record; it indicates that DSETCRDT 
is (a) a fixed-length field, (b) not part of a group occurrence, and (c) not a 
flag field. 

The 65 is the sixth-byte value of the record; it indicates, that DSETCRDT is 
at displacement X" 65" from the beginning of the record in which it appears. 

The 03 is the seventh-byte value of the record; it indicates that DSETCRDT 
is three bytes long. 

The 00 is the eighth-byte value of the record; it is zero because DSETCRDT 
is not part of a group occurrence and, therefore, is not associated with a 
group occurrence code. 

Although the dictionary entries are 8 bytes long, only the first, second, fifth, 
and sixth characters of the field name appear. For DSETCRDT, only DSCR 
(C4E2C3D9) appears. 
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Dictionary Example 2 

The DSPSOPT (data-space-creation space options) field appears in the 

dictionary, as follows: 

C4E2D6D750130106 

The 50 is the fifth-byte value of the record; it indicates, when converted to 
binary, that DSPSOPT is (a) a fixed-length field that is part of a group 
occurrence, (b) a flag field, and (c) not a repeating field within a variable- 
length field. 

The 13 is the sixth-byte value of the record; it indicates that DSPSOPT is at 
displacement X'13' from the beginning of the record in which it appears. 

The 01 is the seventh-byte value of the record; it indicates that DSPSOPT is 
one byte long. 

The 06 is the eighth-byte value of the record; it indicates that DSPSOPT is 
part of a group occurrence associated with a code of 6, which means that it is 
part of a group occurrence that contains VSAM data-space information. 
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Control Block Description and Format 



Access Method Block List (AMBL) 



The AMBL describes a VSAM cluster and points to the cluster's data set and 
index AMDSBs. When the cluster is opened, an AMBL is built to describe 
the cluster. AMDSBs are built to describe the cluster's data set and, if the 
cluster is key-sequenced, to describe the index. The AMBL is pointed to by 
the cluster's ACB (ACBAMBL). Figure 5.38 shows the AMBL format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 










AMBLST 




Beginning of AMBL 








1 


AMBLID 


x'ir 


AMBL identifier 


1 


1 


1 


AMBLACT 




AMBL active byte 
(X'FF'=AMBL is active) 


2 


2 


2 


AMBLLEN 




Length of control block 


4 


4 


4 


AMBLDTA 




Pointer to data AMDSB 


8 


8 


4 


AMBLIX 




Pointer to index AMDSB 


12 


C 


4 


AMBLPLHF 




Pointer to first PLH* 


16 


10 


4 


AMBCHAIN 




Reserved 


20 


14 


4 


AMBLACB 




Pointer to ACB 


24 


18 


2 


AMBLPLHL 




Length of PLH* 


26 


1A 


1 


AMBLPLHN 




Total number of strings* 


27 


IB 


1 


AMBLFLAG 




Flag byte 








AMBLPOST 


X'80' 


POST must be issued 


28 


1C 


4 


AMBAMBUF 




Size of buffer space 


32 


20 


2 


AMBMACRF 




Flags (copy of flags in 
ACBMACR1 and 
ACBMACR2) 


32 


20 


1 


AMBMACR1 




First byte: 








AMBKEY 


X'80' 


Access data via index or relative 
record number 








AMBADD 


X'40' 


Access via RBA 








AMBADR 


X'40' 


Access via RBA 








AMBCNV 


X'20' 


Control interval processing 








AMBSEQ 


X'10' 


Sequential processing 








AMBDIR 


X'08' 


Direct processing 








AMBIN 


X'04' 


GET, READ processing 








AMBOUT 


X'02' 


PUT, WRITE processing 








AMBUBF 


x'or 


User buffers 


* 


When LSR is active, 


AMBLRPHD^O, and AMBLSR in AMBMACR2 is set on. 




In this 


case, the fields indicated by the asterisk refer to the PLH pool. 



Figure 5.38 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 


33 


21 


1 


AMBMACR2 




Second byte: 








AMBLSR 

AMBDFR 

AMBSKP 

AMBRST 

AMBAIX 

AMBJRACT 

AMBOPEN 


X'80' 
X'40' 
X'20' 
X'10' 
XW 
X'02' 

x'or 


Local shared resources 
Defer writing of buffers 
Skip sequential accessing 
Reusable Data Set 
AIX processing 
JRNAD exit enabled 
Open is in process 


34 


22 


2 


AMBLTLEN 




Length of GETVIS for close 
work area 


36 


24 


2 


AMBDBUF 




Number of data buffers 


38 


26 


2 


AMBIBUF 




Number of index buffers 


40 


28 


4 


AMBLOPWA 




Pointer to open work area 










Split Control 


44 


2C 


4 


AMBSECB 




Split/pseudo-split ECB 


44 


2C 


1 


AMBSO 




Reserved 


45 


2D 


1 


AMBS1 




Reserved 


46 


2E 


1 


AMBSCOM 




ECB post byte 








AMBSWAIT 


X'80' 


Wait bit-share 


47 


2F 


1 


AMBSECBT 




Share gate-test and set byte 


48 


30 


4 


AMBBECB 




ECB for Buffer Manager 


48 


30 


1 


AMBB0 




Reserved 


49 


31 


1 


AMBB1 




Reserved 


50 


32 


1 


AMBBCOM 




ECB Post byte 








AMBBWAIT 


X'80' 


Wait bit-buffer manager 


51 


33 


1 


AMBBECBT 




Buffer gate-test and set byte 


52 


34 


4 


AMBLORBA 




Low RBA of control area being 
split 


56 


38 


4 


AMBHIRBA 




High RBA of control area being 
split 


60 


3C 


1 


AMBSTRID 




ID of string which holds control 
area. 


61 


3D 


1 






Reserved. 


62 


3E 


2 






Reserved. 


64 


40 


4 


AMBPLH 




Address of PLH in control 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 










Pointers 




68 


44 


4 


AMBALIST 




Address of RSCB list 


72 


48 


4 


AMBLRPLS 




Address of RPL causing split 


76 


4C 


4 


AMBLCLWA 




Pointer to close work area 


80 


50 


4 


AMBLCIWA 




Pointer to CI split work area 


84 


54 


4 


AMBLBC 




Pointer to base cluster PLH 
pool 


88 


58 


4 


AMBLUSB 




Pointer to USB 


92 


5C 


4 


AMBBCACB 




Pointer to base cluster ACB 


96 


60 


4 


AMBPEACB 




Pointer to path entry ACB 


100 


64 


4 


AMBLRPHD 




Pointer to resource pool header 


104 


68 





AMBLEND 




End of AMBL 



Figure 5.38 



Access Method Block List (AMBL) description and format (part 3 of 3) 



Access Method Control Block (ACB) 



The VSAM ACB describes a VSAM cluster. It is built by the user's program. 
The ACB points to the Exit List (EXLST). After the cluster is opened, the 
ACB is pointed to by the RPL (RPLDACB) that describes the user's record 
processing request. The ACB also describes the processing options, password, 
and I/O buffer space applicable to the user's program. The description and 
format of the ACB are shown in Figure 5.39. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 











ACBST 












1 


ACBID 




ACB identifier = 'A0' 








ACBIDD 


X'AO' 


ACB equate 








ACBIDVAL 


X'AO' 


ACB equate 


1 


1 


1 


ACBSTYP 


XW 
X'10' 
X'20' 


Release indicator 
VSAM Release 1 
VSAM Release 2 
VTAM 


2 


2 


2 


ACBLEN 




Length of ACB in bytes 


2 


2 


2 


ACBLENG 




Length of ACB in bytes 1 


4 


4 


4 


ACBAMBL 




Address of the AMBL 


8 


8 


4 


ACBAM0 




Pointer to VSAM code 


12 


C 


1 


AGBACT 




ACB active byte (X'FF'=ACB is 
active). 


1 If specified length is 
(X'OO'inbytel). 


too small for a VSAM Release 2 ACB, a Release 1 ACB is built 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


13 


D 


1 


ACBINFLG 




Catalog recovery flags 








ACBSCRA 


X'80' 


ACB is for a system-initiated 
OPEN of the CRA 








ACBUCRA 


X'40' 

X'20' 
X'10' 


ACB is for a user-initiated 
OPEN of the CRA 
Reserved for CRA 
Reserved for CRA 








ACBSTSKP 


X'08' 
X'04' 
X'02' 
X'01' 


Skip updating of statistics 
Reserved for CMS 
Reserved for CMS 
Reserved for CMS 


14 


E 


2 


ACBDBUF 




Number of data buffers 


14 


E 


2 


ACBBUFND 




Number of data buffers 


16 


10 


2 


ACBIBUF 




Number of index buffers 


16 


10 


2 


ACBBUFNI 




Number of index buffers 


18 


12 


2 


ACBMACRF 




MACRF 


18 


12 


1 


ACBMACR1 




MACRF first byte 








ACBKEY 


X'80' 


Access data via index or relative 
record number 








ACBADD 


X'40' 


Access via RBA 








ACBADR 


X'40' 


Access via RBA 








ACBCNV 


X'20' 


Control interval processing 








ACBSEQ 


X'10' 


Sequential processing 








ACBDIR 


X'08' 


Direct processing 








ACBIN 


X'04' 


GET 








ACBOUT 


X'02' 


PUT 








ACBUBF 


X'01' 


User buffers 


19 


13 


1 


ACBMACR2 




MACRF second byte 








ACBLSR 


X'80' 


Local shared resources 








ACBDFR 


X'40' 


Defer writing of buffers 








ACBSKP 


X'20' 


Skip sequential access 








ACBRST 


X'10' 


Reusable data set 








ACBAIX 


X'08' 


AIX processing only 








ACBJRACT 


X'02' 


JRNAD exit active 


20 


14 


1 


ACBDOSID 




DOS DTF identifier 








ACBDTFID 


X'28' 


DTF type for VSAM 


21 


15 


1 


ACBOFLGS 




Open/close flags 








ACBVOLMT 


X'80' 


Verify volume mounted 








ACBVMSG 


X'40' 


Message requested bit 








ACBEOV 


X'20' 


EOV detects completed 








ACBOPEN 


X'10' 


ACB is open 








ACBCAT 


X'08' 


ACB for VSAM catalog 








ACBEXFG 


X'04' 


User exit flag 








ACBSUB 


X'02' 


ACB is suballocated (is located 
in a control block allocation 
unit) 








ACBKEYOK 


X'01' 


Key processing all right for this 
ACB 


22 


16 


1 


ACBNST 




Number of strings 


22 


16 


1 


ACBSTRNO 




Number of strings 
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Offset 
Dec Hex Bytes Field Name 


Hex. 
Digit 


Description 


23 17 1 


ACBERFLG 




Error flags 






Open error return codes: 




ACBOALR 


X'04' 


This ACB is already open 




ACBOLLUB 


X'OE' 


The symbolic unit in the DLBL 
statement is invalid. 




ACBONJIB 


X'OF 


No job information blocks 
(JIBs) are available from the la- 
bel information cylinder. 




ACBOLIGN 


x'ir 


The address in the ASSGN 
statement for the logical unit 
was IGN (assignment ignored). 




ACBOLUNA 


X'12' 


The address in the ASSGN 
statement for the logical unit 
was UA (logical unit unas- 
signed). 




ACBOCEXT 


X'22' 


The volume serial numbers 
specified in the EXTENT state- 
ment do not match those speci- 
fied in the catalog entry. 




ACBOCDLD 


X'32' 


Unable to load VSAM modules 
via a CDLO AD macro instruc- 
tion. 




ACBONMNT 


X'50' 


Attempt to mount two volumes 
on the same drive when direct 
or keyed processing was speci- 
fied. Or the operator failed to 
mount the volume. 




ACBONCRA 


X'5C 


CRA volume not mounted 




ACBOIERR 


X'60' 


Unusable input data set 




ACBOUEMP 


X'64' 


Empty upgrade AIX 




ACBOTMST 


X'68' 


The time stamp of the volume 
on which a data set is stored 
doesn't match the system time 
stamp in the volume catalog en- 
try. 




ACBOTIME 


X'6C 


The system time stamps of a 
data set and its index do not 
match. This indicates that the 
data has been updated separate- 
ly. This test is greater than or 
equal, i.e., no warning is given 
if the index time stamp is great- 
er than the data time stamp. 




ACBOEMPT 


X'6E' 


Open empty data set for read 
only. 




ACBODSNC 


X'74' 


Data set was not closed the last 
time it was processed. 




ACBODEVT 


X'75' 


The symbolic unit specified in 
the EXTENT statements is not 
a valid VSAM device type. 




ACBONDLB 


X'80' 


The DLBL statement is missing 
or the filename in the DLBL 
doesn't match the ACB. 
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Offset 
Dec Hex Byt 


es Field Name 


Hex. 
Digit 


Description 




ACBOIOER 


X'84' 


A permanent I/O error occur- 
red while VSAM was reading 
label information from the label 
information cylinder. 




ACBONVRT 


X'88' 


Not enough virtual storage 
space is available in the parti- 
tion for work areas, control 
blocks, or buffers. 




ACBOIOCA 


X'90' 


A permanent I/O error occur- 
red while VSAM was reading or 
writing a catalog entry. 




ACBONCAT 


X'94' 


No entry was found in the 
catalog for this ACB. 




ACBOSECU 


X'98' 


Security verification failed; the 
password specified in the ACB 
for a specific level of access 
doesn't match the password in 
the catalog for that level of ac- 
cess. 




ACBOPARC 


X'AO' 


The operands specified in the 
ACB are inconsistent with each 
other or with the information in 
the catalog entry, for example, 
an open of an ESDS for keyed 
processing. 




ACBOKBUF 


X'Al' 


User-specified buffers with 
keyed access (user buffers can 
be specified only with CNV ac- 
cess). 




ACBOIOVL 


X'A4' 


A permanent I/O error occur- 
red while VSAM was reading 
the volume label of the volume 
the data set is on. 




ACBONAVA 


X'A8' 


The data set is not available 
because it is being updated by 
(under the exclusive control of) 
another ACB or has been ex- 
ported by Access Method Ser- 
vices. 




ACBONOCT 


X'B4' 


The VSAM catalog is not 
connected to the system on logi- 
cal unit SYSCAT, or insuffi- 
cient virtual storage available 
for OPEN. 




ACBOACT 


X'BC 


ACB was active 




ACBOOERR 


X'CO' 


Unusable output data set 




ACBOPEMP 


X'C4' 


Access via empty path 




ACBODSCB 


X'C8' 


Format-4 label error 




ACBOCNVP 


X'EO' 


Invalid control interval process- 
ing 




ACBONRST 


X'E8' 


Non-reusable is not empty 




ACBOCTER 


X'FF' 


Unexpected return from catalog 
locate function. 



Figure 5.39 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 










Close < 


srror return codes 










X'02' 


Invalid control block, or ACB 
address not in OAL 








ACBCALR 


X'04' 


ACB already closed 








ACBCNVRT 


X'88' 


Insufficient space available in 
user's partition for work area. 








ACBCIOCA 


X'90' 


Permanent I/O error occurred 
while VSAM was reading or 
writing a catalog entry. 








ACBCNCAT 


X'94' 


No catalog entry found 








ACBCIOER 


X'B8' 


Permanent I/O error occurred 
while VSAM was completing 
outstanding I/O requests. 








ACBCBUSY 


X'BC 


ACB busy. 


24 


18 


4 


ACBAMBUF 




Length of buffer pool 


28 


1C 


8 


ACBDDNM 




DDname 


36 


24 


4 


ACBPRTCT 




Pointer to password 


40 


28 


4 


ACBUAPTR 




Pointer to user work area, or to 
CAXWA if ACB is for a catalog 


44 


2C 


4 


ACBBFPL 




Pointer to first data buffer in 
buffer pool 


48 


30 


4 


ACBEXLST 




User exit list pointer 


52 


34 


4 


ACBNXT 




Reserved 


56 


38 


1 






Reserved 


57 


39 


1 






Reserved 


58 


3A 


2 


ACBMSGLN 




Message area length 


60 


3C 


4 


ACBMSGAR 




Message area 


64 


40 


4 






Reserved 


68 


44 





ACBEND 




End of ACB 



Figure 5.39 
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Access Method Control Block Structure (AMCBS) 



The AMCBS is pointed to by the Anchor Table (ANCHT) and, in turn, 
points to the VSAM catalog's ACB and CAXWA. Figure 5.40 shows the 
description and format of the AMCBS. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








1 


CBSII> 


X'00' 


AMCBS identifier 


1 


1 


1 


CBSFLAGS 




AMCBS flags 








CBSJCAT 


X'80' 


Job catalog not present 


2 


2 


2 


CBSSIZ 




Length of the AMCBS 


4 


4 


4 


CBSCRACB 




Pointer to CRA ACB 


8 


8 


4 


CBSACB 




Pointer to ACB (Master) 


12 


C 


4 


CBSCRAPL 




Pointer to AMS CRA parame- 
ter list. 


16 


10 


4 


CBSSYSUC 




Pointer to job catalog ACB 


20 


14 


4 


CBSCAXCN 




Pointer to CAXWA chain 


24 


18 


4 


CBSCBMM 




Pointer to Control Block 
Manipulation Macro load mo- 
dule 



Figure 5.40 



Access Method Control Block Structure (AMCBS) description and format 
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Access Method Data Statistics Black (AMDSB) 



The AMDSB contains statistical information about record processing in the 
data set. It also contains some of the data set's attributes and specifications. 
The AMDSB is built, using the data index or index catalog record's AMDSB 
group occurrence, when the cluster is opened. The AMBL 
(AMBLDTA/AMBLIX) points to the data and index AMDSBs. Figure 5.41 
showfc the description and format of the AMDSB. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 










General 












AMDCOMM 




Common part 








1 


AMDSBID 


X'60' 


AMDSB identifier 


1 


1 


1 


AMDATTR 
AMDATTR1 




Attributes of the data set 
Attributes (first byte): 








AMDDST 


X'80' 


Key-sequenced data set 








AMDWCK 


X'40' 


Check each record when it is 
written 








AMDSDT 


X'20' 


Sequence set is stored with the 
data 








AMDREPL 


X'10' 


Replication 








AMDORDER 


X'08' 


Use the volumes in the same 
order as in the volume list 








AMDRANGE 


XW 


The data set is divided into key 
ranges 








AMDRRDS 


X'02' 


Relative record data set 








AMDSPAN 


XW 


Spanned records 


2 


2 


2 


AMDLEN 




Length of AMDSB in the 
catalog 


4 


4 


2 


AMDNEST 




Number of entries in an index 
section (in all cases except 
AMDSB group occurrence in 
data record of AIX) 1 


4 


4 


2 


AMDAXRKP 




Relative key position in base 
record (only for AMDSB group 
occurrence in data record of a 
AIX)1 


6 


6 


2 


AMDRKP 




Relative key position 


8 


8 


2 


AMDKEYLN 




Key length 


10 


A 


1 


AMDPCTCA 




Percentage of free control 
intervals in the control area 


11 


B 


1 


AMDPCTCI 




Percentage of free bytes in the 
control interval 


12 


C 


2 


AMDCIPCA 




Number of control intervals in a 
control area 


14 


E 


2 


AMDFSCA 




Number of free control inter- 
vals in a control area 



Figure 5.41 Access Method Data Statistics Block (AMDSB) description and format 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


16 


10 


4 


AMDFSCI 




Number of free bytes in a 
control interval 


20 


14 


4 


AMDCINV 




Control interval size 


24 


18 


4 


AMDLRECL 




Maximum record size 


28 


1C 


4 


AMDHLRBA 




RBA of the high-level index 
record 


28 


1C 


4 


AMDNSLOT 




Number of relative record slots 


32 


20 


4 


AMDSSRBA 




RBA of first sequence set record 


32 


20 


4 


AMDMAXRR 




Max. relative record number 


36 


24 


4 


AMDPARDB 




Pointer to first ARDB 


40 


28 


1 


AMDATTR3 




Attributes 








AMDUNQ 


X'80' 
X'00' 


Non-unique keys in AIX 
Unique keys in AIX 


41 


29 


3 






Reserved 


44 


2C 


4 






Reserved 










Statistics 


48 


30 




AMDSTAT 




Statistics 


48 


30 


8 


AMDSTMST 




System time stamp 


48 


30 


8 


AMDSTSP 




System time stamp 


56 


38 




AMDSTAT 1 






56 


38 


2 


AMDNIL 




Number of index levels 


58 


3A 


2 


AMDNEDB 




Number of EDBs 


58 


3A 


2 


AMDNEXT 




Number of extents in the data 
set 


60 


3C 


4 


AMDNLR 




Number of user-supplied 
(logical) records in the data set 


64 


40 


4 


AMDDELR 




Number of deleted records 


68 


44 


4 


AMDIREC 




Number of inserted records 


72 


48 


4 


AMDUPR 




Number of updated records 


76 


AC 


4 


AMDRETR 




Number of retrieved records 


80 


50 


4 


AMDASPA 




Number of bytes of free space 
in the data set 


84 


54 


4 


AMDNCIS 




Number of times a control 
interval was split 


88 


58 


4 


AMDNCAS 




Number of times a control area 
was split 


92 


5C 


4 


AMDEXCP 




Number of times EXCP was 
issued by VSAM I/O routines 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 










General Continue 


96 


60 


1 


AMDSHOPT 




Share option byte 








AMDSHR1 


X'80' 


Share option 1 








AMDSHR2 


X'40' 


Share option 2 








AMDSHR3 


X'20' 


Share option 3 








AMDSHR4 


X'10' 


Share option 4 


97 


61 


4 


AMDCDSN 




Pointer to catalog ACB 


101 


65 


3 


AMDDSN 




Catalog control interval number 
for data (index) 


104 


68 


4 


AMDHWRBA 




High-water RBA for the data 
set 


108 


6C 


1 


AMDATTR2 




Attributes (second byte): 








AMDREL 


X'80' 


Release unused space 








AMDLOAD 


X'40' 


Load mode 








AMDSPEED 


X'20' 


Speed option 








AMDINDX 


X'10' 


Index option 








AMDSHR 


X'08' 


Sharing 








AMDKR 


X'04' 


Key-range processing, duplicate 
of AMDRANGE 








AMDCAT 


x'or 


AMDSB for catalog 


109 


6D 


1 


AMDACT 




AMDSB test and set byte 


110 


6E 


2 


AMDFILT 




User area (ISAM compatibility) 


112 


70 


4 


AMDPVOL 




Pointer to volume list 


116 


74 


1 


AMDAMS 




AMS flag byte 








AMDAIX 


X'80' 


Alternate index 








AMDPATH 


X'40' 


Access via path 








AMDBASE 


X'20' 


Access via base 


117 


75 


1 






Reserved 


118 


76 


2 


AMDAIRKP 




Relative key position in base 
record (only in data AMDSB of 
AIX)1 










Local Statistics 


120 


78 




AMDLSTAT 




Local statistics 


120 


78 


2 


AMDLNIL 




Local number of index levels 


122 


7A 


2 


AMDLNEST 




Local number of entries in the 
index section 


124 


7C 


4 


AMDLNLR 




Local number of user-supplied 
(logical) records 


128 


80 


4 


AMDLDELR 




Local number of deleted 
records 


132 


84 


4 


AMDLIREC 




Local number of inserted 
records 


136 


88 


4 


AMDLUPR 




Local number of updated 
records 


140 


8C 


4 


AMDLRETR 




Local number of retrieved 
records 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


144 


90 


4 


AMDLASPA 




Local bytes of free space 


148 


94 


4 


AMDLNCIS 




Local number of control 
interval splits 


152 


98 


4 


AMDLNCAS 




Local number of control area 
splits 


156 


9C 


4 


AMDLEXCP 




Local number of EXCPs issued 
by VSAM I/O routines 










Exception Exit 


160 


A0 


8 


AMDEXEXT 




Exception exit 










Buffer Mangement Information 


168 


A8 


2 


AMDBCBNO 




Number of buffers 


170 


AA 


2 


AMDBFREE 




Number of unassigned buffers 


172 


AC 


4 


AMDFSBCB 




Address of the first BCB (for 
LSR: address of the BSPH) 


176 


BO 


4 


AMDFFBCB 




Address of the first free BCB 


180 


B4 


4 


AMDCCWA 




Pointer to CCW build area 


184 


B8 


8 






Reserved 










EDB Header 


192 


CO 


4 


AMDFSEDB 




Address of first EDB 


196 


C4 


2 






Reserved 


198 


C6 


2 


AMDLEDB 




Length of EDB 


!For 


more 


details of these fields, see the explanation of the AMD SB group occurrence. 



Figure 5.41 Access Method Data Statistics Block (AMDSB) description and format 

(part 4 of 4) 



Access Method Define The File (AMDTF) Table 



The AMDTF table, used by the ISAM interface program, is an extension to 
each ISAM DTF table which a VSAM data set is associated. It contains all 
the information necessary to process the VSAM data set that is not contained 
in the DTF table. The AMDTF table is contained in preformatted form in the 
core image library. It is loaded by IIPOPEN the first time an OPEN is issued 
for a file and is completed by IIPOPEN at this time. Figure 5.42 shows the 
description and format of the AMDTF. 



Section 5. Data Areas 5.71 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








72 


SAVARPP 




Used to store register contents 
of problem program 


72 


48 


72 


SAVARCI 




ISAM interface program save 
area 


144 


90 


4 


ACBAD 




Address of ACB 


148 


94 


4 






X'0A020000' 
(SVC2) 


152 


98 


4 


RPLAD 




Address of RPL 


156 


9C 




EREPL 




Error exit parameter list (Valid 
only if ERREXT=YES is speci- 
fied in DTFIS.) 


156 


9C 


4 


DTFISAD 




Address of DTFIS 


160 


A0 


4 


EPLRECAD 




Address of record in error (not 
supported by IIP) 


164 


A4 


8 


EPLDASDA 




DASD address of record in 
error (not supported by IIP) 


172 


AC 


1 


EPLRECID 




Record identification 








EPRLRECID 
EPLXREC 

EPLCXREC 

EPLMXREC 

EPLREAD 
EPLWRITE 


X'80' 
X'40' 

X'20' 

X'10' 

X'02' 

x'or 


Data record (VSAM data set) 

Index record (VSAM sequence 

set) 

Cylinder index record (VSAM 

index set) 

Master index record (VSAM 

index set) 

Read 

Write 


173 


AD 


1 


EPLCMNDC 


X'00' 


Command code of failing CCW 
(not supported by IIP) 


174 


AE 


2 






Unused 


176 


BO 




GENACB 




GENCB information to 
generate the ACB 


176 


BO 


4 


GACBHAD 




Address of header 


180 


B4 


4 


MACRFEAD 




Address of MACRF element 


184 


B8 


4 


FILENEAD 




Address of filename element 


188 


BC 




GACBH 




Header 


188 


BC 


1 


GACBBTC 


X'AO' 


Block-type code (ACB) 


189 


BD 


1 


GACBFTC 


x'or 


Function-type code (GENCB) 


190 


BE 


2 


GACBNOC 


x'ooor 


Number of copies (1 copy) 


192 


CO 


4 


GACBWAAD 




Address of work area set to 0; 
VSAM obtains space via GET- 
VIS 


196 


C4 


4 


GACBWALN 




Length of work area 


200 


C8 




MACRFEL 




MACRF element 


200 


C8 


4 


MACRFKTC 


X'00120000' Keyword-type code 


204 


cc 


4 


MACRFVAL 




Value supplied by IIPOPEN 



Figure 5.42 Access Method Define The File (AMDTF) table description and format 

(parti of 4) 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 


208 


DO 




FNAMEEL 




Filename (DDname) element 


208 


DO 


4 


FNAMEKTC 


X'00090000' Keyword-type code 


212 


D4 


8 


FNAMEACB 




Filename (inserted by IIPO- 

PEN) 


220 


DC 




GENRPL 




GENCB information to 
generate the RPL 


220 


DC 


4 


GRPLHAD 




Address of header 


224 


E0 


4 


ARLNEAD 




Address of AREALEN element 


228 


E4 


4 


ACBEAD 




Address of ACB element 


232 


E8 


4 


KEYLNEAD 




Address of KEYLEN element 


236 


EC 


4 


RECLNEAD 




Address of RECLEN element 


240 


FO 




GRPLH 




Header 


240 


FO 


1 


GRPLBTC 


X'CO' 


Block-type code (RPL) 


241 


Fl 


1 


GRPLFTC 


X'01' 


Function-type code (GENCB) 


242 


F2 


2 


GRPLNOC 


x'ooor 


Number of copies (1 copy) 


244 


F4 


4 


GRPLWAAD 




Address of work area set to 0; 
VSAM obtains space via GET- 
VIS 


248 


F8 


4 


GRPLWALN 




Length of work area set to 


252 


FC 




ARLNEL 




AREALEN element 


252 


FC 


4 


ARLNKTC 


X'002D0000' Keyword-type code 


256 


100 


4 


ARLNVAL 




Area length 


260 


104 




ACBEL 




ACB element 


260 


104 


4 


ACBKTC 


X , 002B0000' Keyword-type code 


264 


108 


4 


ACBAD1 




Address of ACB 


268 


IOC 




KEYLNEL 




KEYLEN element 


268 


IOC 


4 


KEYLNKTC 


X'00300000' Keyword-type code 


272 


110 


4 


KEYLNVAL 




Key length 


276 


114 




RECLNEL 




RECORDLEN element 


276 


114 


4 


RECLNKTC 


X'003 50000' Keyword-type code 


280 


118 


4 


RECLNVAL 




Record length 


284 


11C 




SHOWCB 




Information to show ACB or 
RPL 


284 


11C 


4 


SHHAD 




Address of header 


288 


120 


4 


SHEAD 




Address of element 


292 


124 




SHH 




Header 


292 


124 


1 


SHBTC 


X'00' 


Block-type code 


293 


125 


1 


SHFTC 


X'03' 


Function-type code (SHOWCB) 


294 


126 


2 


SHOTC 


X'0000' 


Object-type code 



Figure 5.42 Access Method Define The File (AMDTF) table description and format 

(part 2 of 4) 



Section 5. Data Areas 5.73 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 


296 


128 


4 


SHBAD 




Address of block to he shown 


300 


12C 


4 


SHARAD 




Address of area 


304 


130 


4 


SHARLN 




Length of area 


308 


134 


4 


SHAR 




Area where information is to be 
placed 


312 


138 




SHEL 




Element 


312 


138 


4 


SHKTC 




Keyword-type code (set by IIP) 


316 


13C 




MODRPL 




MODCB information to modify 
theRPL 


316 


13C 


4 


MRPLHAD 




Address of header 


320 


140 


4 


OPTCDEAD 




Address of OPTCD element 


324 


144 


4 


AREAEAD 




Address of AREA element 


328 


148 


4 


ARGEAD 




Address of ARG element 


332 


14C 




MRPLH 




Header 


332 


14C 


1 


MRPLBTC 


X'CO' 


Block-type code (RPL) 


333 


14D 


1 


MRPLFTC 


X'02' 


Function-type code (MODCB) 


334 


14E 


2 






Unused 


336 


150 


4 


MRPLBAD 




Address of block to be modified 
(supplied by IIPOPEN) 


340 


154 




OPTCDEL 




OPTCD element 


340 


154 


4 


OPTCDKTC 


X'00340000' Keyword-type code 


344 


158 


4 


OPTCDVAL 




Bit pattern (supplied by IIP) 


348 


15C 




AREAEL 




AREA element 


348 


15C 


4 


AREAKTC 


X'002C0000' Keyword-type code 


352 


160 


4 


AREAAD 




Address of area (supplied by 
IIP) 


356 


164 




ARGEL 




ARG element 


356 


164 


4 


ARGKTC 


X'002E0000' Keyword-type code 


360 


168 


4 


ARGAD 




Address of ARG parameter 
(supplied by IIP) 


364 


16C 




MSGOUT 




Header 


364 


16C 


16 


MSCCB 




CCB 



Figure 5.42 Access Method Define The File (AMDTF) table description and format 

(part 3 of 4) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


384 


180 


8 


MSCCW 




ccw 


392 


188 


6 


ERRCDE 




Error code of message 


398 


18E 


5 


ISAMCM 




'ISAM' 


403 


193 


9 


ISCM 




ISAM command area 


412 


19C 


5 


VSAMCM 




'VSAM' 


417 


1A1 


9 


VCCM 




VSAM command area 


426 


1AA 


4 


CRCM 




'RC=' 


430 


1AE 


5 


CRC1 




Return code area 


435 


1B3 


20 


SHOWCBF 




Area if SHOWCB failed 


455 


1C7 


5 


CRC2 




Return code from SHOWCB 


460 


ICC 


4 


CRSCM 




'EC=' 


464 


1D0 


4 


CRSC 




Error code area 


468 


1D4 


1 


BRKT 




Closing bracket 



Figure 5.42 Access Method Define The File (AMDTF) table description and format 

(part 4 of 4) 



Address Range Definition Block (ARDB) 



The ARDB contains information about space allocated and space actually 
used by a data set. The block is built by the Open module from information 
in the data set's catalog record. The ARDB is updated by record management 
routines as additional space is used. The first ARDB in an ARDB chain is 
pointed to by the AMDSB (AMDPARDB). Figure 5.43 shows the ARDB 
description and format. 



Offset 






Hex. 




Dec Hex 


Bytes 


Field Name 


Digit 


Description 





1 


ARDID 


X'AD' 


Control block identifier 


1 1 


1 


ARDTYPE 
ARDKR 


X'80' 


Identifies the type of space 
defined by the ARDB: 
One key range of a key-range 
data set 






ARDHLI 


X'40' 


The total index of a key- 
sequenced data set that does not 
have the sequence set with the 
data or 

The non-sequence set levels of a 
key-sequenced data set's index, 
when the sequence set is stored 
with the data 






ARDSS 


X'20' 


The sequence set of a key- 
sequenced data set, when the se- 
quence set is stored with data 



Figure 5.43 . Address Range Definition Block (ARDB) description and format 

(part 1 of 2) 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 






ARDUOVFL 

ARDEOD 
ARDLGCC 


X'10' 

xw 
xw 


Use overflow volumes for this 

key 

End of data ARDB 

Device contains more than 256 

cylinders 


2 2 
4 4 


2 
1 


ARDLEN 
ARDPRF 

ARDPRFMT 


X'80' 
X'40' 


Length of the ARDB 
Address range definition 
preformat byte (this byte is a lit- 
eral copy of the catalog record 
byte called ITYPEXT) 
Sequence set with data 
No preformat done 


5 5 


3 






Reserved 


8 8 


4 


ARDNPTR 




Address of the next ARDB in 
the ARDB chain 


12 C 


4 


ARDHRBA 




The RBA of the next free-space 
control interval at the end of 
the data set (RBA of VSAM 
SEOF) 


16 10 


4 


ARDEDBA 




Pointer to the active EDB 


20 14 


4 


ARDPREL 




Pointer to related ARDB 
(index) 


24 18 


4 


ARDERBA 




The RBA of the highest control 
interval allocated to the key 
range 


28 \C 


4 


ARDPKEYS 




Pointer to ARDKEYS 


32 20 


4 


ARDHKRBA 




The RBA of the data set control 
interval containing the key 
range's high-key value 


36 24 


2 


ARDVOLNM 




Number of volumes in list 


The following 
this ARDB. 


ten-byte entry 


, called an ARDB volume 


group, repeats for each volume in 


38 26 


10 


ARDVOLGP 




Volume serial (VOLSER) list 


38 26 


6 


ARDVOLSR 




The serial number of the 
volume containing the highest 
RBA allocated to the key range 


44 2C 


2 


ARDRELRP 




Catalog relative replication 
number 


46 2E 


2 


ARDSYMU 




Symbolic unit 


46 2E 


1 


ARDSUCLS 




Symbolic unit class 


47 2F 


1 


ARDSUNUM 




Symbolic unit number 


Variable 
(after last 
volume group) 


Variable 


ARDKEYS 




Space reserved for the key 
range's low and high key values. 
The length of this field equals 
twice the key length 



Figure 5.43 Address Range Definition Block (ARDB) description and format 

(part 2 of 2) 
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BLDVRP Parameter List (VRPPL) 



The BLDVRP parameter list contains all parameters needed by module 
IKQBRP to build the VSAM resource pool. The address of the parameter list 
is held in register 1. 

Figure 5.44 shows the format and description of the parameter list. 



Offset 






Hex. 




Dec Hex 


Bytes 


Field Name 


Digit 


Description 





4 


VRPBFLST 




Address of buffer list 


4 4 


1 


VRPKEYLN 




Maximum keylength in VSAM 
Resource Pool 


5 5 


1 


VRPSTRNO 




String number of VSAM 
Resource Pool 


6 6 


6 






Reserved 




VRP Buffer List 






The following 


8 bytes 


are repeated for each 


subpool specified. 


12 C 


4 


VRPBFSZE 




Size of buffers in subpool 


16 10 


1 


VRPBFIND 




Indicator byte 






VRPBLEND 


X'80' 


End of buffer list 


17 11 


1 






Reserved 


18 12 


2 


VRPBFCNT 




Number of buffers in subpool 



Figure 5.44 



BLDVRP parameter list description and format 



Buffer Control Block (BCB) 



The BCB consists of a buffer control entry that describes each buffer request- 
ed by the user and each buffer required for preformat processing. Each buffer 
control entry contains function codes, status indicators, and RBAs to describe 
the buffer. The buffer control entry also contains the address of the data 
buffer, the associated channel program built in the CCWAREA, and the next 
BCB in the chain. The buffer control entry is created by Open and released 
by Close. The BCB is the interface between the I/O Manager and the Buffer 
Manager modules. The BCB is pointed to by the PLH (PLHDBCB points to 
the data BCB and PHLXBCB points to the index BCB). Figure 5.45 shows 
the BCB description and format. 



Section 5. Data Areas 5.77 



Offset 
Dec Hex 


Bytes 


Hex. 
Field Name Digit 


Description 








4 


BUFNBCB 
BUFCHAIN 


Address of the next BCB entry 
Offset to chain pointer (equate 
value) 


4 


4 


4 


BUFCBAD 


Buffer address 


8 


8 


20 


BUFRIODR 


Read I/O driver block 


8 


8 


2. 


BUFCURRU 


Read symbolic unit number 


10 


A 


2 


BUFBKSTR 


Number of physical blocks to 
read 


12 


C 


8 


BUFRSEEK 


Computed DASD address for 
read 


12 


C 


1 


BUFRM 
BUFRDSK 


M (Contains X'80' for an RPS 

device) 

Offset to read MBBCCHHR 

(equate value) 


13 


D 


2 


BUFRBB 


BB 


15 


F 


2 


BUFRCC 


CC 


17 


11 


2 


BUFRHH 


HH 


19 


13 


1 


BUFRR 


R 


20 


14 


4 


BUFCRRBA 


RBA for the read 


24 


18 


4 


BUFRLPMB 


Address of the read LPMB 


28 


1C 


20 


BUFWIODR 


Write I/O driver block 


28 


1C 


2 


BUFCURWU 


Write symbolic unit number 


30 


IE 


10 


BUFCKIN 


Write initialize area 


30 


IE 


2 


BUFBKSTW 


Number of physical blocks to 
write 


32 


20 


8 


BUFWSEEK 


Computed DASD address for 
write 


32 


20 


1 


BUFWM 
BUFWTSK 


M (Contains X'80' for an RPS 

device) 

Offset to write MBBCCHHR 

(equate value) 


33 


21 


2 


BUFWBB 


BB 


35 


23 


2 


BUFWCC 


CC 


37 


25 


2 


BUFWHH 


HH 


39 


27 


1 


BUFWR 


R 



Figure 5.45 



Buffer Control Block (BCB) description and format (part 1 of 3) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


40 


28 


4 


BUFCWRBA 




RB A for the write 


44 


2C 


4 


BUFWLPMB 




Address of the write LPMB 


48 


30 


2 


BUFFLAG 




Flag bytes 


48 


30 


1 


BUFFLAG1 




Flag byte 1 








BUFALLF1 


X'FF 


BUFIOS + BUFRDAHD + 
BUFCVAL + BUFSSRCD + 
BUFRES1 








BUFIOS 


X'E8' 


BUFCMW + BUFCFMT + 
BUFCRRD + BUFPFMT 








BUFCMW 


X'80' 


Write indicator 








BUFCFMT 


X'40' 


Format writer indicator 








BUFCRRD 


X , 20' 


Read indicator 








BUFRDAHD 


X'10' 


Read ahead request 








BUFPFMT 


X'08' 


Format remainder of control 
area 








BUFCVAL 


X'04' 


Buffer contents are valid 








BUFSSRCD 


X'02' 


Buffer is a sequence set record 








BUFRES1 


XW 


Reserved 


49 


31 


1 


BUFFLAG2 




Flag byte 2 








BUFALL2 


X'FF' 


BUFPURG1 + BUFPURG2 + 
BUFRIXRD + BUFWRINV + 
BUFFREP + BUFRES2 








BUFPURG1 


X'80' 


Purge - must write or read 








BUFPURG2 


X'40' 


Purge - format 








BUFRIXRD 


X'20' 


Replicated index read 








BUFWRINV 


X'10' 


Control interval was written - 
another string 








BUFFREP 


X'08' 


Return buffer by REPBUF 








BUFRES2 


X'07' 


Reserved 


50 


32 


10 


BUFBKTWI 




Write check initialize area 


50 


32 


2 


BUFBKTCK 




Number of physical blocks to 
check 


52 


34 


8 


BUFWCKSK 




Computed DASD address for 
check 


52 


34 


1 


BUFCM 




M (Contains X'80' for an RPS 
device) 


53 


35 


2 


BUFCBB 




BB 


55 


37 


2 


BUFCCC 




CC 


57 


39 


2 


BUFCHH 




HH 


59 


3B 


1 


BUFCR 




R 



Figure 5.45 



Buffer Control Block (BCB) description and format (part 2 of 3) 



Section 5. Data Areas 5.79 



Offset 






Hex. 




Dec 


Hex 


Bytes Field Name 


Digit 


Description 


60 


3C 


4 


BUFVCCHH 




CCHH for replicated index read 


60 


3C 


4 


BUFVCCB 




CCB address 


64 


40 


1 


BUFERFLG 




I/O error indicator 








BUFERAL1 


X'FC 


BUFEIOER + BUFESRCH + 
BUFESEEK + BUFEREAD + 
BUFEWRT + BUFERBCK 








BUFEIOER 


X'80' 


I/O error on this buffer 








BUFESRCH 


X'40' 


I/O error on search ID 








BUFESEEK 


X'20' 


I/O error on seek 








BUFEREAD 


X'10' 


I/O error on read 








BUFEWRT 


X'08' 


I/O error on write 








BUFERBCK 


XW 


I/O error on readback check 








BUFENTCM 


X'02' 


Buffer operation not complete 








BUFBDSK 


X'01' 


2314 seek incorrect 


65 


41 


1 


BUFSTRID 




String ID of this set of buffers 


66 


42 


2 


BUFCNOI 




No. of blocks in control interval 
to process 


68 


44 


4 


BUFNABCB 




Next BCB in AMDSB chain 








BCB Extension for Local Shared Resources 


72 


48 


4 


BUFMDBTS 




Modification mask (one bit per 
transaction - refer to BSPH) 


76 


4C 


4 


BUFUCHUP 




Address of previous BCB in 
chain 


80 


50 


4 


BUFUCHDN 




Address of next BCB in chain 


84 


54 


4 


BUFBSPH 




Address of BSPH 


88 


58 


2 






Reserved 


90 


5A 


1 


BUFFLAG3 




Reserved 


91 


5B 


1 


BUFUSE 




Buffer use byte (X'FF'=in use) 


92 


5C 


7 


BUFHDSID 




Catalog ACB address (4 bytes) 
and CI number (3 bytes) of the 
catalog record for this index or 
data component 


99 


63 


1 






Reserved 


100 


64 


4 


BUFAMDSB 




Pointer to AMDSB 


104 


68 


4 


BUFACB 




Pointer to the ACB 



Figure 5.45 



Buffer Control (BCB) description and format (part 3 of 3 
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Block Pool Header (BKPHD) 



The BKPHD describes the storage allocation for the CCW build area. It 
points to the FCDB and is pointed to by the AMDSB. It is built by IKQOPN 
and can be extended by IKQIOA. Figure 5.46 shows the BKPHD format. 



Offset 
Dec Hex 


Bytes Field Name 


Hex. 
Digit 


Description 








2 


BKPLENG 




Length of the pool of blocks 


2 


2 


2 






Available 


4 


4 




BKPHDECB 




Control allocation of blocks 


4 


4 


2 






Not used 


6 


6 


1 


BKPHDCOM 
BKPHWAIT 


X'80' 


Communications byte 
Wait flag 


7 


7 


1 


BKPHDTS 




Allocation test and set byte 


8 


8 


32 


BKPHRSAV 




Space for saving registers 
during steal BCB 


8 


8 


4 


BKPHRS13 




Save register 13, (original PLH) 


12 


C 


4 


BKPHRS14 




Save register 14 


16 


10 


4 






Save register 1 5 


20 


14 


4 


BKPHRS00 




Save register 


24 


18 


4 


BKPHRS01 




Save register 1 


28 


1C 


4 






Save register 2 


32 


20 


4 






Save register 3 


36 


24 


4 






Save register 4 


40 


28 


4 


BKPHDBHD 




Save data buffer header during 
steal BCB 


44 


2C 


4 


BKPHIBHD 




Save index buffer header during 
steal BCB 


48 


30 


4 


BKPSPCHN 




Address of next area of blocks 


52 


34 


4 


BKPERCCB 




Address of error CCB (first 
error CCB in VSAM error 
queue) 


56 


38 


4 


BKPFSTBK 




Address of first available block 


60 


3C 


4 


BKPSTECB 




ECB - steal BCB, other string 


60 


3C 


2 






Available 


62 


3E 


1 


BKPSTCOM 
BKPSWAIT 


X'80' 


Communications byte 
Wait flag 


63 


3F 


1 


BKPSTTS 
Equate values 




Test and set byte 








BKPSIZE 

BKPBLKSZ 
BKPNOBKS 


X'800' 

X'40' 
X'20' 


Size of space to extend pool 

(2048) 

Size of a block (64) 

Number of blocks in new space 

(32) 



Figure 5.46 



Block Pool Header (BKPHD) description and format 



Section 5. Data Areas 5.81 



Buffer Header (BHD) 



The BHD contains information about buffers and buffer processing. The 
PLH 'points to the data and index BHDs. The BHD is created by Open and 
released by Close. Figure 5.47 shows the description and format of the BHD. 



Offset 
Dee Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








2 


BHDNO 




Number of buff ers 


2 


2 


2 


BHDLEN 




Length of control block 


4 


4 


2 


BHDRMAX 




Maximum number of buffers 
available 


6 


6 


2 


BHDRMIN 




Minimum number of buffers 
available 


8 


8 


2 


BHDBRC 




Read-ahead count 


10 


A 


1 


BHDHFLAG 
BHDRAHOK 
BHDIXREP 
BHDNSKD 

BHDSKD 

BHDMVBCB 


X'80' 
X'40' 
X'08' 

X'04' 

X'02' 


Buffer header flag 1 
Read-ahead OK flag 
Replicated index read indicator 
I/O with wait for no-schedule 
queue (BCBNSKDQ) 
I/O with wait for schedule 
queue (BCBSKDQ) 
'Free buffer' is really a move 


11 


B 


1 


BHDFLAG 




Buffer header flag 2 (reserved) 


12 


C 


4 






Reserved 


16 


10 


4 


BHD1STF 




Address of chain of free buffers 


20 


14 


4 


BHDSKDQ 




Address of BCB chain with I/O 
scheduled 


24 


18 


4 


BHDNSKDQ 




Address of BCB chain with 
pending I/O 


18 


1C 


4 


BHD1STW 




Address of first BCB requiring 
I/O 


32 


20 


1 


BHDID 


X'77 


BHD idendification 


33 


21 


1 






Reserved 


34 


22 


2 


BHDIOCNT 




I/O count of no-schedule queue 
(BCBNSKDQ) 


36 


24 


2 


BHDWMIN 




Write threshold 


38 


26 


2 


BHDTRACT 




Temporary read-ahead count 


40 


28 


2 


BHDQNO 




Number of BCBs on queues 


42 


2A 


2 






Reserved 


44 


2C 


4 


BHDCCHH 




CCHH of last held control area 


48 


30 


4 


BHDCCBCH 




CCB chain pointer 



Figure 5.47 



Buffer Header (BHD) description and format 
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Buffer Subpool Header (BSPH) 



The Buffer Sub-Pool Header contains information concerning a buffer 
subpool. The BSPHs are chained together in a sequence of ascending buffer 
sizes. AMDFSBCB points to the BSPH associated with a particular data set 
component. The address of the first BSPH is stored in the VSRT. 

Figure 5.48 shows the format and description. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








1 


BSPHID 


X'72' 


Control block identifier 


1 


1 


1 






Reserved 


2 


2 


2 


BSPHLEN 




Length of BSPH 


4 


4 


4 


BSPHNM 




Name 'BSPH' 


8 


8 


4 


BSPHNBSP 




Pointer to next BSPH in pool 


12 


C 


2 


BSPHBFNO 




Number of buffers in this 
subpool 


14 


E 


2 






Reserved 


16 


10 


4 


BSPHMDBN 




Number of modified buffers in 
this subpool 


20 


14 


4 


BSPHFRBN 




Number of free buffers in this 
subpool 


24 


18 


4 


BSPHBCB 




Address of first BCB in the 
subpool 


28 


1C 


4 


BSPHMDBT 




32-bit modification mask. Each 
bit corresponds to a transaction 
which has modified the buffer 


32 


20 


4 


BSPHBSZ 




Length of each buffer in this 
subpool 


36 


24 


4 


BSPHCPLH 




Address of the PLH currently in 
control of the BSPH 


40 


28 


16 






Reserved* 


56 


38 


4 


BSPHUTOP 




Pointer to the top of the use 
chain 


60 


3C 


4 


BSPHUBTM 




Pointer to the bottom of the use 
chain* 


64 


40 


4 


BSPH1ST 




Address of the first BSPH in the 
buffer pool 


68 


44 


2 


BSPHECB 




Control bytes for changing use 
chain 


70 


46 


1 


BSPHCOM 
BSPHWAIT 


X'80' 


Communications byte 
Wait flag 


71 


47 


1 


BSPHTS 




Mask byte for test and set 


* 


The use chain is a chain of all BCBs in the subpool. The least recently used BCB 
is at the bottom of the chain and the most recently used BCB is at the top. 



Figure 5.48 



Buffer Subpool Header description and format 
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Catalog Auxiliary Work Area (CAXWA) 



The CAXWA is built when the VS AM catalog is opened or is being created. 
The CAXWA is used to contain the addresses of control blocks and work 
areas needed when a catalog is being processed. The CAXWA also contains 
flags that indicate the type of processing being performed on the catalog and 
the DOS/VS component that invoked the processing. The CAXWA is 
pointed to by the ACB (ACBUAPTR). The AMCBS (CBSCAXCN) con- 
tains the address of the CAXWA chain. Figure 5.49 shows the CAXWA 
description and format. 



Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 








1 


CAXID 


Control Block identifier X"CA" 


1 


1 


3 




Reserved 


4 


4 


4 


CAXCHN 


Address of the next CAXWA in the chain 


8 


8 


1 


GAXFLGS 


Flags: 






1 

.1 

..1 

...1.... 


CAXBLD 
CAXOPN 
CAXCLS 
CAXEOV 


Build request 

The catalog is being opened 

The catalog is being closed 

An end-of-volume rountine is in control 






.... 1... 

X.. 


CAXCMP 
CAXMCT 


Open/Close/EOV processing is complete 
1 =Master catalog 






1. 

X 


CAXCMR 
CAXSCR 


0=User catalog 

Catalog management has been called by a 
catalog management routine 
Reserved for OS 


9 


9 


1 


CAXFLG2 


Flags: 






1 

.1 


CAXF2DT 
CAXF2NDD 


The catalog has been deleted 
No DLBL filename found 






..X 


CAXF2CCR 


= CCR needs to be read 

1 = CCR has been read 






...1 .... 


CAXF2CRA 


CAXWA for CRA 






.... 1... 
.....1.. 

X. 


CAXF2REC 
CAXF2EOV 


Recoverable catalog 
End of volume flag 
Reserved for OS 






1 


CAXF2CA 


Free CAXWA if error 


10 


A 


1 




Reserved 


11 


B 


1 


CAXACT 


Catalog activity count 


12 


C 


4 


CAXATIOT 


Reserved for OS 


16 


10 


4 


CAXSCHWA 


Reserved for OS 


20 


14 


4 


CAXDRWP 


Address of the catalog's DSCB read work 
area 



Figure 5.49 



Catalog Auxiliary Work Area (CAXWA) description and format (part 1 of 2) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


24 


18 


4 


CAXACB 


Address of the catalog's ACB 


24 


18 


4 


CAXCRACB 


Address of CRA's ACB 


28 


1C 


4 


CAXUCB 


Address of the COMREG 


32 


20 


12 


CAXCCR 


Catalog control record information 


32 


20 


3 


CAXHACI 


Catalog interval number of the highest 
allocated control interval in the catalog 


35 


23 


3 


CAXNFCI 


Control interval number of the next free 
Control interval in the catalog 


38 


26 


3 


CAXCDCI 


Number of deleted control intervals 


41 


29 


3 


CAXFDCI 


Control interval number of the first 
deleted control interval in the catalog 


44 


2C 


2 




Reserved 


46 


2E 


2 


CAXRPLCT 


Number of RPLs associated with the 
CAXWA 


48 


30 


4 


CAXRPL 


Address of the first RPL in the CAXWA's 
RPL chain 


52 


34 


44 


CAXCNAM 


Catalog name 


96 


60 


4 


CAXOPLST 


Open/Close parameter list: 


96 


60 


1 

1 

.XXX xxxx 


COPTS 
CENLST 


Option flags: 
End-of-list indicator 
Reserved 


97 


61 


3 


COPACB 


Address of the catalog's ACB 


100 


64 


4 


CAXOPEWA 


Address of Open/Close/EOV work area 


104 


68 


4 


CAXCCA 


Address of the CCA 


108 


6C 


4 


CAXJDE 


Reserved for OS 


112 


70 


4 


CAXCAT 


Address of the catalog's ACB associated 
with CRA 


115 


74 


6 


CAXVOLCR 


Volume serial of CRA volume 


112 


7A 


2 


CAXSYSCR 


SYS-number of CRA volume 


124 


7C 


6 


CAXVOLRM 


Volume serial of volume containing CRA 
(at present not mounted) 


130 


82 


2 


CAXSYSRM 


SYS-number of volume containing CRA 
(at present not mounted) 


132 


84 


6 


CAXOCPAR 


O/C parameter list 


132 


84 


4 


CAXOCACB 


ACB address 


136 


88 


2 


CAXOCEOL 


End of list indicator (x'0A02') 



Figure 5.49 



Catalog Auxiliary Work Area (CAXWA) description and format (part 2 of 2) 
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Catalog Communications Area (CCA) 



The CCA is built each time a DOS/VS component issues the CATLG macro 
instruction to process a VSAM catalog record. The CCA contains informa- 
tion about the catalog being processed and about the catalog record and its 
extensions contained in each of the six buffers available to process the user's 
request. The CCA is used to pass information between catalog management 
procedures. Register 11 contains the address of the CCA. Figure 5.50 shows 
the CCA descriotion and format. 



Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


l&escnptim 








2 


CCAID 


Identifier -sex to X'ACCA' 


2 


2 


2 


CCASZ 


Size 


4 


4 


1 


CCACDI 


Return code 1 


5 


5 


1 


CCACD2 


Return code 2 


6 


6 


1 


CC AFLG1 


Flag byte 1 : 






1 


CCAF1LPS 


Stop the loop 






.1 


CCAF1ARA 


Assign RPL to auxilary record area 






..1 


CCAF1LRD 


Catalog control record read into virtual 
storage 






...1 .... 


CCAF1KEY 


Retrieve the catalog record based on a 
DSNAME value (GET) 






...0.... 




Retrieve by CI number 






.... 1... 


CCAF1KGE 


Retrieve the next catalog record (next 
GET) 






1.. 


CCAF1CR 


A checkpoint of the CCR required 






1. 


CCAF1UP 


GET macro instruction issued for update 






1 


CCAF1DK 


When the caller is renaming a data set, 
this flag indicates that the data set's true- 
name record is to be deleted, but the data 
set's catalog record is not to be deleted. 


7 


7 


1 


CCAFLG2 


Flag byte 2: 






1 


CCAF2SYS 


Reserved for OS 






.1 


CCAF2NVC 


No validity check on the caller's CTGFL 

or work area is required 






..1 


CCAF2CCT 


Single catalog search 






..0 




Not used by DOS/VS 






...1 .... 


CCAF2XEQ 


Exclusive enqueue 






...0.... 




Shared enqueue 






.... 1... 


CCAF2RHS 


When a catalog management routine 
calles the VSAM Open routines to open a 
newly created catalog, and the Open rou- 
tines call VSAM Catalog Management 
routines to obtain information about the 
catalog to be opened, the situation is 
called a "recursive call". The catalog can- 
not be dequeued when the Catalog Man- 
agement routines return to the caller 
(VSAM Open routines). 






XX. 


CCAF2COB 


Combination of catalog open and build: 






1.. 


CCAF2CO 


Catalog is being opened 






1. 


CCAF2CB 


Catalog open during build 






1 


CCAF2SMO 


Reserved for OS 
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Catalog Communication Area (CCA) description and format (part 1 of 12) 
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Offset 


Bytes and 






Dec Hex 


Bit Pattern 


Field Name 


Description 


8 8 


1 


CCAFLG3 


Flag byte 3: 




1 


CCAEXGR1 


Exit indicator 




.1 


CCAGC4 


The catalog record contains a password 
group occurrence (identified by Group 
Code 4) 
(detected during IGGPSCNC processing) 




..1 


CCAGDSP 


GENDSP 




...1.... 


CCAEXGR2 


Exit indicator 




.... 1... 


CCANF 


The group occurrence cannot be found 




1.. 


CCAELC2 


Exit indicator 




1. 


CCALFT 


First time 




1 


CCAEGREC 


Exit indicator 


9 9 


1 


CCAFLG4 


Flag byte 4: 




1 


CCAF4DRQ 


The catalog must be dequeued after the 
request completes 




.1 


CCAF4BYS 


Bypass the security verification 




..1 


CCAGVNC 


The required variable-length field is not 
completely contained in the record cur- 
rently in the buffer 




...1 .... 


CCAGVNF 


The group occurrence identified by the 
caller-specified sequence number cannot 
be found 




.... 1... 


CCAGVNBS 


There is no buffer space available to 
contain an extension record 




1.. 


CCAGVEX 


Exit indicator 




1. 


CCAGVNE 


The field does not exist in the located 
group occurrence 




1 


CCATCOMP 


Test complete: all group occurrence 
pointers have been examined and all des- 
ignated fields have been tested 


10 A 


1 


CCAFLG5 


Flag byte 5: 




1 


CCAMEX2 


Exit indicator 




.1 


CCAMEX 


Exit indicator 




..1 


CCAMEX1 


Exit indicator 




...1 .... 


CCAMODPA 


The catalog record's base record must be 
written (using IGGPPAD) into the cata- 
log 




.... 1... 


CCATHIT 


Successful test: a group occurrence has 
been found that satisfies the test condi- 
tions 




1.. 


CCATEX 


Exit indicator 




1. 


CCATEX1 


Exit indicator 




1 


CCATEX2 


Exit indicator 
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Catalog Communication Area (CCA) description and format (part 2 of 12) 
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Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


11 


B 


1 


CCAFLG6 


Flag byte 6: 






1... .... 


CCAMCODR 


The catalog must be dequeued when the 
request completes 






.1 


CCADELP 


A deleted group occurrence pointer was 
found 






..1 


CCAMNOSP 


The catalog record's free space isn't large 
enough to contain all the new catalog in- 
formation during the group occurrence 
move operation 






...1.... 


CCAINIT 


Insert switch for variable-length field 
being retrieved 






.... 1... 


CCASUPFD 


Suppress password field information 
during field retrieval 






1.. 


GCAREUSE 


The contents of the caller s record areas 
(buffers) can be used by IGGPEXT and 
IGGPMOD 






1. 


CCAEXT 


Set when a catalog management routine 
calls the Extract routine (IGGPEXT) 






1 


CCAMOD 


Set when a catalog management routine 
calls the Modify routine (IGGPMOD) 


12 


C 


4 


CCALAB 


Address of the label cylinder area 


12 


C 


1 


CCALBLEN 


Count field in units of 128 bytes 


13 


D 


3 


CCALBCYL 


Address field 


16 


10 


4 


CCADPL 
CCARB 


Address of the DADSM parameter list 
Reserved for OS 


20 


14 


4 


CCACPL 


Address of the caller's CTGPL 


24 


18 


4 


CCAACB 


Address of catalog's ACB 


28 


1C 


4 


CCANPCCB 


Address of saved CAXWA 


32 


20 


4 


CCAURAB 


Address of the record area block (RAB) 
currently in use 


36 


24 


44 


CCASRCH 


Search argument (DSNAME of cluster, 
data, index, catalog, or nonVSAM data 
set, or a volume serial number) 


36 


24 


3 


CCASRID 


Control interval number 


36 


24 


3 


CCASRCIN 


Control interval number 


39 


27 


41 




Reserved (or continuation of CCASRCH) 


80 


50 


20 


CCARABO 


Record Area Block 0: Each record area 
block describes the catalog record con- 
tained in one of the six catalog manage- 
ment buffers available for the request. 
RABs 1 through 5 are identical in format 
to RAB 0. 

Note: "x" in each field name is replaced 
by "0" through "5" to indicate a particu- 
lar RAB's field. 
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Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


80 


50 


1 


CCARxFLG 


Flags: 

The first three flags are used by 

IGGPEXT and IGGPMOD: 






1 


CCARxUR 


The RAB is in use. It cannot be used by 
IGGPEXT or IGGPMOD 






.1 


CCARxUl 


The RAB is temporarily in use by 
IGGPEXT or IGGPMOD. It cannot be 
overlaid. 






..1 


CCARxU2 


(Same as CCARxUl) 






...1 .... 


CCARxWR 


The buffer must be written before 
another catalog record can be read into it. 






.... 1... 


CCARxPA 


The buffer contains a new catalog record; 
PUT ADD is required to add the record 
to the catalog 






XX. 




Reserved 






1 


CCARxUPD 


Update buffer not reused 


81 


51 


1 


CCARxRPL 


Last assign, RPL index 


82 


52 


2 




Reserved 


84 


54 


4 


CCARxREC 


Address of the record in the buffer 


84 


54 


4 


CCACPElx 


Address of the record in the buffer 


88 


58 


12 


CCARxSEG 


Addresses of the segments 


88 


58 


4 


CCACPE2x 


Address of the first byte after the fixed- 
length header fields 


92 


5C 


4 


CCACPE3x 


Address of the first group occurrence 


96 


60 


4 


CCACPE4x 


Address of the first free-space byte in the 
record 


100 


64 


20 


CCARAB1 


Record Area Block 1 (See RAB descrip- 
tion) 


120 


78 


20 


CCARAB2 


Record Area Block 2 (See RAB descrip- 
tion) 


140 


8C 


20 


CCARAB3 


Record Area Block 3 (See RAB descrip- 
tion) 


160 


A0 


20 


GCARAB4 


Record Area Block 4 (See RAB descrip- 
tion) 


180 


B4 


20 


CCARAB5 


Record Area Block 5 (See RAB descrip- 
tion) 


200 


C8 


1 


CCARPLK 


Assigned RPL count 


201 


C9 


1 


CCARPLF 


Index to RPL found 
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Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


202 


CA 


1 


LPINDX 


Loop indexing control (counter) 


202 


CA 


■1 


CCARPLX 


Work byte for catalog RPL (mult.-use) 


202 


CA 


1 


XIOOPT 


I/O options 






1 


XIOGET 


1=GET, 0=PUT 






.1 . 


XIOERS 


ERASE 






..1 


XIOARA 


1= auxiliary record area required 
0=user record area required 






...1 .... 


XIOKEY 


1 = keyed required 
0= address required 






.... 1... 


XIONUP 


No update required 






1.. 


XIONCK 


No error check required 






1. 


XIOTNE 


1 =true name entry 
0=normal entry 






1 


XIOKGE 


GET NEXT (GET) 






.......1 


XIOSEQ 


PUTSEQ (PUT) 


203 


CB 


1 


CCARPLT 


Work byte for catalog RPL (mult.-use) 


204 


CC 


6 


CCARPLAA 


Indices to assigned RPLs 


210 


D2 


2 




Reserved 


212 


D4 


4 


CCARPL1 


Address of the RPL in use 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


216 


D8 


132 


CCADESA 


Save area for the extent information 
returned by VSAM, DADSM and Catalog 
Management: Suballocate 


216 


D8 


1 


CCANDEXT 


Number of extents 


217 


D9 


1 


CCAIXEXT 


Extent index value 


218 


DA 


2 


CCASSVOL 


Sequence number of the data set directo- 
ry entry in the volume catalog record 


220 


DC 


128 


CCAEXTDE 


Sixteen 8-byte extent descriptors: 








First extent descriptor 


220 


DC 


2 


CCAEXTSS 


Sequence number of the Data Space 
group occurrence that this extent's space 
is a part of 


222 


DE 


4 


CCAEXTAD 


The extent's starting physical address: 


222 


DE 


2 


CCAEXTCC 


Cylinder number CC 


224 


E0 


2 


CCAEXTHH 


Head number HH 


226 


E2 


2 


CCAEXTTH 


Number of tracks in the extent 


228 


E4 


120 




Space for remaining 1 5 extent descriptors 


348 


15C 


1 


CCAASCIK 


Number of control intervals required to 
satisfy the caller's request 


349 


15D 


1 


CCACRRP 

EWFLGS 
EWFCCHN 


X'80' Build "caller" chain for message 

42231 

Equate 

Equate 


350 


15E 


1 


CCAASCIX 


Used by the ASSGN functions - points to 
the element in CCAASCI currently being 
processed 


351 


15F 


1 


CCASRPLX 


Saved RPL flags 


352 


160 


9 


CCAASCI 


Number of each assigned control interval 


361 


169 


3 


CCAUPGD 


Control interval for UPG modification 


364 


16C 


16 


CCAEQDQ 


Enqueue/Dequeue parameter list 


364 


16C 


1 


CCAEDXFF 


End of parameter list, indicator byte 
=X'FF' (if list is empty) 


365 


16D 


1 


CCAEDRLN 


Length of minor name 


366 


16E 


1 


CCAEDOPT 


Enqueue/Dequeue Options 






x 

.1 

..XX xxxx 


CCAEDSHR 
CCARLSEB 


l=Shared, 0=Exclusive 

Release control bit 

Other options (set by macro) 


367 


16F 


1 


CCAEDRCD 


Enqueue/Dequeue return code 


368 


170 


4 


CCARTSAV 


Save area for CCAMLRET 


372 


174 


4 


CCACOMRG 


COMRG pointer 


376 


178 


4 


CCAEDUCB 


Work area 


380 


17C 


4 


CCAMLRET 


Address of the caller's save area used by 
IGG0CLAG 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


384 


180 


12 


CCAMSSPL 


GETVIS/FREEVIS parameter list area 


384 


180 


4 


CCAMNLEN 


Number of bytes to process 


388 


184 


4 


CCAMNPTR 


Address of the return address 


392 


188 


1 




Reserved for OS 


393 


189 


1 


CCAMNSPL 


Reserved for OS 


394 


18A 


2 




Reserved for OS 


396 


18C 


4 


CCARPRM 


Return parameters 


400 


190 


8 


CCACMS 


Catalog Management Services work area 


400 


190 


4 


CCACMSWA 


Address of the CMS calling routine's 
work area 


404 


194 


4 


CCAEXCMS 


Address of a secondary CMS work area 


The following fields are set and used by IGGPLOC, IGGPEXT, and IGGPTSTS, and 
catalog management subfunctions which these procedure call: 


408 


198 





CCALUME 




408 


198 


4 


CCACPE5 


Address of a selected group occurrence 
pointer 


412 


19C 


4 


CCACPE51 


(Same as CCACPE5) 


416 


1A0 


4 


CCACPE52 


(Same as CCACPE5) 


420 


1A4 


4 


CCACPE53 


(Same as CCACPE5) 


424 


1A8 


4 


CCACPE6 


Address of a selected group occurrence 


428 


1AC 


4 


CCACPE61 
CCARABSE 


(Same as CCAPE6) 
Save extract caller URAB 


432 


1B0 


4 


CCACPE7 
CCAIDPT 


Address of field value 
Insert data address 


436 


1B4 


4 


CCACPE71 


Alternate address to field value 


440 


1B8 


2 


CCAGOPLN 


Length of the group occurrence pointer 


442 


1BA 


2 


CCASL 


Length of sequence number field 
(RELREPNO) in the group occurrence 


444 


1BC 


4 


CCAILNG 


Length of the selected retrieved field 


448 


ICO 


4 


CCAFLPT 
CCATFLPT 


Address of the requested-field CTGFL 
Address of the CTGFL-f or-tests 


452 


1C4 


4 


CCARABPT 


Address of the record area block 


456 


1C8 


4 


CCADICT 


Dictionary information to describe the 
field, based on its field name 


460 


ICC 


4 


CCAXCPL 
CCAMCPL 


Address of the CTGPL built when 
IGGPEXT and IGGPMOD are called, so 
that information in the callers CTGPL is 
not altered 


464 


1D0 


4 


CCARABB 


Address of the RAB that identifies the 
base catalog record 


468 


1D4 


4 


CCARABF 


Address of the RAB that identifies the 
first record area (buffer) that can be used 
by IGGPEXT or IGGPMOD 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


472 


1D8 


4 


CCARABL 


Address of the RAB that identifies the 
last record area (buffer) that can be used 
by IGGPEXT or IGGPMOD 


476 


IDC 


3 


CCACBASE 


The control interval number of the base 
catalog record 


479 


IDF 


1 


CCAGC 


Group code of the requested group 
occurrence 


480 


1E0 


2 


CCALREL 
CCALREL1 


Relative repetition number of a selected 
group occurrence 


482 


1E2 


2 


CCASN 
CCASNl 


Sequence number of a selected group 
occurrence 


484 


1E4 


1 

1 

.1 

..1 

...1 .... 
.... 1... 

X.. 

X. 

1 


CCAFLG8 

CCARPUT 

CCALSTC 

CCAEXTCR 

CCABLDCR 

CCASPUCO 

CCASCAX 

CCAUPG 
CCABUF 


CRA flags 

Inhibit CRA PUT/UPDATE 

Listcat request 

Extend CRA in process 

Open request for CRA build 

Special UCAT 

1=CRA CAXWA search, 0=UCAT 

CAXWA search 

l=upgrade, 0=no upgrade 

Output buffering flag 


485 


1E5 


1 

1 

.1 

..1 

...1 .... 
.... 1... 
1.. 

XX 


CCAFLGA 

CCAUPGRR 

CCARGET 

CCALBFVT 

CCACCARD 

CCAFILSV 

CCACANIN 


More flags 

RAB 1 to be restored by upgrade module 

Get record for compare before update 

CRA 

Multiple file parameter search at define 

Indicate CCR for CRA has been reached 

Save indicator flag CCAF1LRD 

Cancel INHIBIT 

Reserved 


486 


1E6 


2 


CCAIXFPL 


Index to the current CTGFL being 
processed 


488 


1E8 


2 


CCAIXREL 


Index for CCATREL 


490 


1EA 


2 


CCATNREL 


The sequence number of the next group 
occurrence to perform tests against if 
CCATREL is full or if there are no buff- 
ers available to contain the catalog 
record's next extension 


492 


1EC 


2 


CCATNUM 


Number of successful relative repetition 
numbers (cannot exceed 16) 


494 


1EE 


32 


CCATREL 


Successful relative repetition numbers 


526 


20E 


2 


CCATNO 


Total number of successful relative 
repetition numbers (might exceed 16) 


528 


210 


4 


CCATEST 


Address of the test CTGFL 
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Catalog Communications Area (CCA) description and format (part 8 of 12) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


532 


214 


20 


CCARBA 


Work area for extent descriptors 


532 


214 


2 


CCASS 


Sequence number of the Data Space 
group occurrence that contains the extent 


534 


216 


4 


CCACCHH1 


Physical address - CCHH - of the extent's 
first track 


538 


21A 


4 


CCACCHH2 


Physical address - CCHH - of the extent's 
last track 


542 


21E 


2 


CCATT 


Number of tracks in the extent 


544 


220 


4 


CCARBA1 


Low relative byte address (RBA) 


548 


224 


4 


CCARBA2 


High relative byte address (RBA) 


552 


228 


2 


CCATLNG 
CGATLEN 


Total length of the extent information 
that has been processed (CCATLNG); 
total length of the scanned field so far 
(CCATLEN) 


554 


22A 


2 


CCARBAL 


RBA extent balance 


556 


22C 


2 


CCACNIX 


Combination name index 


558 


22E 


2 


CCAREASN 


Reason code 


560 


230 


4 


CCAIDPT2 


Address of the available space in the 
caller's work area or of the caller-supplied 
update information 


564 


234 


4 


CCAIDPT3 
CCARABSM 


Address of the length-field of a variable 
length field in the user's return area 


568 


238 


2 


CCAGVCT 


Number of group occurrence pointers 
processed so far 


570 


23A 


2 


CCANEVV 


If the requested variable-length field is 
non-existent, this field is set to binary 
zero 


572 


23C 


3 


CCAGVEXT 


Control interval number of the record's 
next extension record (not yet in a buffer) 


575 


23F 


1 


CCANEFV 


If the requested fixed-length field is 
non-existent, this byte is set to X"FF" 


576 


240 


1 




Reserved 


577 


241 


1 


CCAGRGC 


Group code of the requested group 
occurrence 


578 


242 


2 


CCAGRHI 
CCAGRHI1 


High relative repetition number 
of the requested group occurrence 


580 


244 


2 


CCAIXTPL 


Index to test FPL 


582 


246 


2 


CCADLEN 


Number of bytes to be deleted from the 
catalog record 


584 


248 


2 


CCADIFF 


The difference between the insert length 
and the delete length (can be a negative 
number) 
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Catalog Communications Area (CCA) description and format (part 9 of 12) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


586 


24A 


2 


CCAREPCT 


Number of relative repetition numbers 
processed so far 


j 588 


24C 


2 


CCADISP 


Displacement into variable-length field to 
the delete/insert location 


590 


24E 


3 


CCASVCI 


Save area for the control interval number 
of the base catalog record 


j 593 


251 


3 


CC AS VCI1 


Save area for the control interval number 


| 596 


254 


4 


CCADTA 


Address of the dictionary 


600 


258 


4 


CCACDTA 


Address of the index combination table 


604 


25C 


2 


CCADTCT 


Number of dictionary entries 


606 


25E 


2 


CCACDTCT 


Number of index combination entries 


608 


260 


4 


CCACWAP 


Controller work area 


612 


264 


4 


CCAMNADR 


Address of the virtual storage obtained by 
a GETVIS request 


616 


268 


4 


CCAILNG3 


Save area for the insertion length 


620 

! 


26C 


4 


CCAILNG2 


Length of the user-supplied insert data 


624 


270 


4 


CCAALPTR 


Address of the space management work 
area 


628 


274 


4 




Reserved 


632 


278 


4 


CCALCPL 


Reserved for OS 


636 


27C 


1 

x 

.1 

..1 

...1 .... 
.... 1... 

1.. 

1. 

1 


CCAFLG7 

CCALSP 

CCANRLSE 

CCACKDEL 

CCASMFBR 

CCAONCE 

CCAROREQ 

CCAFEOV 

CCAEQOPN 


Flags: 

Reserved for OS 

Release Control Bit 

Delete switch 

Do GET for base record 

Move only one occurrence 

Read only request 

Force EOV 

Enqueued on SYSOPEN 


637 


27D 


3 


CCARCI 


CRA Record control interval number 


640 


280 


4 


CCALABSV 


Saved address of IKQLAB area 


644 


284 


4 


CCARABSV 


Saved address of RAB 


648 


288 


2 


CCAMODUL 


Last two bytes of module name 
(IGGOCLxx) 


650 


28A 


3 


CCACHAIN 


Control interval number save area 


653 


28D 


3 


CCACI1 


Control interval number save area 


656 


290 


3 


CCACI2 


(SameasCCACIl) 


659 


293 


3 


CCACI3 


(Same as CC ACI1) 


662 


296 


2 


CCAVARLN 


Number of bytes to be inserted into the 
record 


664 


298 


4 


CCARRAB 


Address of the RAB containing the group 
occurrence pointers where delete/insert 
processing is to begin 


668 


29C 


4 


CCARBASE 


(Same as CCARRAB) 
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Catalog Communications Area (CCA) description and format (part 10 of 12) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


672 


2A0 


4 


CCAVARPT 


Address of the information to be inserted 
into the record 


676 


2A4 


2. 


CCADELN 


Number of bytes to be deleted from the 
record 


678 


2A6 


20 


CCAVAR 


Insert information save area 


698 


2BA 


20 


CCAVAR1 


(Same as CCAVAR) 


718 


2CE 


3 


CCADEL1 


The control interval number of the first 
record in a series of records to be deleted 


721 


2D1 


3 


CCADEL2 


The control interval number of the last 
record in a series of records to be deleted 


724 


2D4 


40 


CCAXLATE 


Translation work area 


764 


2FC 


4 


CCAR14S 


Register 14 save area 


768 


300 





CCABMINP 


Input parameters to IGG0CLBR 


768 


300 


2 


CCABMTRK 


Starting track 


770 


302 


2 


CCABMLIM 


Check limit, nn for set 


772 


304 


.2 


CCABMMIN 


Conditional check minimum 


774 


306 


1 

x 

.1 

...1 

...1 .... 
.... 1... 

.... .XXX 


CCABMFLG 
CCABMST 

CCABMCHK 
CCABMSET 
CCABMCCK 
CCABMLST 


State and function code 

This bit can be or 1, and is the state for 

which an extent is to be checked (if bit 1 

is on) or the state to which a map bit is to 

be set (if bit 2 is on) 

ON - Perform check 

ON - Perform set 

ON - Perform condition check 

ON - Last set request (write) 

Reserved 


775 


307 


1 




Reserved 


776 


308 





CCABMOUT 


Output parameters from IGG0CLBR 


776 


308 


2 


CCABMONN 


Track number 


778 


30A 


2 


CCABMOTR 


Starting track 


780 


30C 


1 


CCABMOFG 


Output flags 






1 

.XXX XXXX 


CCABMOST 


State of bits 
Reserved 


781 


30D 


6 


CCAVOLCR 


CRA volume identification 


787 


313 


1 


CCABMPAD 


Padding character 


788 


314 


4 


CCABMGOP 


Current bit mask GOP 


792 


318 


4 


CCABMPTR 


Address of current bit mask byte 


796 


31C 


4 


CCABMEND 


End of current bit mask 


800 


320 


2 


CCABMBT1 


Bit count, first byte 


802 


322 


2 


CCABMBTL 


Bit count, last byte 


804 


324 


2 


CCABMBYT 


Number of full bytes 


806 


326 


2 


CCABMSTR 


Current bit mask, start track 


808 


328 


4 


CCABMWK1 


Work field 


812 


32C 


4 


CCABMWK2 


Work field 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


816 


330 


4 


CCABMWK3 


Work field 


820 


334 


4 


CCABMWK4 


Work field 


824 


338 


4 


CCABMRB1 


Address of first bit map RAB 


828 


33C 


4 


CCABMRB2 


Address of second bit map RAB 


832 


340 


4 


CCACARWA 


Address of CRA definition work area 


836 


344 


4 


CCACRABF 


Address of CRA buffer 


840 


348 


4 


CCASACB 


Address of saved CCAACB field 


844 


34C 


4 


CCAEXC 


Save area for CCAACB 


848 


350 


4 


CCASRPL 


Address of saved CCA, RPL field 


852 


354 


4 


CCAADBUF 


Address of cluster record buffer (cluster 
record saved until CRA volume known) 


856 


358 


4 


CCASCAXS 


Address of search argument for CAXWA 
chain search 


860 


35C 


4 


CCASCAXA 


Address of found CAXWA 


864 


360 


4 


CCADEVT 


CRA volume device type 


868 


364 


8 


CCANMF1 


Name field of variable open resource 


876 


36C 


8 


CCANMF2 


Name field of variable open resource 


884 


374 


8 


CCANMF3 


Name field of variable open resource 


The following two fields are used by the no-i 
ALTER, DEFINE or DELETE 


ipgrade / upgrade function, called by 


892 


37C 


3 


CCAXDCI 


AIX data control interval number 


895 


37F 


3 


CCAXICI 


AIX index control interval number 


898 


382 


1 


CCACATIN 


CLAH indicator 


899 


383 


1 




Reserved 


900 


384 


4 


CCACOPTR 


CLCO work area 


904 


388 


4 


CCADEVA 


Address of device attribute return area 


908 


38C 


4 


CCAFARE 


Address of file identification 


912 


390 


4 


CCAAREA 


Pointer to address of label record area 


916 


394 


2 


CCAMDSAV 


Save area for CCA module 


918 


396 


2 


CCARSSAV 


Save area for CCA 


920 


398 


40 


CCATEMPS 


Temporary area for PLS 


960 


3C0 


348 


CCAREGS 


Save area for registers 


960 


3C0 


4 




Address of user save area 


964 


3C4 


8 


CCAMODNM 


Load module name 


1308 







CCAEND 


End CCA 
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Catalog Communications Area (CCA) description and format (part 12 of 12) 



Section 5. Data Areas 5.97 



I Command Control Block (CCB) 



Record management uses its own CCB macro to map a FDCB into a CCB. 
Figure 5.51 shows the CCB format. 



Offset 






Hex. 




Dec Hex 


Bytes 


Field Name 


Digit 


Description 







CCBST 











CCBD 









16 


CCBLEN 




Map of DOS/VS CCB 





2 


CCBCNT 




Residual count 


2 2 


4 


CCBERMAP 




Error codes 


2 2 


1 


CCBCOM1 




Communication byte 1 






CCBWAIT 


X'80' 


Traffic switch (set at channel 
end) 






CCBEOF 


X'40' 


End of File 






CCBIOERR 


X'20' 


Unrecoverable I/O error 






CCBERROK 


X'10' 


Accept unrecoverable I/O error 






CCBRDC 


X'08' 


Return data checks 






CCBPDE 


X'04' 


Post at device end 






CCBDCV 


X'02' 


Return data check read/check 






CCBUERR 


x'or 


User error routine 


3 3 


1 


CCBCOM2 




Communication byte 2 






CCBDCCNT 


X'80' 


Data check in count field 






CCBTRKOV 


X'40' 


Track overrun 






CCBEOC 


X'20' 


End of cylinder 






CCBDC 


X'10' 


Data check 






CCBNOREC 


X'08' 


No record found 






CCBRETRY 


X'04' 


Retry no record found 






CCBVER 


X'02' 


Verify error 






CCBCC 


x'or 


Command chain (retry) 


4 4 


1 


CCBCSW1 




CSW status byte 1 






CCBATTN 


X'80' 


Attention 






CCBSTMOD 


X'40' 


Status modifier 






CCBCUE 


X'20' 


Control unit end 






CCBBUSY 


X'10' 


Busy 






CCBCE 


X'08' 


Channel end 






CCBDE 


X'04' 


Device end 






CCBUC 


X'02' 


Unit check 






CCBUE 


x'or 


Unit exception 
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Command Control Block (CCB) description and format (part 1 of 2) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


5 


5 


1 


CCBCSW2 




CSW status byte 2 








CCBPCI 


X'80' 


Program-controlled interrupt 








CCBILEN 


X'40' 


Incorrect length 








CCBPROGM 


X'20' 


Program check 








CCBPROT 


X'10' 


Protection check 








CCBCHAND 


XW 


Channel data check 








CCBCHANC 


X'04' 


Channel control check 








CCBICTRL 


X'02' 


Interface control check 








CCBCHAIN 


x'or 


Chaining check 


6 


6 


2 


CCBSYMU 




Symbolic unit 


6 


6 


1 


CCBSUCLS 




U - LUB class 


7 


7 


1 


CCBSUNUM 




N - LUB number within class 


8 


8 


1 


CCBLIOCS 




Reserved for LIOCS 


9 


9 


3 


CCBCCW 




Address of channel program 


12 


C 


1 


CCBCOM3 




Communication byte 3 








CCBAPEND 


X'40' 


Appendage end at interrupt 


13 


D 


3 


CCBCSW 




Address of CSW in appendage 
routine 


16 


10 


4 


CCBDATB 




Address of last data block 


20 


14 


4 


CCBLCCWB 




Address of last CCW block 


24 


18 


4 






Reserved 


28 


1C 


1 


CCBUFLGS 




I/O manager CCB flags 








CCBUEAIC 


X'80' 


Error analysis in control 








CCBUEAC 


X'40' 


Error analysis complete 








CCBURDCW 


X'20' 


Read CCW active 








CCBRPS 


X'10' 


RPS channel program candidate 


29 


ID 


3 


CCBFSCCW 




Save area for first CCW address 


32 


20 


4 


CCBRDCCW 




Save area for first read CCW 


36 


24 


4 


CCBWTCCW 




Save area for first write CCW 


40 


28 


4 


CCBLWCCW 




Save area for last write CCW 


44 


2C 


12 






Reserved 


56 


38 


4 


CCBNCCB 




Address of next CCB block 


60 


3C 


4 






Reserved 
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Command Control Block (CCB) description and format (part 2 of 2) 



Section 5. Data Areas 5.99 



Channel Command Word (CCW) 



Record management uses the CCW macro to map a CCW slot within an 
FCDB for building CCW strings. Figure 5.52 shows the CCW description 
and format. 



Offset 






Hex. 




Dec Hex 


Bytes 


Field Name 


Digit 


Description 





8 


CCWAREA 




Length of one CCW 





1 


CCWOP 




Operation code 


1 1 


3 


CCWARG 




Argument address 


4 4 


1 


CCWFLAG 




CCW flags 






CCWDCH 


X'80' 


Data chaining 






CCWCCH 


X'40' 


Command chaining 






CCWSLI 


X'20' 


Suppress incorrect length 






CCWSKIP 


X'lO' 


Skip data transfer 


5 5 


1 






Reserved 


6 6 


2 


CCWCNT 




Count field 


8 8 


1 


CCWOP1 




Next CCW operation code 






CCWSRHE 


X'31' 


Search ID equal 






CCWSSEC 


X'23' 


Set sector 






CGWWTGKD X'lD' 


Write count key data 






CCWSKHD 


X'lB' 


Seek head 






CCWRDC 


X'12' 


Read count 






CCWTIC 


XW 


TIC 






CCWSEEK 


x'or 


Full seek 






CCWRD 


XW 


Read data 






CCWWT 


X'05' 


Write data 






CCWNOP 


X'03' 


NOP 



Figure 5.52 



Channel Command Word (CCW) description and format 
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CCW Skeleton DSECT (CWS) 



The I/O manager (IKQIOA) uses the CWS DSECT to map the CCW skele- 
tons used for building CCW strings. Figure 5.53 shows the CWS description 
and format. 



Offset 






Hex. 




Dec Hex 


Bytes 


Field Name 


Digit 


Description 





1 


CWSOFSET 




Offset of CCWs together 


1 1 


1 


CWSFLAG 




CCW string flag byte 1 






CWSPLHAD 


X'80' 


PLH address function 






CWSIVLR 


X'40' 


Invalidate R function 






CWSBFADC 


X'20' 


Buffer address and count 
function 






CWSARGAD 


X'10' 


Argument address function 






CWSASTER 


X'08' 


CCW address function 






CWSINCR 


XW 


Increment R function 






CWSDECR 


X'02' 


Decrement R function 






CWSNOOPT 


x'or 


No optimization function 


2 2 


1 


CWSFLAGC 




CCW string flag byte 2 






CCWSRPS 


X'80' 


RPS function 


3 3 


8 

Equate 


CWSCCW 
Value 




CCW to build 






CWSLENTH 


X'OB' 


One CCW string argument 
length 



Figure 5.53 



CCW Skeleton DSECT (CWS) description and format 



Section 5. Data Areas 5.101 



CCW Skeletons 



These are the I/O Manager (IKQIOA) CCW skeletons that CWS maps. 
They are used for building CCW strings. Figure 5.54 shows the CCW Skele- 
tons description and format. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 






Head Seek CCW 














SCCWSK 


X'08' 


Length of contiguous CCWs 
(FCBCINC) 


1 


1 






X'51' 


CCW build flags (CWSIVLR 
+ CWSARGAD + 
CWSNOOPT) 


2 


2 






XW 


CCW build flags 


3 


3 






X'lB' 


CCW opcode (CCWSKHD) 


4 


4 






xw 


Offset into ARG address 


7 


7 






X'40' 


Command chain flag 
(CCWCCH) 


8 


8 






XW 


Reserved 


9 


9 


2 




X'0006' 


Count field 


11 


B 






XW 


End of chain indicator 






Search CCW 






12 


C 




SCCWCI^H 


X'10' 


Length of continuous CCWs (2 
x FCBCINC) 


13 


D 






X'10' 


CCW build flags 
(CWSARGAD) 


14 


E 






XW 


CCW build flags 


15 


F 






X'31' 


CCW op code (CCWSRHE) 


16 


10 






X'000003' Offset into ARG address 


19 


13 






X'40' 


CC flag 


20 


14 






XW 


Reserved 


21 


15 


2 




X'0005' 


Count field 


23 


17 






X'08' 


Length of contiguous CCWs 
(FCBCINC) 


24 


18 






XW 


CCW build flags (CWSASTER) 


25 


19 






X'00' 


CCW build flags 


26 


1A 






x , or 


CCW op code minus carry 
(CCWTIC-1) 
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CCW Skeletons description and format (part 1 of 5) 
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Offset 




Hex. 




Dec 


Hex 


Bytes 


Field Name Digit 


Description 


27 


IB 


3 


XTFFFF8' Offset in CCW chain from 










here (minus 8) 


30 


IE 


4 


4XW 


Reserved 


34 


22 




XW 


End of chain 






Format Write CCW and Write CCW 




35 


23 




SCCWFMTW XW 


Length of contiguous CCWs 
(FCBCINC) 


36 


24 




X'13' 


CCW build flags (CWSARGAD 
+ CWSDECR + CWSNOOPT) 


37 


25 




XW 


CCW build flags 


38 


26 




X'lD' 


CCW op code (CCWWTCKD) 


39 


27 




X'000003' Offset into ARG address 


42 


2A 




XW 


Data chain flag (CCWDCH) 


43 


2B 




XW 


Reserved 


44 


2C 




xms' 


Count field 


46 


2E 




XW 


Length of continuous CCWs 
(FCBCINC) 


47 


2F 




X , 24' 


CCW build flags (CWSBFADC 
+ CWSINCR) 


48 


30 




XW 


CCW build flags 


49 


31 




X'05' 


CCW op code (CCWWT) 


50 


32 




X'000000' Offset into buffer address 


53 


35 




X'40' 


Command chain flag 
(CCWCCH) 


54 


36 




XW 


Reserved 


55 


37 




X'0000' 


Count field 


57 


39 




XW 


End of chain 
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CCW Skeletons description and format (part 2 of 5) 
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Offset 
Dec Hex 


Bytes Field Name 


Hex. 
Digit 


Description 






Write CCW 






58 


3A 


1 SCCWWT 


X'08' 


Length of contiguous CCWs 
(FCBCINC) 


59 


3B 




X'64' 


CCW build flags (CWSBFADC 
+ CWSINCR + CWSIVLR) 


60 


3C 




X'00' 


CCW build flags 


61 


3D 




X'05' 


CCW op code (CCWWT) 


62 


3E 




X'000000' Offset into buffer address 


65 


41 




X'40' 


Command chain flag 
(CCWCCH) 


66 


42 




X'00' 


Reserved 


67 


43 


2 


X'0000' 


Count field 


69 


45 




X'00' 


End of chain 






Index Read CCW and Read CCW 




70 


46 


1 SCCWIXRD 


X'08' 


Length of contiguous CCWs 
(FCBCINC) 


71 


47 




X'80' 


CCW build flags 
(CWSPLHAD) 


72 


48 




X'00' 


CCW build flags 


73 


49 




X'12' 


CCW op code (CCWRDC) 


74 


4A 




X'000000' Offset into PLH address 


77 


4D 




X'60' 


SLI and command chain flag 
(CCWCCH + CCWSLI) 


78 


4E 




X'00' 


Reserved 


79 


4F 


2 


X'0004' 


Count field 


81 


51 


1 SCCWRD 


X'08' 


Length of contiguous CCWs 
(FCBCINC) 


82 


52 




X'24' 


CCW build flags (CWSBFADC 
+ CWSINCR) 


83 


53 




X'00' 


CCW build flags 


84 


54 




X'06' 


CCW op code (CCWRD) 



I Figure 5.54 



CCW Skeletons description and format (part 3 of 5) 



5.104 DOS/VS LIOCS Volume 4 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 


85 


55 


3 




X'000000' Offset into buffer address 


88 


58 






X'40' 


Command chain flag 
(CCWCCH) 


89 


59 






XW 


Reserved 


90 


5A 


2 




X'0000' 


Count field 


92 


5C 






XW 


End of chain 






Read Back Check CCW 






93 


5D 




SCCWRBCK 


XW 


Length of contiguous CCWs 
(FCBCINC) 


94 


5E 






X'24' 


CCW build flags (CWSBFADC 
+ CWSINCR) 


95 


5F 






XW 


CCW build flags 


96 


60 






XW 


CCW op code (CCWRD) 


97 


61 






X'000000' Offset into buffer address 


100 


64 






X'50' 


Skip and command chain flags 
(CCWCCH + CCWSKIP) 


101 


65 






XW 


Reserved 


102 


66 


2 




X'0000' 


Count field 


104 


68 






XW 


End of chain 






RPS Seek Head and Set Sector CCW 




105 


69 




SCCWRPS 


XW 


Length of contiguous CCWs 
(FCBCINC) 


106 


6A 






X'51' 


CCW build flags (CWSIVLR + 
CWSARGAD + CWSNOOPT) 


107 


6B 






XW 


CCW build flags 


108 


6C 






X'lB' 


CCW op code (CCWSKHD) 


109 


6D 






X'000001' Offset into ARG address 


112 


70 






X'40' 


Command chain flag 
(CCWCCH) 


113 


71 






XW 


Reserved 
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CCW Skeletons description and format (part 4 of 5) 



Section 5. Data Areas 5.105 



Offset 




Hex. 




Dec 


Hex 


Bytes 


Field Name Digit 


Description 


114 


72 


2 


X'0006' 


Count field 


116 


74 


1 


X'08' 


Length of contiguous CCWs 
(FCBCINC) 


117 


75 


1 


X'00' 


CCW build flag 


118 


76 


1 


X'80' 


CCW build flag (CCWSRPS) 


119 


77 


1 


X'23' 


CCW op code (CCWSSEC) 


120 


78 


3 


X'OOOOOB' Offset into ARG address 


123 


7B 


1 


X'40' 


Command chain flag 
(CCWCCH) 


124 


7C 


1 


X'00' 


Reserved 


125 


7D 


2 


x'ooor 


Count field 


127 


7F 


1 


X'00' 


End of chain 
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CCW Skeletons description and format (part 5 of 5) 



5.106 DOS/VS LIOCS Volume 4 



I Close Work Area 



The Close Work Area is built when a VSAM data set is opened. It contains 
work area data for alternate index processing and save areas for close regis- 
ters and catalog registers. It is pointed to by CLWAAD, displacement 112 
(X'70'), in the Open Work Area. 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 










WACOMMON Common Open/Close work area 



1 



1 


1 

1 

.1 

..1 

...1 .... 
.... 1... 

1.. 

1. 

1 

1 


WAFLAG 

TCLOSE 

CLOSE 

OPEN 

OPAMDINX 

VOLFOUND 

SSFLAG 
RETRY 
FILEPROT 
WAERCODE 


Flag byte: 

Work area for TCLOSE 

Work area for Close 

Work area for Open 

Index AMDSB is being processed 

Volume serial number is in label cylinder 

record 

Sequence set with data 

Catalog should be reupdated by Close 

DOS Supervisor DASD file protect 

Error condition code 


2 


2 


2 


WALEN 


Length of GETVIS area 


4 


4 


4 


WAPIBSV 


Address of USERSAVE field 


8 


8 


4 


WALISTP 


Address of user ACB/DTF list 


12 


C 


2 


WACOMR 


Address of DOS communication region 


14 


E 


1 


EDBCODE 


One GETVIS obtains enough space for 3 
EDBs; this field is used to count EDBs 


15 


F 


1 




Reserved 


16 


10 


4 


CATEXTPT 


Pointer to extent information in order to 
build EDBs 


20 


14 


2 


CATEXTLN 


Length of total extents 


22 


16 


2 


EXTNUMB 


Number of extents 


24 


18 


80 


USERSAVE 


Room to save user jobname, PSW, and 
registers (from partition save area) 


104 


68 





WACOMEND 


End of common work area 



Figure 5.55 



Close Work Area description and format (part 1 of 3) 



Section 5. Data Areas 5.107 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


104 


68 





WORKAREA 


Close work area 


104 


68 


8 


TIME 


Time used to update catalog 


112 


70 


4 


RETREG1 


Return address of savearea 1 


116 


74 


4 


RETREG2 


Return address of savearea 2 


120 


78 





PARM 


Parameter list to be passed to 
IKQLASMD 


120 


78 


1 


CALLERID 


Caller ID 


121 


79 





DSID 


Data set ID 


121 


79 


3 


DSCI 


CI number 


124 


7C 


4 


CTACBPTR 


Address of catalog ACB 


128 


80 


1 


SHAREOPT 


Share option from catalog 


129 


81 


1 




Reserved 


130 


82 


2 


OUTCNT 


Number of output users returned from 
IKQLASMD 


132 


84 


1 

1 

.1 

..1 

...xxxxx 


BITBANK 
ENQACT 
ENQOPN 
UPDOPN 


Close flags 

USE macro was issued 

Enqueue on SYSOPEN 

Need to update OPEN indicator 

Reserved 


133 


85 


1 


SET0FLG 


Byte of zero for resetting OPEN indicator 


134 


86 


2 




Reserved 


136 


88 





CLAIXWA 


AIX work area 


136 


88 


4 


ACBREQ 


Address of ACB for which 
CLOSE/TCLOSE is requested 


140 


8C 


4 


ACBBASE 


Address of base cluster ACB 


144 


90 


4 


USBADDR 


Address of USB 
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Close Work Area description and format (part 2 of 3) 



5.108 DOS/VS LIOCS Volume 4 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


148 


94 


4 


ACBCURR 


Address of ACB currently being proc- 
essed 


152 


98 


4 


RPLCURR 


Address of header RPL 


156 


9C 


1 


AIXATTR 


AIX attribute of current ACB 






1 

.1 


AIXUPGRD 
AIXBASE 


Member of upgrade set but not path entry 
Base ACB 






..1 

...X xxxx 


AIXENTRY 


Path entry ACB 
Reserved 


157 


9D 


1 
1 

.XXX xxxx 


AIXPROC 
UPGD2 


Processing status 

First member of upgrade set has been 

processed 

Reserved 


158 


9E 


2 


CLMSGFLG 


IKQOCMSG flags 


160 


A0 


8 


FTAB 


Resource name field for protection of file 
tab 


168 


A8 


8 


CAT 


Resource name field for protection of file 
tab 


176 


BO 


4 


USBCURR 


Address of current USB ACB 


180 


B4 


72 


REGSAVE 


Close register savearea 


252 


FC 


72 


CATSAVE 


Catalog register savearea 


324 


144 





CATDATA 


Catalog data 


324 


144 


4 


CATLSTP 


Address of catalog list 


328 


148 


2 


CATLSTSZ 


Catalog list size 


330 


14A 


2 


CATWASIZ 


Catalog work area size 


332 


14C 


4 


CATWAPTR 


Address of catalog work area 


336 


150 





CATWA 


Catalog work area 


336 


150 


52 


DUMMYRPL 


Dummy RPL 


388 


184 


16 


DUMMY234 


Save area for registers 2-5 


404 


194 


540 


DUMMYPLH 


Dummy PLH for LSR 


944 


3B0 


64 


DUMLSRA 


LSR savearea 


1008 


3F0 


52 


DUMDBHD 


Dummy data buffer header 


1060 


424 


52 


DUMIBHD 


Dummy index buffer header 
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Close Work Area description and format (part 3 of 3) 



Control Interval Work Area (CIW) 



The CIW describes a control interval split workarea. It contains workareas 
for all routines that are activated during a control interval pseudo split, 
control interval split or a control area split. It is created by IKQCIS00 when- 
ever a split occurs. It points to the data buffer needed in case of a split and is 
pointed to by the AMBL (AMBLCIWA). The space is acquired as needed by 
GETVIS. At completion of Cl-split processing, it is freed via FREEVIS, and 
AMBLCIWA is set to zeros. Figure 5.56 shows the description and format of 
the CIW. 



Section 5. Data Areas 5.109 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 






Register Save Area for IKQCIS 








48 


CIWAVE 


Register save area (12 Reg.) 








4 


CIWAVR14 


Register 14 


4 


4 


4 


CIWAVR15 


Register 15 


8 


8 


4 


CIWAVR0 


Register 


12 


C 


4 


CIWAVR1 


Register 1, RDF shift count on entry 


16 


10 


4 


CIWAVR2 


Register 2, RDF modification offset 


20 


14 


4 


CIWAVR3 


Register 3, RDF data work area 


24 


18 


24 




Reserved 


48 


30 


4 


CIWLNGTH 


Length of work area 






Space Manager Save Area 




52 


34 


4 i. 


CIWSPA14 


Register 14 


56 


38 


4 


CIWSPA15 


Register 15 


60 


3C 


4 


CIWSPA03 


Register 3 






IKQPFO Work Area 




64 


40 


4 


CIWPF014 


Register 14 


68 


44 


4 


CIWPFO00 


Register 


72 


48 


4 


CIWPFO01 


Register 1 


76 


4C 


4 


CIWPFO02 


Register 2 


80 


50 


4 


CIWPFO03 


Register 3 


84 


54 


4 


CIWPFO04 


Register 4 


88 


58 


4 


CIWACB 


ACB pointer for TCLOSE call 


92 


5C 


2 


CIWSVC 


SVC2 in TCLOSE call list 


94 


5E 


2 




Unused 






IKQRRP Work Area 




TTie work 


area /or IKQRRP overlays the work area for IKQPFO 


64 


40 


4 


CIWRRP14 


Register 14 


68 


44 


4 


CIWRRP00 


Register 


72 


48 


4 


CIWRRP01 


Register 1 


76 


4C 


4 


CIWRRP02 


Register 2 


80 


50 


4 


CIWRRP03 


Register 3 


84 


54 


4 


CIWRRBA 


Beginning of RBA in extent 


88 


58 


4 


CIWRRPLN 


Preformat length 


92 


5C 


2 


CIWRSEOF 


SEOF indicator 


94 


5E 


2 




Unused 
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Control Interval Work Area (CIW) description and format (part 1 of 5) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 






IKQNCA Work Area 




96 


60 


4 


CIWNEW14 


Register 14 


100 


64 


4 


CIWNEW01 


Register 1 


104 


68 


4 


CIWNEW03 


Register 3 


108 


6C 


4 


CIWCARBA 


Low RBA of data control area (new 
control area) 


112 


70 


4 


CIWCIRBA 


Index RBA of old sequence set record 


116 


74 


4 


CIWNXRBA 


Index RBA of new sequence set record 


120 


78 


4 


CIWDARDB 


Data ARDB 






IKQCAS Work Area 




124 


7C 


4 


CIWCAS14 


Register 14 


128 


80 


4 


CIWCAS03 


Register 3 


132 


84 


4 


CIWHINEW 


High section of new control area 


136 


88 


4 


CIWSPTR 


Pointer save section 


140 


8C 


4 


CIWHIOLD 


High section of old control area 


144 


90 


4 


CIWEPTR 


Entry pointer 


148 


94 


4 


CIWAKEY 


Address of key save area 


152 


98 


2 


CIWEINC 


Entry increment bytes 


154 


9A 


2 


CIWSRR 


Offset of last section from the high 
section of the new control area 


156 


9C 


4 


CIWXBUFA 


Address of new index buffer 






IKQCIR Work Area 

Control Interval Space Reclamation Work Area 


The work 


area for IKQCIR overlays the work areas for IKQNCA and IKQCAS 


96 


60 


4 


CIWCIR14 


Register 14 


100 


64 


4 


CIWCIR09 


Register 9 


104 


68 


4 


CIWCIR03 


Register 3 


108 


6C 


4 


CIWSAVP 


Free data of pointer save for control 
interval 


112 


70 


1 


CIWCIRSW 

CIWNEXT 

CIWSPAN 

CIWRECL 

CIWNOSPL 

CIWXWRT 


Switch byte 

X'80' Position to next entry index 

X'40' Spanned entry index 

X'20' Space reclamation index 

X'10' No control area split indicator 

X'08' Write index indicator 


113 


71 


3 




Reserved 


116 


74 





CIWLASMD 


IKQLASMD parameter list 


116 


74 


1 


CIWLID 
CIWLTST 


Request type 
X'04' Test request 


117 


75 





CIWLDSID 


Data set identification 


117 


75 


3 


CIWLDSCI 


Control interval number 


120 


78 


4 


CIWLACB 


Pointer to catalog ACB 
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Control Interval Work Area (CIW) description and format (part 2 of 5) 



Section 5. Data Areas 5.111 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


124 


7C 


1 


CIWLSOPT 




Share option 


125 


7D 


1 


CIWLFLG 




Flag byte 








CIWLIN 


X'80' 


Input indicator 


126 


7E 


2 


CIWLOUT 




Output count 


128 


80 


8 


CIWRES 




Resource name field 


136 


88 


24 






Unused 






IKQCIS Work Area 






160 


A0 


32 


CIWCIWA 




Copy of PLH work area 


192 


CO 


4 


CIWRCDCT 




Record count save for move 


196 


C4 


4 


CIWMODPT 




Pointer to modification point 


200 


C8 


4 


CIWFPTR 




Pointer to next record to be 
moved 


204 


cc 


4 


CIWFRDF 




Pointer to RDF of the next 
record 


208 


DO 


4 


CIWTCIL 




Total data length of control 
interval 


212 


D4 


4 


CIWCLNUP 




RBA of control interval requires 
an update 


216 


D8 


4 


CIWDCRDB 




Save of current ARDB pointer 


220 


DC 


4 


CIWNIRBA 




RBA of new sequence set 


225 


E0 


2 


CIWOLDCT 




Save of RDF count 


226 


E2 


1 


CIWFLAGS 




Flags 








CIWNTWO 


xw 


Two control intervals are 
needed for this split 








CIWNCAS 


X'40' 


Control area split needed to 
continue 








CIWCASDN 


X'20' 


Control area split has been 
executed 








CIWUHKR 


X'10' 


ARDHKRB A requires update 








CIWCLN 


X'08' 


Control intervals written 
require clearing 








CIWCIR 


X'04' 


Space reclamation executed 


227 


E3 


1 






Unused 






IKQIXE Entry Stack 






228 


E4 





CIWENTRY 




Index entry data stack 


228 


E4 





CI WENT 1 




First stack position 


228 


E4 


4 


CIWRBA1 




RBA to be put in entry 


232 


E8 


4 


CIWKADD1 




Address of key 


2!36 


EC 


2 


CIWKL1 




Length of key 


238 


EE 


1 


CIWFLG1 




Flag byte 








CIWENTOK 


X'81' 


These two bits are used to 
indicate that this entry is valid 








CIWINC 


X'40' 


Index record in core 








CIWSPLIT 


X'20' 


Split entry to be done 








CIWNOIO 


X'10' 


No execution of input/output 
yet (I/O is required) 
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Control Interval Work Area (CIW) description and format (part 3 of 5) 
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Offset 




Hex. 




Dec 


Hex 


Bytes 


Field Name Digit 


Description 


239 


EF 


1 


CIWIXLV1 


Index level 


240 


F0 





CIWENT2 


Second stack position (Used to 
hold contents of stack 1 when 
stack 1 is needed for further 
processing.) 


240 


F0 


4 


CIWRBA2 


RBA 


244 


F4 


4 


CIWKADD2 


Key pointer 


248 


F8 


2 


CIWKL2 


Key length 


250 


FA 


1 


CIWFLG2 


Same as CIWFLG1 


251 


FB 


1 


CIWIXLV2 


Index level 


252 


FC 





CIWSTKND 


End of stack 


252 


FC 


4 


CIWEKEYA 


Address of index enter key 






Scratch Buffer Parameter List 




256 


100 





CIWDCNV 


Scratch CI descriptor 


256 


100 


4 


CIWDRBA 


Scratch control interval RBA 


260 


104 





CIWDBUF 


Buffer parameter list 


260 


104 


4 


CIWDBCB 


Address of control block 


264 


108 


4 


CIWDBAD 


Address of buffers 


268 


IOC 





CIWDCIDF 


CIDF descriptor 


268 


IOC 


2 


CIWDFSO 


Free space offset 


270 


10E 


2 


CIWDFSL 


Free space length 


272 


110 


1 


CIWDSW 


Switch byte 


273 


111 


1 




Reserved 


274 


112 


2 


CIWDCSZ 


Length of buffer - 10 






IKQIXE Work Area 




276 


114 


4 


CIWIXEBA 


Caller base save 


280 


118 


4 


CIWIXERT 


Return register save 


284 


11C 


4 


CIWIXER0 


Save GETVIS length 


288 


120 


4 


CIWIXER1 


Save GETVIS address 






Work Area for Linkage from IKQCIS to IKQCAS 


292 


124 


4 


CIWCILST 


CI list for multi-string CA split 


296 


128 


4 


CIWCISR8 


Register save for linkage return 






AMDSB Save Area for Updates to AM DSB Control Fields 


300 


12C 


4 


CSXHLRBA 


AMDHLRBA index 


304 


130 


2 


CSXNIL 


AMDNIL index 


306 


132 


2 




Unused 






IXFORMAT Work Space 




308 


134 


4 


CIWIXFBA 


Save callers base 


312 


138 


4 


CIWIXFRT 


Save return register 


316 


13C 


4 


CIWLSEP 


Entry pointer for last section 


320 


140 


4 


CIWANLSE 


Entry address for last section 


324 


144 


4 


CIWANLE 


Last entry address 
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Control Interval Work Area (CIW) description and format (part 4 of 5) 



Section 5. Data Areas 5.113 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


328 


148 


2 


CIWKEYL 




Length of current key 


330 


14A 


2 


CIWNLSEL 




Length of last section key 


332 


14C 


2 


CIWNLEL 




Length of last entry key 


334 


14E 


2 






Unused 


336 


150 


4 


CIWXNSA 




Address of next section 


340 


154 


4 


CIWXSOP 




Offset pointer of last section 


344 


158 


2 


CIWFCNT 




Format count 


346 


15A 


2 


CIWCINL 




Control entry length 


348 


15C 


44 


CIWAREA 




Work area for RDF build 


392 


188 


* 


CIWKEY 




Index key work area 


* Length = 5 


x keylength 
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Control Interval Work Area (CIW) description and format (part 5 of 5) 



Catalog Parameter List (CTGPL) 



The CTGPL is built before a DOS/VS component issues the CATLG macro 
instruction to process a VSAM catalog record. The CTGPL defines the 
catalog management request and its options, the catalog record to be proc- 
essed, and the VSAM catalog that contains the record. The CTGPL is point- 
ed to by register 1. When the catalog management routines build a CCA to 
support the request, the address of the CTGPL is put into the CCA 
(CCACPL). Figure 5.57 shows the CTGPL description and format. 



Offset 


Bytes and 






Dec Hex 


Bit Pattern 


Field Name 


Description 





1 


CTGOPTN1 


First option indicator: 




1 


CTGBYPSS 


Bypass the catalog management security 
verification processing 




.1.. .... 


CTGMAST 


Check the master password 




..1 


CTGCI 


Check the control interval password 




...1 .... 


CTGUPD 


Check the update password 




.... 1... 


CTGREAD 


Check the read password 




1.. 


CTGNAME 


The CTGENT field contains the address 
of a 44-byte DSNAME, or a 6-byte vol- 
ume serial number (padded with binary 
zeros) 




.....0.. 




The CTGENT field contains the address 
of a 3-byte control interval number 




1. 


CTGCNAME 


The CTGCAT field contains the address 
of a 44-byte catalog DSNAME 




0, 




The CTGCAT field contains the address 
of a VSAM catalog's ACB 




X 




Reserved 
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Catalog Parameter List (CTGPL) description and format (part 1 of 3) 
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Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


1 


1 


1 


CTGOPTN2 


Second option indicator: 






1 


CTGEXT 
CTGERASE 


Extend option (with UPDATE) 
Erase option (with DELETE) 






.1 


CTGREL 


Release (with UPDATE) Release second- 
ary extents when data set is opened as a 
reusable data set 






..1.... 


CTGPURG 
CTGVMNT 


Purge option (with DELETE) 
Volume mount caller 






...1 .... 


CTGGTNXT 


Get-next option (with LISTCAT) 






.... 1... 


CTGDISC 


Disconnect option (with DELETE) 






1.. 


CTGOVRID 


Erase override option (with DELETE) 






1. 


CTGSCR 


Scratch space option (with DELETE) 






X 




Reserved 


2 


2 


1 


CTGOPTN3 


Third option indicator: 






XXX 


CTGFUNC 


Specifies the caller-requested function: 






001 


CTGLOC 


LOCATE 






010 


CTGLSP 


Reserved for OS 






Oil 


CTGUPDAT 


UPDATE 






100 


CTGCMS 


A Catalog Management Services function 
(see CTGOPTNS) 






...1 .... 


CTGMCE 


Master catalog exists 






.... X... 




Reserved 






X.. 


CTGSRH 


Reserved 






X. 


CTGNUM 


Reserved 






1 


CTGAMO 


VSAM request 











Non-VSAM request 


3 


3 


1 


CTGOPTN4 


Reserved for OS 


4 


4 


4 


CTGENT 
CTGFVT 


User entry address (address of volume in 

the case of OS) 

Address of callers CTGFV (DEFINE, 

ALTER) 


8 


8 


4 


CTGCAT 


Address of the catalogs DSNAME or 
ACB, as specified in CTGOPTN1 


12 


C 


4 


CTGWKA 


Address of the callers work area 


16 


10 


1 


CTGOPTNS 


CMS options: 






0000 1... 


CTGDEFIN 


DEFINE 






0001 0... 


CTGALTER 


ALTER 






0001 1... 


CTGDELET 


DELETE 






00100... 


CTGLTCAT 


LISTCAT 






XXX 




Reserved 


17 


11 


1 


CTGCRFLG 


CRA open flags 






1 


CTGLBCYL 


Label cylinder information is passed for 
CRA 






.1 


CTGCTRBL 


Control blocks are passed for CRA 






..XX XXXX 




Reserved 
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Catalog Parameter List (CTGPL) description and format (part 2 of 3) 



Section 5. Data Areas 5.115 



Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


18 


12 


1 


CTGTYPE 


Type of catalog record 






CD' 


CTGTDATA 


Data 






CT 


CTGTINDX 


Index 






C'A' 


CTGTALIN 


Non-VSAM 






C'U 


CTGTUCAT 


User catalog 






CV 


CTGTVOL 


Volume 






CC 


CTGTCL 


Cluster 






CM' 


CTGTMCAT 


Master catalog 






CG' 


CTGTAIX 


Alternate index 






CR' 


CTGTPTH 


Path 






CY 


CTGTUPG 


Upgrade set 






CF' 


CTGTFREE 


Free record 


19 


13 


1 


CTGNOFLD 


Number of entries contained in 
CTGFIELD 


20 


14 


4 


CTGDDNM 
CTGNEWNM 


Address of DD-name 
Address of the new DSNAME, if the 
request is ALTER and the object's name 
is being changed 


20 


14 


2 


CTGFDBK 


Module name feedback (last two charac- 
ters of module name) 


22 


16 


2 


CTGFBFLG 


DOS reason code feedback 


24 


18 


4 


CTGJSCB 
CTGPSWD 


Reserved for OS 

Address of the caller supplied password 


28 


1C 


4 


CTGDDUC 


Address of UCAT file name 


32 


20 


4 


CTGDDCR 


Address of CRA file name 


36 


24 


4 


CTGFIELD 


First field pointer 


40 


28 


4 


CTGFLD2 


Second field pointer 


44 


2C 


4 


CTGFLD3 


Third field pointer 



Figure 5.57 



Catalog Parameter List (CTGPL) description and format (part 3 of 3) 



DADSM Parameter List 



The DADSM parameter list contains the information required by the DASD 
Space Management modules. Its address is held in register 1. 

Figure 5.58 shows its format and description. 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








6 


DADVOLID 




Volume identifier 


6 


6 


2 


DADSYSLN 




Number of system LUB 


8 


8 


2 


DADSFLAG 




Processing flags 








DADRF1 

DADFR4 

DADRADDR 

DADBYPS 

DADNGV 

DADLKLBK 

DADSPROT 

DADSVTAD 


X'80' 
X'40' 
X'20' 
X'10' 
X'08' 
XW 
X'02' 

x'or 


First byte: 

Read format 1 label 
Read format 4 label 
Address for read 
Bypass volume 1 checking 
No GETVIS required 
IKQLAB has been called 
Scratch/rename protected files 
VTOC address is valid 








DADSVTOP 

DADSMSG 

DADSKPF4 

DADBYEXT 

DADSCNCL 


X'80' 
X'40' 
X'20' 
X'10' 
XW 


Second byte: 

VTOC open indicator 
Message flag 

DADSM caller is DADSM 
Extents bypassed 
Operator reply was cancel 


10 


A 


1 


DADSRC 




DADSM return code 


11 


B 


1 


DADSARC 




Return code save area 


12 


C 


4 


DADSLADD 




Address of label record 


16 


10 


4 


DADSAREA 




Address of I/O area 


20 


14 


44 


DADEXIST 




Old data set name 


20 


14 


44 


DADSRDSN 




Returned data set name 


64 


40 


44 


DADCREAT 




New data set name 


108 


6C 


4 


DADSEXIT 




DADSM exit address 


112 


70 


24 


DADSWORK 




Work area 


112 


70 


4 


DADSWA 




Parameter 1 


116 


74 


4 


DADSAVE 




Work area 


116 


74 


4 


DADPARM2 




Parameter 2 


120 


78 


5 


DADSPTR 




Work area 


125 


7D 


1 


DADCODEA 




Work area 


126 


7E 


2 






Reserved 


128 


80 


4 


DADBLD 




Work area 


132 


84 


4 


DADEXT 




Work area 


136 


88 


8 


DADATE 




Date 


144 


90 


8 


DADSVTOC 




VTOC address 


144 


90 


2 






Reserved 


146 


92 


4 


DADSVST 




CCHH of VTOC 


150 


96 


2 






Reserved 


152 


98 


4 


DADSVEND 




CCHH of end of VTOC 


156 


9C 


8 


DADFLPTR 




File name 


164 


A4 


2 


DADHH 




Number of tracks on device 


166 


A6 


4 


DADSTN1 




Save area for IKQRDS00 


Figure 5.58 


DADSM parameter list description and format 
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Define the File Indexed Sequential (DTF1S) Table 



The DTFIS table is provided by the user program and contains all the inform- 
ation needed to process a specific ISAM file. Part of it is used by IIP when a 
VSAM data set is to be processed by an ISAM program. If this is the case, 
the DTFIS table is reformatted at OPEN time by IIPOPEN. Figure 5.59 
shows the DTFIS table description and format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








16 


DTFCCB 






2 


2 


1 


DTFCCBB2 






2 


2 




ERREXT 


X'10' 


Accept physical I/O error 


16 


10 


1 


FLAGBYTE 












AMODTF 


xw 

X'20' 


VSAM bit (set to 1 if DTF 
belongs to a VSAM data set) 
Assign "ignore" bit 


17 


11 


3 


LOGMODAD 




Address of logic module; if 
AMODTF is set to L then ad- 
dress of branch vector 


20 


14 


1 


FILETYPE 




File type 








LOAD 


X'24' 


LOAD-type DTF 








ADD 


X'25' 


ADD-type DTP 








RETRVE 


X'26' 


RETRIEVE-type DTF 








ADDRTR 


x'2r 


ADD-RETRIEVE4ype DTF 


21 


15 


1 


OPTIONS 1 




Options byte 1 (ISAM options) 








BLKDRECS 


X'08' 


Blocked records 


22 


16 


7 


FNAMEDTF 




File name (DDname) 


29 


ID 


1 


OPTIONS2 




Options byte 2 (not used by IIP) 


30 


IE 


1 


FNAMEC 
LOAD files: 




Status byte 








UNCIOERR 


X'80' 


Uncorrectable DASD I/O error 








WRGLEN 


X'40' 


Wrong length record (not used 
by IIP) 








PDARFULL 


X'20' 


No more VSAM data space 
available 








CYLXFULL 


X'10' 


No more VSAM data space 
available 








MASXFULL 


X'08' 


No more VSAM data space 
available 








DUPREC 


X'04' 


Duplicate record 








SEQCHECK 


X'02' 


Sequence check 








PDAROVFL 


x'or 


Prime data area overflow (not 
used by IIP) 



Figure 5.59 Define The File Indexed Sequential (DTFIS) table description and format 

(part 1 of 3) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








Non-LOAD files: 










UNCIOERR 


X'80' 


Uncorrectable DASD I/O error 








WRGLEN 


X'40' 


Wrong length record (not used 
by IIP) 








EOF 


X'20' 


End of file 








NORECFND 


X'10' 


No record found 








ILLEGID 


X'08' 


Illegal identifier specified (not 
supported by IIP) 








DUPREC 


XW 


Duplicate record 








OFARFULL 


X'02' 


No more VSAM data space 
available 








OVFLREC 


x'or 


Overflow record (RETRVE) 
(not used by IIP) 


31 


IF 


12 






Not used by VSAM 


43 


2B 


1 


RTRBYTE 




RETRVE byte 








WORKR 


XW 


WORKR set to 1 if WORKR 
specified 








WORKS 


X'40' 


WORKS set to 1 if WORKS 
specified 


44 


2C 


4 


AMDTFAD 




Address of AMDTF 


48 


30 


4 


CIPROCAD 




Address of IIP processor 


52 


34 


4 


SAVERG 




Save area for one register 


56 


38 


4 


PPRETAD 




Return address to problem 
program if called from a $$B 
phase 


60 


3C 


4 


RECLOC 




Address of record for LOAD 
IOREG 


64 


40 


1 


CISWITCH 




IIP switches 








WNKA 


XW 


Write-new-key-add bit 








RKWK 


X'40' 


Read-key-write-key bit 








RK 


X'20' 


Read-key bit 








FIWRITE 


X'08' 


First write after SETFL 








FIWOK 


XW 


First write is all right 








LD 


x'or 


LOAD 


65 


41 


9 






Not used by VSAM 


74 


4A 


2 


LRECLEN 




Logical record length 


76 


4C 


2 


KEYLEN 




Key length 


78 


4E 


16 






Not used by VSAM 


94 


5E 


2 


KEYLOC 




Key location (not used by IIP) 


96 


60 


4 


KARGAD1 




Address of KEYARG, moved 
from part 2 by IIPOPEN if RTR 
SEQ with KEY (POINT) or 
RTR RAN is specified 


100 


64 


2 


DSPLPRT2 




Displacement of part 2 (ADD, 
RTR) 


102 


66 


2 


DSPLPRT3 




Displacement of part 3 (ADD, 
RTR) 



Figure 5.59 Define The File Indexed Sequential (DTFIS) table description and format 

(part 2 of 3) 
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Offset 
Dec Hex 


Bytes 


Hex. 
Field Name Digit 


Description 


104 


68 


4 


LDIOREGS 


For RTR SEQ: if WORKS* 1, 
then NOP; if WORKS=0, then 
L IOREG, RECLOC 


108 


6C 


4 


LDIOREGR 


For RTR RAN: If WORKR= 1 ; 
then NOP; if WORKR=o, then 
L IOREG, RECLOC 


112 


70 


4 


WORKAD1 


Address of WORKR moved 
from part 2 


116 


74 


4 


10 AS AD 1 


Address of IOAREAS moved 
from part 2 


120 


78 


64 


SAVAR1 


For LOAD-type DTF, save area 
for IIPOPEN 


184 


B8 


4 


IORLAD 


Address of IOAREAL for 
LOAD 


188 


BC 


4 


DATIWLAD 


Address of data in WORKL for 
LOAD 


192 


CO 


4 


KEYIWLAD 


Address of key in WORKL for 
LOAD 


196 


C4 


4 


. 


Not used by VSAM 


200 


C8 


1 


MIXEXTI 

CROREXT X'10' 
XW 


Extend indicator for LOAD 

Extending file 
Creating file 


201 


C9 


3 




Not used by VSAM 


204 


CO 


4 


WORKLAD 


Address of WORKL for ADD 


208 


DO 


16 




Not used by VSAM 


224 


E0 


2 


KLM1 

Part 2 of DTF 


KEYLEN-1 for LOAD 








8 




Not used by VSAM 


8 


8 


4 


IOASAD2 


Address of IOAREAS 


12 


C 


4 


IOARAD 


Address of IOAREAR 


16 


10 


4 


KARGAD2 


Address of KEYARG 


20 


14 


4 


WORKRAD2 


Address of WORKR 


24 


18 


4 


CURIOAAD 


Address of current sequential 
I/O area 


28 


1C 


4 


LIOREGS 


L IOREG, *-4 or NOP (RTR 
SEQ) 


32 


20 


36 




Not used by VSAM 


68 


44 


2 


NTAGRECS 


Number of records tagged for 
deletion 


70 


46 


2 


LIOREGR 
Part 3 of DTF 


LR IOREG, ) or NOP(RTR 

RAN) 








64 


SAVAR2 


Save area for IIPOPEN, not 
LOAD type 



Figure 5.59 Define The File Indexed Sequential (DTFIS) table description and format 

(part 3 of 3) 
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Extent Definition Block (EDB) 



The EDB describes all extents of the space allocated to the cluster's data set. 
The EDB is built by the Open module from information in the data set's 
catalog record. The AMDSB contains the length of the EDB (AMDLEDB), 
the number of EDB entries (AMDNEDB) that follow the header, and the 
address of the first EDB (AMDFSEDB). Each EDB entry describes an 
extent, and contains the address of the associated LPMB. Figure 5.60 shows 
the EDB description and format. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








4 


EDBNEDB 




Address of next EDB 


4 


4 


2 


EDBSYMU 




Symbolic unit (for CCB) 


4 


4 


1 


EDBSUCLS 




Symbolic unit class 


5 


5 


1 


EDBSUNUM 




Symbolic unit number 


6 


6 


2 


EDBNUMTR 




Number of tracks of extent 


8 


8 


1 


EDBFLGS 




Flags 








EDBDWSS 

EDBSSWD 

EDBIXREP 

EDBMNT 

EDBLGCC 

EDBRPS 


X'80' 
X'40' 
X'20' 
X'10' 
X'08' 

X'04' 


Data RBA with sequence set 

Sequence set RBA with data 

Index replication 

Volume mount flag 

Device contains more than 256 

cylinders 

Indicator for RPS device 


9 


9 


3 


EDBMBB 




Extent (M) and bin (BB) 
number 


9 


9 


1 


EDBM 




Extent (M) number 


10 


A 


2 


EDBBB 




Bin (BB) number 


12 


C 


8 


EDBXTNT 




Combined name for low and 
high CCHH 


12 


C 


4 


EDBLCCHH 




Low cylinder and head numbers 


12 


c 


2 


EDBLCC 




Lowest cylinder 


14 


E 


2 


EDBLHH 




Lowest head 


16 


10 


4 


EDBHCCHH 




High cylinder and head num- 
bers 


16 


10 


2 


EDBHCC 




Highest cylinder 


18 


12 


2 


EDBHHH 




Highest head 


20 


14 


4 


EDBLPMBA 




Address of associated LPMB 


24 


18 


4 


EDBPARDB 




Address of ARDB 


28 


1C 


2 


EDBVLSQ 




Index to the VOLSER list 


30 


IE 


2 


EDBSTTRK 




Relative track address of the 
start of the extent 


32 


20 


8 


EDBRBAS 




Combined name for low and 
high RBAs 


32 


20 


4 


EDBLORBA 




Low RBA limit 


36 


24 


4 


EDBHIRBA 




High RBA limit 



Figure 5.60 



Extent Definition Block (EDB) description and format 
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EXCPAD Parameter List 



EXP is a mapping macro that maps the following parameter list when an 
EXCPAD exit is taken. Figure 5.61 shows the EXCPAD Parameter List 
description and format. 



Offset 




Hex. 


Dec 


Hex 


Bytes 


Field Name Digit Description 








4 


EXPST 


Start of EXCPAD list 








256 


EXP AREA 


Length of parameter list 








56 


EXPSAVE 


Register 2-15 save area 








4 


EXPSAV02 


Register 2 save area 


4 


4 


4 


EXPSAV03 


Register 3 save area 


8 


8 


4 


EXPSAV04 


Register 4 save area 


12 


C 


4 


EXPSAV05 


Register 5 save area 


16 


10 


4 


EXPSAV06 


Register 6 save area 


20 


14 


4 


EXPSAV07 


Register 7 save area 


24 


18 


4 


EXPSAV08 


Register 8 save area 


28 


1C 


4 


EXPSAV09 


Register 9 save area 


32 


20 


4 


EXPSAV10 


Register 10 save area 


36 


24 


4 


EXPSAV11 


Register 1 1 save area 


40 


28 


4 


EXPSAV12 


Register 12 save area 


44 


2C 


4 


EXPSAV13 


Register 13 save area 


48 


30 


4 


EXPSAV14 


Register 14 save area 


52 


34 


4 


EXPSAV15 


Register 1 5 save area 


56 


38 


3 




Reserved 


59 


3B 


1 


EXPPECBT 


Test and set byte 


60 


3C 


68 




Reserved 


128 


80 


128 


EXPARML 


User's parameter list 


128 


80 


4 


EXPRPLC 


Address of calling RPL 


132 


84 


4 


EXPECB 


Address of ECB 


136 


88 


4 


EXPRPLS 


Address of splitting RPL (zero 
indicates no split) 


149 


8C 


116 




Rest of user's parameter list 
(available to user) 



Figure 5.61 



EXCPAD Parameter List description and format 
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Exit List (EXLST) 



The EXLST contains addresses for the user-exit processing routines EODAD, 
SYNAD, LERAD, EXCPAD, and JRNAD. The address of the EXLST is in 
the ACB (ACBEXLST). The description and format of the EXLST are 
shown in Figure 5.57. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








1 


EXLID 




Control block identifier = X'81' 











EXLIDD 


X'81' 


EXLST identifier equate 


1 


1 


1 


EXLSTYP 


X'00' 
X'10' 
X'20' 


Release indicator 

VSAM Release 1 
VSAM Release 2 
VTAM 


2 


2 


2 


EXLLEN 




Length of EXLST 


4 


4 


1 


EXACT 




Active byte 


5 


5 





EXLEOD 




EODAD entry 


5 


5 


1 


EXLEODF 




Entry description bits 


6 


6 


4 


EXLEODP 




Address of the EODAD exit 
routine 


10 


A 





EXLSYN 




SYNAD entry 


10 


A 


1 


EXLSYNF 




Entry description bits 


11 


B 


4 


EXLSYNP 




Entry of the SYNAD exit 
routine 


15 


F 





EXLLER 




LERAD entry 


15 


F 


1 


EXLLERF 




Entry description bits 


16 


10 


4 


EXLLERP 




Address of the LERAD exit 
routine 


20 


14 





EXLIOEX 




EXCPAD entry 


20 


14 


1 


EXLIOEXF 




Entry description bits 


21 


15 


4 


EXLIOEXP 




Address of the EXCPAD exit 
routine 


25 


19 





EXLJRN 




JRNAD entry 


25 


19 


1 


EXLJRNF 




Entry description bits 


26 


1A 


4 


EXLJRNP 




JRNAD pointer 


Bits used in 


individual exit flags in bytes she 


)wn as entry description: 








1 


EXENFL 




Flag byte 








EXENEXB 


X'80' 


Entry present bit 








EXENACTB 


X'40' 


Entry active bit 








EXENLEB 


X'20' 


Load bit 


1 


1 


4 


EXENADDR 




Exit address 



Figure 5.62 



Exit List (EXLST) description and format (part 1 of 2) 
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Offset 


Hex. 




Dec Hex Bytes Field Name 


Digit 


Description 


Minimum length EXLST for specified entry: 


Dec. 
Digit 




EXLEODL 


10 


Minimum length if EODAD 


EXLSYNL 


15 


Minimum length if SYNAD 


EXLLERL 


20 


Minimum length if LERAD 


EXLIOEXL 


25 


Minimum length if EXCPAD 


EXLJRNL 


30 


Minimum length if JRNAD 


Minimum and maximum size of EXLST: 






EXLMINL 


10 


Minimum length of EXLST 


EXLMAXL 


30 


Maximum length of EXLST 


32 20 EXLSTEND 




End of EXLST 



Figure 5.62 



Exit List (EXLST) description and format (part 2 of 2) 



Field Control and Data Block (FCDB) 



The FCDB describes one of the blocks within the CCW build area. The first 
FCDB is pointed to by the BKPHD and is used by IKQIOA to construct the 
channel program. Figure 5.63 shows the FCDB format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








64 


FCB 




Maps the module FCB 








56 






Space for use in the block 


56 


38 


1 


FCBTIC 




Reserved for a TIC operation 
code 


57 


39 


3 


FCBCHAIN 




Pointer to next block 


60 


3C 


1 


FCBCFL 




Reserved for chaining flag 


61 


3D 


1 


FCBALI 




Allocation indicator 








FCBPRVA 


X'G4' 


Previous request allocated 








FCBPRVSV 


X'08' 


Previous request save 


62 


3E 


2 
Equate 


FCBOFSET 
values 




Offset pointer in block 








FCBCMAX 


X'38' 


Maximum CCW offset when 
full 








FCBDMAX 


X'30' 


Maximum data offset when full 








FCBDINC 


X'0C 


Increment for data in space 








FCBCINC 


X'08' 


Increment for CCW(s) in space 








FCBCP2 


X'03' 


CCW increment in powers of 2 



Figure 5.63 



Field Control and Data Block (FCDB) description and format 
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Field Parameter List (CTGFL) 



The CTGFL is built before a DOS/VS component issues the CATLG macro 
instruction to process a VSAM catalog record. The CTGFL defines one of 
the catalog record's fields or a group of logically related fields (a combina- 
tion). The CTGFL is used in three situations: 

• It identifies a catalog record field to retrieve or update. The CTGPL 
contains the address of each CTGFL used in this way. 

• It identifies a catalog record field to compare against caller-supplied data. 
This is a "test" CTGFL and is addressed by another CTGFL. 

• For update-extend processing, one or three FPLs identify the volume 
information group occurrence(s) to be extended. The catalog record 
fields identified by the CTGFL(s) are not explicitly retrieved or updated 
for the caller. 

When a catalog management routine is processing a CTGFL, the CTGFL's 
address is in the CCA (CCAFLPT or CCATEST). Figure 5.64 shows the 
CTGFL description and format. 



Offset 


Bytes and 






Dec Hex 


Bit Pattern 


Field Name 


Description 





1 


CTGFLDNO 


Number of entries in CTGFLDAT 


1 1 


1 


CTGFLDCD 


Test condition: 




X'OO' 




The FPL describes a field to be updated 
or retrieved. 

The FPL is pointed to by the caller's 
CTGPL (CTGFIELD entry). 




not X'OO' 




This FPL describes a test condition, and 
is pointed to by a request FPL. The codes 
for the test conditions are: 




X'80' 




Equal 




X'60' 




Not equal 




X'20' 




Greater than 




X'40' 




Less than 




X'AO' 




Greater than or equal 




X'CO' 




Less than or equal 




X'80' 




Test under mask for zeros 




X'10' 




Test under mask for ones 




X'40' 




Test under mask for mixed 


2 2 


1 


CTGFLDGC 


Group code number 


3 3 


1 


CTGFLDRE 


Test results: 




XXXX XXX. 




Reserved 









Successful test 




1 




Test failed 



Figure 5.64 



Field Parameter List (CTGFL) description and format (part 1 of 2) 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


4 


4 


4 


CTGFLDWA 


Work area: contains information about 
the catalog record's field name from the 
dictionary 


8 


8 


4 


CTGFLDNM 


Address of the field name 


12 


C 


4 


CTGFLCHN 


Address of next field macro or zero 


16 


10 





CTGFLDAT 


Combined name for data length and 
address 


16 
20 


id 

14 


4 
4 


CTGFLNG 
CTGFLPT 


Data length of: 

Address (in caller's work area) of: 

• The field that was retrieved, if the 
request was LOCATE or CMS LIST- 
CAT, or 

• New data to replace or add to data in 










the catalog record, if the request was 
UPDATE, CMS DEFINE or CMS 
ALTER, or 

• Data used to Compare to catalog 
record fields, if the FPL is a FPL-f or- 
tests. 



Figure 5.64 



Field Parameter List (CTGFL) description and format (part 2 of 2) 



Field Vector Table (CTGFV) 



The CTGFV is built by the Access Method Services utility programs and 
contains addresses of user-supplied information fields and lists. The CTGFV 
is built when the user issues a DEFINE or ALTER command. If the user is 
creating a cluster, a CTGFV is built for each catalog record that will be built 
to describe the cluster, i.e., Access Method Services builds a cluster CTGFV, 
a data CTGFV, and, if the cluster is key-sequenced, an index CTGFV. The 
CTGFV is pointed to by the CTGPL (CTGFVT). If Access Method Services 
builds more than one CTGFV, the cluster CTGFVs are pointed to by the 
CTGPL (CTGFVT) and the data and index CTGFVs are pointed to by the 
cluster CTGFV. Figure 5.65 shows the CTGFV description and format. 
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Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 








1 


CTGFVTYP 


The CTGFV contains information used 
by the CMS Define routines to build a 
catalog record of the type: 






CD' 

C'C 

CT 

C'V 

CA' 

CG' 

C'R' 


CTGFVDTA 

CTGFVCL 

CTGFVIDX 

CTGFVVOL 

CTGFVALN 

CTGFVAIX 

CTGFVPTH 


Data 

Cluster 

Index 

Volume (Space) 

Non-VSAM 

Alternate Index 

Path 


1 


1 


1 


CTGFVPRO 


CMS processing option flags: 






1 

..1 

...xxxxx 


CTGFVAVL 
CTGFVRVL 
CTGFVNDC 


ALTER: Add volumes 
ALTER: Remove volumes 
Device type converted switch 
Reserved 


2 


2 




CTGFVELM 


Element number of CMSPCATR 


3 


3 






Reserved 


4 


4 


4 


CTGFVDCH 


Address of the cluster's data FVT 


8 


8 


4 


CTGFVICH 


Address of the cluster's index FVT 


12 


C 


4 


CTGFVVCH 


Address of the space vector table 


16 


10 


4 


CTGFVIND 


Address of the associated DLBL state- 
ment 


20 


14 


4 


CTGFVENT 


Address of the 44-byte entry name 


24 


18 


4 


CTGFVSTY 


Address of the security information FPL 
(passwords, codewords, and number-of- 
tries) 


28 


1C 


4 


CTGFVOWN 


Address of the owner identification FPL 


32 


20 


4 


CTGFVEXP 


Address of the expiration data FPL 


36 


24 


4 


CTGFVCRE 


Address of the creation date FPL 


40 


28 


4 


CTGFVVLT 


Address of the volume serial number list 


44 


2C 


4 


CTGFVRNG 


Address of the key range list 


48 


30 


4 


CTGFVDVT 


Address of the device type FPL (for 
nonVSAM DEFINE only) 


52 


34 


4 


CTGFVSPC 


Address of the space allocation informa* 
tion FPL 


56 


38 


4 


CTGFVAMD 
CTGFVFSN 


Address of the AMDSB FPL (if VSAM 

DEFINE) 

Address of the file sequence number (if 

NonVSAM DEFINE) 


60 


3C 


4 


CTGFVATR 


Address of the data set attributes FPL 


64 


40 


4 


CTGFVBUF 


Address of the buffer size FPL 


68 


44 


4 


CTGFVLRS 


Address of the average record size FPL 


72 


48 


4 


CTGFVEXT 


Address of exception exit 


76 


4C 


4 


CTGFVNAM 


Address of related object 


80 


50 


4 


CTGFVUPG 


Address of FPL for 'RGATTR' 


84 


54 


4 


CTGFVWKA 


Address of CRA volume identification 


88 


58 


4 


CTGFVPWD 


Relationship password 



Figure 5.65 



Field Vector Table (CTGFV) description and format 



Section 5 . Data Areas 5,127 



I/O Arguments (IOARG) 



IKQIOARG maps the I/O data areas in the FCDB. Figure 5.66 shows the 
IOARG description and format. 



Offset 






Hex. 




Dec Hex 


Bytes 


Field Name 


Digit 


Description 





8 


IOASEEK 




Computed DASD address 





1 


IOAFLAG 




Flag byte 






IOARPS 


X'80' 


RPS device 


1 1 


2 


IOABB 




BB 


3 3 


4 


IOACCHH 




CCHH 


3 3 


2 


IOACC 




CC 


5 5 


2 


IOAHH 




HH 


7 7 


1 


IOAR 




R 


8 8 


1 


IOAKEY 




Key size 


9 9 


1 


IOADATA 




Data size 


11 B 


1 


IOASEC 




RPS sector size 



Figure 5.66 



I/O Arguments (IOARG) description and format 



I/O Drive Block (IODRB) 



IKQIODRB maps the BUFRIODR and BUFWIODR fields of the BCB. 
Figure 5.67 shows the IODRB format and description. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








20 


IODLEN 












2 


IODCURU 




Symbolic unit number 


2 


2 


2 


IODBKSTI 




Number of blocks to I/O 


4 


4 


8 


IODSEEK 




Compiled DASD address 


4 


4 


1 


IODFLAG 




Flag byte 








IODRPS 


X'80' 


RPS device indicator 


5 


5 


2 


IODBB 




BB 


7 


7 


4 


IODCCHH 




CCHH 


7 


7 


2 


IODCC 




CC 


9 


9 


2 


IODHH 




HH 


11 


B 


1 


IODR 




R 


12 


C 


4 


IODRBA 




RB A for I/O 


16 


10 


4 


IODLPMB 




Address of associated LPMB 



Figure 5.67 



I/O Driver Block (IODRB) description and format 



$.128 DOS/VS LIOCS Volume 4 



I/O Work Area (IOWKA) 



IKQIOWKA maps the PLH Workarea (PLHWAREA, displacement X'C8'). 
Figure 5.68 shows the IOWKA description and format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


200 


C8 


44 


WKAREA 




Beginning of IOWKA 


200 


C8 


8 


WKASEEK 




Work area DASD address 


200 


C8 


1 


WKAM 




M 


201 


C9 


2 


WKABB 




BB 


203 


CB 


4 


WKACCHH 




CCHH 


203 


CB 


2 


WKACC 




CC 


205 


CD 


2 


WKAHH 




HH 


207 


CF 


1 


WKAR 




R 


208 


DO 


4 


WKABDC14 




BLDCP0O0 save area 


212 


D4 


12 


WKATEMP 




Temporary area 


224 


E0 


12 


WKAGETVS 




ALLBK save area 


224 


E0 


2 


WKARTNCD 




Return code 


226 


E2 


2 


WKABLKS 




Number of blocks on active 
CCB 


228 


E4 


1 


WKAERRSW 




Hold error indicator in IKQIOB 


229 


E5 


1 


WKAIOMSW 




I/O manager flags 








IOMPROCR 


X'80' 


Process reads 








IOMPROCW 


X'40' 


Process writes 








IOMPROCK 


X'20' 


Process write checks 


230 


E6 


2 






Reserved 


232 


E8 


4 


WKADBHD 




Address of working BHD 


236 


EC 


4 


WKAREGSV 




ALLOC register save area 


240 


F0 


4 


WKASVCCB 




Save address of previous CCB 



Figure 5.68 



I/O Work Area (IOWKA) description and format 



Section 5 . Data Areas 5.129 



Logical-to-Physical Mapping Block (LPMB) 



The LPMB contains information about the direct-access device that contains 
the user's data set. The LPMB is built by the Open module, using information 
in the data set's catalog record. The EDB (EDBLPMBA) contains the 
address of the LPMB. Figure 5.69 shows the LPMB description and format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








1 


LPMID 


X'FF 


Control block identifier 


1 


1 


1 


LPMBDTF 




DTF device type indicator 


2 


2 


2 


LPMLEN 




Length of the LPMB 


4 


4 


4 


LPMBPTRK 




Number of bytes per track 


8 


8 


4 


LPMCASZ 




Number of bytes per control 
area 


12 


C 


4 


LPMBLKSZ 




Physical block size 


16 


10 


2 


LPMTRKGA 




Number of tracks per control 
area 


18 


12 


2 


LPMTPC 




Number of tracks per cylinder 


20 


14 


2 


LPMBNQBK 




Number of physical records per 
track 


22 


16 


2 


LPMBPBCI 




Physical blocks per control 
interval 



Figure 5.69 



Logical-to-Physical Mapping Block (LPMB) description and format 



5.130 DOS/VS LIOCS Volume 4 



Open ACB List (OAL) 



The OAL is a list which contains all VSAM ACB's that have been opened. It 
is built by IKQOPN. The addresses of the ACB's are also entered by 
IKQOPN. OAL entries are deleted by IKQCLO00 and $$BACLOS. Figure 
5.62 shows the description and format of the OAL. The field at displacement 
X'OC of the Anchor Table contains the address of the OAL. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








1 


OALID 




OAL identifier 








OALIDD 


X'FO' 


OAL identifier equate 


] 


1 


1 






Reserved 


2 


2 


2 


OALLEN 




Length of this block (128) 


4 


4 


4 


OALNOAL 




Pointer to next OAL 


8 


8 


2 


OALNOPN 




No. of open data sets in the 
partition 


10 


A 


2 


OALNENT 




No. of OAL entries (14) 


12 


C 


4 


OALSAVE 




Save area for interrupt informa- 
tion during automatic close. 
Data consists of interrupt length 
(2 bytes) and interrupt code (2 
bytes). 


16 


10 





OALENTRY 




Entry description (repetitive) 


16 


10 


4 


OALACB 




Address of opened ACB 


20 


14 


1 


OALSVC 




Delimiter (X'OA') 


21 


15 


1 


OALFLG 
OALACT 


X'80' 


Flag byte 
ACB is open 


22. 


16 


2 


OALCICHK 




Value to check validity of 
control interval number of data 
set in catalog. Value is formed 
at open time by adding the third 
byte of AMDDSM to the first 
two bytes of AMDDSM. 



Figure 5.70 



Open ACB List (OAL) description and format 



Open Work Area (OPNWA) 



The Open Work Area is built when a VSAM data set is opened or is being 
created. It contains the addresses of control blocks and work areas needed 
when a data set is being opened. The Open Work Area also contains flags 
that indicate the type of processing being performed on the data set and the 
address of the SVC that invoked the processing. The Open Work Area is 
pointed to by the AMBL and register 4 (RWKA). Figure 5.71 shows the 
Open Work Area description and format. 



Section 5. Data Areas 5.131 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


G 







WACOMMON Common Open/Close work area 








1 

1 . 

.1.. .... 

..1 

...1 .... 
.... 1... 

.....1.. 

1. 

1 


WAFLAG 

TCLOSE 

CLOSE 

OPEN 

OPAMDINX 

VOLFOUND 

SSFLAG 

RETRY 

FILEPROT 


Flag byte: 

Work Area for TCLOSE 

Work Area for Close 

Work area for Open 

Index AMD SB is being processed 

Volume serial number is in label cylinder 

record 

Sequence set with data 

Catalog should be reupdated by Close 

DOS Supervisor DASD file protect 


1 


1 


1 


WAERCODE 


Error condition code 


2 


2 


2 


WALEN 


Length of GETVIS area 


4 


4 


4 


WAPIBSV 


Address of USERSAVE field 


8 


8 


4 


WALISTP 


Address of user ACB/DTF list 


12 


C 


2 


WACOMR 


Address of DOS communication region 


14 


E 


1 


EDBCODE 


One GETVIS obtains enough space for 3 
EDBs; this field is used to count EDBs 


15 


F 


1 




Reserved 


16 


10 


4 


CATEXTPT 


Pointer to extent information in order to 
build EDBs 


20 


14 


2 


CATEXTLN 


Length of total extents 


22 


16 


2 


EXTNUMB 


Number of extents 


24 


18 


80 


USERSAVE 


Room to save user jobname, PSW, and 
registers (from partition save area) 


104 


68 





WACOMEND 


End of common work area 


104 


68 





OWA 


Partial map of work area obtained by 
GETVIS issued by $$BOVSAM 


104 


68 


4 


WAVSLOD 


Address of location where VSAM has 
been placed by CDLOAD (set by 
$$BOVSAM) 


108 


6C 


4 


WAIKQLAB 


Address of location where IKQLAB has 
been placed by CDLOAD (set by 
$$BOVSAM) 


112 


70 


4 


WARACB 


Pointer to ACB being opened 


112 


70 


4 


CLWAAD 


Close work area address saved 


116 


74 


1 


LBLRCLEN 


Length of work area pointed to by 
LABICPTR in multiple of 1 28 


117 


75 


3 


LABICPTR 


Pointer to work area reserved for label 
record 


120 


78 


4 


SVCATACB 


Pointer to catalog ACB 


124 


7C 


4 


CTGPLPTR 


Pointer to catalog parameter list (CPL) 


128 


80 


4 


CATWKPTR 


Pointer to catalog work area (CTGWA) 
(contents moved to CPL) 



Figure 5.71 



Open Work Area (OPNWA) description and format (part 1 of 7) 



5.132 DOS/VS LIOCS Volume 4 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


132 


84 


4 


OLDEDB 


Address of EDB 


136 


88 


4 


NXTEDB 


Address of next EDB 






Catalog Field List for AMDSB 


140 


8C 





FLAMDSB 


Catalog field list work area 
(CTGFLDWA) for AMDSB 


140 


8C 





SAVERET1 


Pointer to contents of return register (R 
14) if not catalog call 


140 


8C 


4 


RETREG1 


Return address to save area 1 


144 


90 





SAVERET2 


Return address to save area 2 


144 


90 


4 


RETREG2 


Return address to save area 2 


148 


94 





FLAMDSBN 


Pointer to catalog field name 
AMDSBCAT 


148 


94 


4 


RETREG3 


Return address to save area 3 


152 


98 


4 


* 


Next CTGFLCHN number 


156 


9C 


4 


FLAMDSBL 


Length of AMDSBCAT 


160 


A0 


4 


FLAMDSBA 


Address of AMDSBCAT 






Catalog Field List for Volume Entry(ies) 


164 


A4 


8 


FLENTVOL 




164 


A4 


2 


KRNKEYS 


No. of key ranges equals number of 
ARDBs 


166 


A6 


2 


KRNVOLS 


Number of volumes for this key range 


172 


AC 


4 


FLVOLNTN 


Volume entry name ENTVOL 


176 


BO 


4 


* 




176 


BO 


4 


SVLENG 


Length of ENTVOL 


180 


B4 


4 


VOLENTLN 


Length of volume entry 


184 


B8 


4 


VOLGPPTR 


Address of ENTVOL data 






Catalog Field List for Data Set Attributes 


188 


BC 


20 


* 


DSATTR field list 


208 


DO 


4 


FLDSATRA 


Base of DSATTR 






Catalog Field List for Open Indicator 


212 


D4 


8 


FLOPNIND 


Locate OPENIND and test for UPD 


220 


DC 


4 


FLOPNINN 


Open indicator field list 


224 


EO 


4 


* 


Chain 


228 


E4 


4 


FLOPNINL 


Length of OPENIND 


232 


E8 


4 


FLOPNINA 


OPENIND address 






Catalog Field List for Minimum Buffer Size 


236 


EC 


20 


* 


Flags, etc., for BUFSIZE 


256 


100 


4 


FLBUFSZA 


Base of BUFSIZE 


* Multi-use 


field 







Figure 5.71 



Open Work Area (OPNWA) description and format (part 2 of 7) 



Section 5 . Data Areas 5.133 



Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 






Catalog Field List for High-Used RBA per Data Set 


260 


104 


20 


* 


Miscellany for HURBADS 


260 


104 


20 


NVOLLIST 


No. of volumes per key range (Space for 
1 two-byte entries) 


280 


118 


4 


FLHURDSA 


Base for HURBADS 


284 


11C 


20 


* 


CATFILE field list 


304 


130 


4 


FLFILTA 


Base for CATFILE 






Catalog Field List for Names of Related Data Sets 


308 


134 


8 


FLNAMEDS 


Flags for NAMEDS 


308 


134 


8 


PARMLIST 


IKQVLAB parameter list 


308 


134 


4 


PARM1 


ACB DD name 


312 


138 


1 


PARMLEN 


Length of work area for IKQLAB 


313 


139 


3 


PARM2 


Pointer to 'LABICPTR' 


316 


13C 


4 


FLNAMDSN 


Pointer to 'NAMEDS' 


320 


140 


4 


* 




324 


144 


4 


FLNAMDSL 


Length of associated names 


328 


148 


4 


FLNAMDSA 


Address of NAMEDS groups 






Catalog Field List for Entry Type and Control Interval No. 


332 


14C 


8 


* 


CTGFLDWA for this field list 


340 


154 


4 


FLMISCLN 


Pointer to 'DSTYPNAM' 


344 


158 


4 


* 


Chain 


348 


15C 


4 


FLMISCLL 


Length of DSTYPNAM 


352 


160 


4 


FLMISCLA 


Address of DSTYPNAM 






Catalog Field List to Find Catalog ACB Address 


356 


164 


20 


FLCATACB 


Field list #10 for catalog ACB 


376 


178 


4 


FLCTACBA 


Pointer to catalog ACB pointer 






Catalog Field List to Test for Write of Open Indicator 


380 


17C 


8 


FLWOPNND 


Update OPENIND field list 


380 


17C 


4 


TSTENTVL 


Address of test ENTVOL (scan) 


384 


180 


4 


TSTENTLN 


Address of end scan ENTVOL 


388 


184 


4 


FLWOPNNN 


Pointer to 'OPENIND' 


392 


188 


4 


* 


Chain 


396 


18C 


4 


FLWOPNNL 


Length of data 


400 


190 


4 


FLWOPNNA 


Pointer to data 






Catalog Field List for Volume Time Stamp 


404 


194 


24 


FLTMSTVF 


VOLTSTMP field list 


404 


194 


20 


* 


Greater part of field list 


424 


1A8 


4 


FLTMSTVA 


Pointer to 'VOLTSTMP' 


* Multi-use 


field 







Figure 5.71 



Open Work Area (OPNWA) description and format (part 3 of 7) 



5.134 DOS/VS LIOCS Volume 4 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 






End of Catalog Field List for Volume Time Stamp 


428 


1AC 


1 


WARNFLG 


Used to save warning error code 


429 


IAD 


1 




Reserved 


430 


1AE 


2 


I 


Index for DO loops 


432 


1B0 


2 


LIMIT 


Count of the ENTVOLS pointed to by 
VOL20PT 


434 


1B2 


2 


RELGP 


Relative group number in the catalog 


436 


1B4 


2 


TEMP 


Local calculations (on same listing page) 


438 


1B6 


2 


IARDB 


Index for ARDB list 


440 


1B8 


4 


SAVDEV 


Used to save device type 


444 


1BC 


4 


SAVDEV2 


Used to save sequence set device type 


448 


ICO 


2 


SAVTRKAU 


Used to save number of tracks per 
allocation unit (control area) to help iden- 
tify type of LPMB 


450 


1C2 


2 


SAVTRKA2 


Same as SAVTRKAU but used only if 
sequence set with data 


452 


1C4 


4 


RLPMB2 


Pointer to sequence set (index) LPMB 


456 


1C8 


1 


OWAFLAGS 


Open flags and switches 






1 

.1 

..1 

...1.... 

.... 1... 

1.. 

1. 

X 


OWFLAGZB 
OWFLAGBF 
OWFLAGIB 
WARSOPEN 

DTACNT 
IDXCNT 
WARSCTLG 


User did not specify buffer size in ACB 
BCB building in process 
Got buffer with AMBL for index 
USE macro has been issued for SYSO- 
PEN (RELEASE macro must subsequent- 
ly be issued) 

Open count in look-aside table is bumped 
for data 

Open count in look-aside table is bumped 
for index 

USE macro has been issued for 
SYSCTLG (RELEASE macro must sub- 
sequently be issued) 
Reserved 


457 


1C9 


3 


INDEXSAV 


Used to save index file name 


460 


ICC 


1 


SAVTYPE 


Used to save entry type when entry is not 
a cluster 


461 


1CD 


2 




Reserved 


463 


1CF 


4 


TESTSV1 


Save a word for testing 


467 


1D3 


1 


SVOPNIN 


Updated OPENIND for catalog 






1 

.XXX xxxx 


SVOPNINO 


Flag open for output 
Reserved 


468 


1D4 


2 


SVNEXTNT 


Save number of EXTENT statements 


470 


1D6 


2 


SETNBUF 


Count of buffers (used by SETADDR) 


472 


1D8 


4 


VOLSTPTR 


Address of ID AVLST 


476 


IDC 


4 


VOLENTND 


End of all ENTVOLs 


480 


1E0 


2 


VOLENTCT 


Count of volume entries 


482 


1E2 


2 


IVOLS 


Working index of ENTVOLs 


* Multi-use field 







Figure 5.71 



Open Work Area (OPNWA) description and format (part 4 of 7) 



Section 5. Data Areas 5.135 



Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


484 


1E4 


4 


VOL20PT 


Pointer to volume entries to sort (address 
of VOLENT20 if less than 20) 


488 


1E8 


80 


VOLENT20 


Volume entries to sort 


568 


238 


4 


VMTPTR 


Pointer for right VOLSER 


572 


23C 


4 


REQBUFSP 


Minimum buffer space required 


576 


240 


4 


CURBUFSP 


Currently specified buffer space 


580 


244 


4 


CURBFSPD 


Current buffer space specified for data 


584 


248 


32 


ADDAREA 


Room to add without current specifica- 
tions for index 


584 


248 


4 


CURBFSPI 


Current buffer space specified for index 


588 


24C 


1 


SVLUBPUB 


Save index of PUB 


589 


24D 


1 


NEXTJIB 


Next JIB saved 


590 


24E 


10 


SVPUB 


LUBs for mounted volumes 


600 


258 


2 


IPUB 


Index for SVPUB 


602 


25A 


4 


WRKCINV 


Control interval size used in pointing 
BCBs to buffers 


606 


25E 


8 


OWAPRTCT 


Room to build password 


614 


266 


2 




Unused 


616 


268 


12 


PARM 


Parameter list for IKQLASMD 


616 


268 


1 


CALLERID 


Caller identification 


617 


269 


7 


DSID 


Data set identification 


617 


269 


3 


DSCI 


Control interval number 


620 


26C 


4 


CTACBPTR 


Pointer to catalog ACB 


624 


270 


1 


SHAREOPT 


Share option from catalog 


625 


271 


1 




Reserved 


626 


272 


2 


OUTCNT 


Number of output users, returned from 
IKQLASMD 


628 


274 


72 


OWPLSAVE 


Save area 


700 


2BC 


72 


OWPLSAV2 


Save area 2 


772 


304 


80 


DUMCATPL 


Room for catalog parameter list 


852 


354 


512 


OWACTWKA 


Normal catalog work area 


1364 


554 




CCWX 


CCW definition 


1364 


554 


1 


CCWCODE 


Write-to-console op code 


1365 


555 


3 


CCWDTA 


Pointer to message buffer 


1368 


558 


2 


* 




1370 


55A 


2 


CCWCNT 


Length of message buffer 


1372 


55C 


24 


CCBX 


CCB definition 


1372 


55C 


9 


* 




1381 


565 


3 


CCWPT 


Pointer to channel program (CCWX) 


1384 


568 


12 




Unused 


* Multi-use 


field 







Figure 5,7.1 



Open Work Area (OPNWA) description and format (part 5 of 7) 



5.136 DOS/VS LIOCS Volume 4 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


1396 


574 





VMSG 


Volume name is built and used as part of 
calling parameter when catalog is called 
to get the time stamp 


1396 


574 





MSG 


Volume time stamp built 


1396 


574 


11 


MSGID 


Message identification 


1407 


57F 


8 


MSGDSN 


Data set name 


1415 


587 


46 


MSGTXT 


Message text 


1461 


5B5 


3 


* 




1464 


5B8 


4 


OWSTRTGV 


Start of GETVIS 


1468 


5BC 


4 


OWAOAL 


Address of OAL section 


1472 


5C0 


4 


UACBAD 


User's ACB address 


1476 


5C4 


4 


AIXACBAD 


AIX cluster ACB address 


1480 


5C8 


4 


BCACBAD 


Base cluster ACB address 


1484 


5CC 


4 


UPACBAD 


ACB of upgrade member 


1488 


5D0 


4 


USBAD 


Pointer to USB 


1492 


5D4 


4 


OWAUCPT 


Pointer for IKQLAB 


1496 


5D8 


24 


FLRGATTR 


Copy of CTGFL for "RGATTR" 


1496 


5D8 


16 


* 




1512 


5E8 


4 


* 


Length of "RGATTR" data 


1516 


5EC 


4 


FLRGATRA 


Pointer to "RGATTR" 


1520 


5F0 


24 


FLEXCPEX 


Copy of exception exit CTGFL 


1520 


5F0 


16 


* 




1536 


600 


4 


FLEXCEPL 


Length of exception exit data 


1540 


604 


4 


FLEXCEPA 


Address of EXCPEXIT 


1544 


608 


72 


OWPLSAV3 


Third level save 


1616 


650 


80 


INTCPL 


Internal CPL 


1696 


6A0 


4 


RPLPAD 


RPL pool just handled 


1700 


6A4 


4 


PLHADDR 


Address of first PLH 


1704 


6A8 


4 


AIXBUFAD 


Upgrade buffer pool 


1708 


6AC 


4 


AIXBUFLN 


Length of upgrade buffer pool 


1712 


6B0 


24 


MSGPARMS 


Parameter list for IKQOCMSG 


1736 


6C8 


2 


MSGFLGBT 


Message flag byte 


1738 


6CA 


2 


NRPL 


Number of user strings 


1740 


6CC 


2 


AIXBCLEN 


GETVIS length for ACB/RPL 


1742 


6CE 


2 


UPGRM 


Number of members in upgrade set 


1744 


6D0 


2 


UPGRCT 


Upgrade set loop counter 


1746 


6D2 


2 


AIXUPLEN 


Length of upgrade set (RPL+PLH) 
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Open Work Area (OPNWA) description and format (part 6 of 7) 



Section 5. Data Areas 5.137 



Offset 
Dec Hex 


Bytes and 
Bit Pattern 


Field Name 


Description 


1748 


6D4 


1 


AIXFLG 


Alternate index flags 






1 

.1 

..1.... 
...1 ... 
.... 1.. 

1. 

1 


1 


AIXUPGR 

AIXBASE 

AIXPE 

AIXPEU 

AIXPATH 

AIXMUS 

AIXEUO 

AIXUSERR 


Upgrade set available 
Base cluster handled 
Path entry handled 
Path entry of upgrade set 
Path structure open 
Member of upgrade set handled 
AIX as end-use object 
Upgrade set error 


1749 


6D5 


1 


AIXFLG2 


Alternate index flags 2 






1 

.1 

..xxxxxx 


AIXTHB 
AIXPEUBF 


THB is for upgrade set 

One additional index buffer already 

present 

Reserved 


1750 


6D6 


1 


PATHFLG 


Path flags, first byte 






1 

.XXX xxxx 


PFLUPD 


Update option 
Reserved 


1751 


6D7 


1 


* 


Path flags, second byte 






1 

.1 

..1.... 
...1 ... 
.... 1.. 

x> 


(X 


RESETSW 

ESDSERR 

OALEFND 

JRNACT 

CATOPEN 


Switch for reset of data set at open time 

ESDS error flag 

OAL entry found 

JRNAD active 

Catalog open in progress 

Reserved 


1752 


6D8 


1 


SAVAIX 


Save area for AIXFLG 


1753 


6D9 


2 


AIXUSAV 


Save area for ACB option 


1755 


6DB 


3 


AIXYENTR 


Internal address of Y entry 


1758 


6DE 


■3 


AIXDNAM 


AIX data name 


1761 


6E1 


3 


AIXINAM 


AIX index name 


1764 


6E4 


3 


BCDNAM 


Base cluster data name 


1767 


6E7 


3 


BCINAM 


Base cluster index name 


1770 


6EA 


3 


CLUNAME 


Cluster name save area 


1773 


6EE 


8 


NAMEFLD 


USE/RELSE parameter list 


1781 


6F5 


5 


INTWA 


Internal catalog work area 


1786 


6FA 


512 


OWA2 


Work area 


1786 


6FA 


512 


OWAUCAT 


IKQCAT work area for UCAT 


1786 


6FA 


512 


USCTGWA 


Catalog work area IKQOPNUS 


1786 


6FA 


512 


OWAMSGAR 


Message work area 


2298 


8FA 


4 


OWAEND 


Reserved 


2302 


8FE 


2 


LSRCNT 


Number of data sets using LSR 


2304 


900 


4 


AUROOT 


Address of first control block in alloca- 
tion unit 


2308 


904 


4 


CPAADR 


Address of channel program area 


2312 


908 


4 


WAIKQSTM 


Address of storage manager module 
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Open Work Area (OPNWA) description and format (part 7 of 7) 
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Placeholder (PLH) 



The PLH contains current information about a request. This information 
includes positioning information, request options, and buffer location and 
status. The PLH is built by the Open module and is pointed to by the AMBL 
(AMBLPLH). When a record management module is processing a PLH, the 
PLH's address is in register 13. Figure 5.72 shows the PLH description and 
format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








Standard Save Area 













PLHSAREA 




Register save area 








4 






Reserved 


4 


4 


4 


PLHSADDR 




Address of user's save area 


8 


8 


4 






Reserved 








Buffer Manager Save Area 


12 


C 


60 


PLHSAVE 




Save area for 15 registers 








I/O Manager Save Area and JRNAD Extended Save Area 


72 


48 


44 


PLHBSAVE 




I/O manager save area 


116 


74 


48 


PLHIXSSV 




Index search and get next save 
area 


164 


A4 


16 


PLHJRNSV 




JRNAD save area 








Return Register Stacks 




180 


B4 





PLHSTCK 




Fixed return register stack 


180 


B4 


4 


PLHSTCK1 




Return register from level 1 


184 


B8 


4 


PLHSTCK2 
RPL Pointers 




Return register from level 2 


188 


BC 


4 


PLHHRPL 




Pointer to header RPL 


192 


CO 


4 


PLHCRPL 
PLH ECB 




Pointer to current RPL 


196 


C4 


4 


PLHECB 




Event control block 


196 


C4 


1 






Reserved 


197 


C5 


1 


PLHAUSE 




Request active on PLH 


198 


C6 


1 


PLHECOM 




Communications byte 








PLHEWAIT 


X'80' 


Wait flag on ECB 


199 


C7 


1 


PLHECBT 




Test and set byte for ECB 








PLH Work Area 




200 


C8 


44 


PLHWAREA 




PLH work area 








PLH Identification Byte 




244 


F4 


1 


PLHID 


X'55' 


PLH identification byte 
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Placeholder (PLH) description and format (part 1 of 8) 



Section 5. Data Areas 5.139 



Offset 




Hex. 




Dec 


Hex Bytes 


Field Name 


Digit 


Description 






PLH Use Gate 






245 


F5 1 


PLHUSE 




PLH use gate 
If ON (X'FF'), this PLH is 
available only to an RPL whose 
string identifier (RPLSTRID) is 
equal to the string identifier 
(PLHSTRID) of this PLH. 






PLH Condition Flags 




246 


F6 1 


PLHFLAG 




PLH condition flags 






PLHST 


X'80' 


PLH status flag (bit 0) 
1 - PLH set 
- PLH invalid 






PLHPOS 


X'40' 


PLH position flag (bit 1) 
1 - Next record 
- previous record 






PLHEOD 


X'20' 


PLH end-of-data-condition flag 

(bit 2) 

1 - EOD reached 

- Not EOD 






PLHWAIT 


X'10' 


PLH wait flag (bit 3) 
1 - I/O pending 
- No I/O pending 






PLHSKIP 


X'08' 


PLH skip flag (bit 4) 

1 - Skip control interval 

- Don t skip control interval 






PLHRST 


X'04' 


PLH restart flag (bit 5) 
1 - Restart 
- No restart 






PLHFST 


X'02' 


PLH first-time flag (bit 6) 
1 - First time 
- Not first time 






PLHRREAD 


x'or 


PLH exclusive control reread 

flag (bit 7) 

1 - Need reread 

- Reread not needed 


247 


F7 1 


PLHFLG 




PLH spare condition flag 






PLH Communication Switches 


248 


F8 1 


PLHSWTCH 




PLH communication switches 






PLHLOAD 


X'80' 


PLH load or resume load 
indicator 






PLHKRCH 


X'40' 


PLH key range change indicator 






PLHMSRT 


X'20' 


Mass insert indicator 






PLHFSR 


X'10' 


First request for data set 
indicator 






PLHSTBCB 


X'04' 


Demand a BCB from 
STEAL000 (IKQBFAOO) 






PLHEC 


X'02' 


Exclusive control needed 






Previous Request Characteristics 


249 


F9 3 


PLHPREQ 




Previous request information 


249 


F9 1 


PLHRTC 




Previous request-type code 


250 


FA 2 


PLHOPT 




Previous request option bytes 


250 


FA 1 


PLHOPT1 




First option byte 
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Placeholder (PLH) description and format (part 2 of 8) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


251 


FB 


1 


PLHOPT2 




Second option byte 


252 


FC 


4 


PLHPKEYA 




Pointer to save area for keyed 
access 








Internal request characteristics for LSR 


256 


100 


4 


PLHILTM 




Test mask for WRTBFR 


260 


104 


4 


PLHILRM 




Reset mask for WRTBFR 


264 


108 


1 


PLHPERC 




Percentage value for number of 
least recently used buffers 


265 


109 


1 


PLHIOPT1 




Option byte for WRTBFR 








PLHIDSC 


X'80' 


Data set processing for forced 
close 








PLHIDS 


X'40' 


Write buffers for a data set 








PLHILRU 


X'20' 


Write least recently used buffers 








PLHIALL 


X'10' 


Write all buffers 








PLHITRN 


XW 


Write buffers for specified 
transaction identifier 








PLHIBCB 


XW 


Subpool contains at least one 
modified buffer 








PLHIFIO 


X'02' 


Force I/O for buffer 


266 


10A 


2 






Reserved 


268 


IOC 


4 


PLHDBSPH 




Address of data buffer subpool 


272 


110 


4 


PLHIBSPH 




Address of index buffer subpool 


276 


114 


4 


PLHACB 




Pointer to data set's ACB 


280 


118 


4 


PLHEACB 




Address of ACB of buffer with 
error 


284 


11C 


4 


PLHLSRA 




Address of LSR save area 








Multiple String Support 




288 


120 


1 


PLHSTRID 




PLH string ID (1-255) 


289 


121 


1 


PLHENDRQ 




ENDREQ request gate byte 


290 


122 


1 


PLHINDS 




Indicator byte 








PLHCLOSE 


XW 


Close-type ENDREQ request 


291 


123 


1 






Reserved 








EXCPAD Parameter List Pointer 


292 


124 


4 


PLHPARML 




EXCPAD parameter list 
pointer 








JRNAD Parameter List Pointer 


296 


128 


4 


PLHAJRN 




JRNAD parameter list pointer 








I/O Manager Entry Point 




300 


12C 


4 


PLHIOMGR 




I/O Manager (IKQIOA00) 
entry point 
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Placeholder (PLH) description and format (part 3 of &) 



Section 5. Data Areas 5.141 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








Key Range Support Fields 




304 


130 


4 


PLHDCRDB 




Address current ARDB 


308 


134 


4 


PLHDTRDB 




Address target ARDB 








Pointers to Buffer Headers (BHDs) 


312 


138 


4 


PLHDBHD 




Address of data BHD 


316 


13C 


4 


PLHIBHD 




Address of index BHD 


320 


140 


4 


PLHBRPL 




Save header RPL 


324 


144 


4 


PLHTHB 




Address of THB (share option 
4) 


328 


148 


4 


DataPLH 




Reserved 


332 


14C 


36 


PLHDATA 




Data PLH 


332 


14C 


20 


PLHDCNV 




Data CNV information 


332 


14C 


4 


PLHDRBA 




DataCNVRBA 


336 


150 


8 


PLHDBUF 




Data buffer description 


336 


150 


4 


PLHDBCB 




Address of data BCB 


340 


154 


4 


PLHDBAD 




Address of data buffer 


344 


158 


4 


PLHDCIDF 




Data CNV CIDF 


344 


158 


2 


PLHDFSO 




Data CNV free space offset 


346 


15A 


2 


PLHDFSL 




Data CNV free space length 


348 


15C 


1 


PLHDSW 




Data CNV switches 








PLHHOLD 

PLHHELD 

PLHNORD 

PLHLOG 

PLHRAHD 


X'80' 
X'40' 
X'10' 
X'08' 
XW 


Track hold indication 
Track free indication 
No read indication 
Logical GETBUFF request 
Read-ahead request 


349 


15D 


1 


PLHDSW1 




Buffer request control switch 








PLHEHOLD 

PLHEHELD 

PLHEACTV 

PLHCATH 

PLHCATF 

PLHDIRQ 


XW 
X'40' 
X , 20' 
X'10' 
XW 
XW 


Exclusive control desired 
Exclusive control held 
Exclusive control active 
CA split track hold 
CA split track free 
Indication to the buffer manag- 
er that this direct write request 
is to be deferred (set and reset 
by IKQMDY) 


350 


15E 


2 


PLHDCSZ 




Data CNV size 10 (rightmost 
RDF) 








Data Record Description 




352 


160 


16 


PLHDRCD 




Data record description 


352 


160 


2 


PLHDRO 




Data record offset 


354 


162 


2 


PLHDRDF 




Data record RDF-offset 


356 


164 


2 


PLHDRIX 




Data record RDF-index 


358 


166 


2 






Spare 


360 


168 


4 


PLHDRRBA 




Data record RBA 


364 


16C 


4 


PLHDRL 




Data record length 
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Placeholder (PLH) description and format (part 4 of 8) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








Read-Ahead Data PLH 




368 


170 


24 


PLHBDATA 




Data read-ahead PLH 


368 


170 


4 


PLHBRBA 




RBA of next CNV to read 
ahead 








Read-Ahead Data CNV Description 


372 


174 


20 


PLHBDCNV 




Read-ahead data CNV informa- 
tion 


372 


174 


4 


PLHBDRBA 




Data CNV RBA 


376 


178 


8 


PLHBDBUF 




Data buffer description 


376 


178 


4 


PLHBDBCB 




Address of data BCB 


380 


17C 


4 


PLHBDBAD 




Address of data buffer 


384 


180 


4 


PLHBDCDF 




Data CNV CIDF 


384 


180 


2 


PLHBDFSO 




Data CNV free space offset 


386 


182 


2 


PLHBDFSL 




Data CNV free space length 


388 


184 


1 


PLHBDSW 




Data CNV switches (same as 
PLHDSW) 


389 


185 


1 


PLHBDSW1 




Buffer request control switch 
(sameasPLHDSWl) 


390 


186 


2 


PLHBDCSZ 




Data CNV size-10 








Alternate Index Record Information 


392 


188 


16 


PLHAIX 




AIX record information 


392 


188 


4 


PLHAIXPT 




Address of base cluster pointer 


396 


18C 


4 


PLHBCPLH 




Address of base cluster's PLH 


400 


190 


4 


PLHAIXWL 




Reserved 


404 


194 


2 


PLHAIXPN 




Number of base cluster pointers 
still to be processed in this AIX 
record 


406 


196 


2 


PLHAIXOP 




RPL Option bytes 


408 


198 


12 


PLHUPG 




Upgrade set information 


408 


198 


4 


PLHUPGP1 




Current USB entry address 


412 


19C 


4 


PLHUPGP2 




Last USB entry address 


416 


1A0 


4 


PLHUPGAD 




Address of prime key (KSDS) 
or RBA (ESDS) of base cluster 
record 


420 


1A4 


24 


PLHAIXSV 




AIX save area 








Spanned Record Flag Byt 


e 


444 


1BC 


1 


PLHSWT2 




Spanned record switch byte 








PLHSPAN 


X'80' 


Spanned record indicator 








PLHSRU 


X'40' 


Called from IKQSRU 








PLHSRUF 


X'20' 


First call from IKQSRU 








PLHSRUL 


X'10' 


Last call from IKQSRU 








PLHSRCAS 


X'08' 
XW 


CA-split necessary 
Reserved 








PLHSREC 


X'02' 

x'or 


Exclusive control indicator 
Reserved 
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Placeholder (PLH) description and format (part 5 of 8) 



Section 5. Data Areas 5.143 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








JRNAD Flag Byte 




445 


1BD 


1 


PLHJRN 




JRNAD flag byte 








PLHJRVSM 


X'40' 


JRNAD called from IKQVSM 








PLHJRMDY 


X'20' 


JRNAD called from IKQMDY 








PLHJRCIS 


X'10' 


IRNAD called from IKQCIS 








PLHJRCA1 


X'08' 


JRNAD first call from IKQCAS 








PLHJRCA2 


X'04' 


JRNAD second call from 
IKQCAS 








PLHJRSRG 


X'02' 


JRNAD called from IKQSRG 








PLHJRSRU 


x'or 


JRNAD called from IKQSRU 








Spanned Record Information 


446 


1BE 


2 


PLHSRCNT 




Number of segments 


448 


ICO 


22 


PLHSPREC 




Spanned record information 


448 


ICO 


8 


PLHRCD 




Spanned record description 


448 


ICO 


4 


PLHAREA 




Pointer to user area 


452 


1C4 


4 


PLHRLEN 




Length of spanned record 


456 


1C8 


4 


PLHSRRBA 




RBA of record 


460 


ICC 


2 


PLHX1EO 




Index entry offset of first part 


462 


ICE 


2 


PLHXPTR 




Pointer number 


464 


1D0 


6 


PLHSRRDF 




Double RDF for spanned 
record 


464 


1D0 


1 


PLHSRR2 




R byte of 2nd (leftmost) RDF 


465 


1D1 


2 


PLHSRLVL 




Level number 


467 


1D3 


1 


PLHSSR1 




R byte of 1st (rightmost) RDF 


468 


1D4 


2 


PLHSRLL 




Length of segment 








Additional PLH Switches 




470 


1D6 


1 


PLHSWT1 




PLH communication switch 
control 








PLHRSI 


X'10' 


RPL area switch indicator 
(indicates that the user RPL 
areas of an AIX and the base 
cluster have been switched) 








PLHUPRES 


xw 


AIX upgrade reset switch 








PLHPCI 


X'04' 


Previous index control interval 
required 








PLHBWD 


X'02' 


Backward processing 








PLHLRD 


x'or 


Last record processing 


471 


1D7 


1 


PLHFLG1 




Flag byte continuation 








PLHDUKEY 


X'08' 


Duplicate key in AIX record 








PLHAIXRP 


X'04' 


AIX repositioning flag 
(Previous AIX record must be 
read) 








Index PLH 






472 


1D8 


40 


PLHINDEX 
PLHESDS 




Index PLH 

Length of PLH for ESDS 
(equate value) 
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Placeholder (PLH) description and format (part 6 of 8) 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








Index CNV Description 




472 


1D8 


20 


PLHXCNV 




Index CNV information 


472 


1D8 


4 


PLHXRBA 




Index CNV RBA 


476 


IDC 


8 


PLHXBUF 




Index buffer description 


476 


IDC 


4 


PLHXBCB 




Address of index BCB 


480 


1E0 


4 


PLHXBAD 




Address of index buffer 


484 


1E4 


4 


PLHXCIDF 




Index CNV CIDF 


484 


1E4 


2 


PLHXFSO 




Index CNV free space offset 


486 


1E6 


2 


PLHXFSL 




Index CNV free space length 


488 


1E8 


1 


PLHXSW 




Index CNV switches (same as 
PLHDSW) 


489 


1E9 


1 


PLHXSW1 




Buffer request control (same as 
PLHDSW 1) 


490 


1EA 


2 


PLHXCSZ 




Index CNV size-10 








Index Entry Description 




492 


1EC 


20 


PLHXETRY 




Index entry description 


492 


1EC 


2 


PLHXEO 




Index entry offset 


494 


1EE 


2 


PLHXSEO 




Next section entry offset 


496 


1F0 


4 


PLHXSOP 




Last section entry offset pointer 


500 


1F4 


2 


PLHXLVL 




Present index level in process 


502 


1F6 


2 


PLHXLEVP 




Previous level index 


504 


1F8 


4 


PLHXPTRP 




Previous entry's P field 


504 


1F8 


2 


PLHXEOP 




Previous entry offset 


506 


1FA 


2 


PLHXSEOP 




Previous section entry offset 


508 


1FC 


4 


PLHXRBAP 




Previous index record RBA 








Read-Ahead Index PLH 




512 


200 


28 


PLHBINDX 




Read-ahead index PLH 








Read-Ahead Index CNV Description 


512 


200 


20 


PLHBXCNV 




Read-ahead index CNV 
information 


512 


200 


4 


PLHBXRBA 




Index CNV RBA 


516 


204 


8 


PLHBXBUF 




Index buffer description 


516 


204 


4 


PLHBXBCB 




Address of index BCB 


520 


208 


4 


PLHBXBAD 




Address of index buffer 


524 


20C 


4 


PLHBXCDF 




Index CNV CIDF 


524 


20C 


2 


PLHBXFSO 




Index CNV free space offset 


526 


20E 


2 


PLHBXFSL 




Index CNV free space length 


528 


210 


1 


PLHBXSW 




Index CNV switches (same as 
PLHDSW) 


529 


211 


1 


PLHBXSW1 




Buffer request control switch 
(sameasPLHDSWl) 


530 


212 


2 


PLHBXCSZ 




Index CNV size-10 
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Placeholder (PLH) description and format (part 7 of 8) 



Section 5. Data Areas 5.145 



Offset 
Dec Hex 


Bytes ' 


Hex, 
Field Name Digit Description 






Read-ahead Index Entry Description 


532 214 


2 


PLHBXEO Index entry offset 


534 216 


2 


PLHBXSEO Next section entry offset 


536 218 


4 


PLHBXSOP Last section entry offset pointer 
Previous Record Key Information 


540 21C 


* 


PLHPKEY Key of previous record 


540 21C 





PLHEND End of PLH 

PLHLKSDS Length of PLH for KSDS 
(equate value) 


* Variable, 


equal to key length. 
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Placeholder (PLH) description and format (part 8 of ft) 
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Request Parameter List (RPL) 



The RPL contains user-request information and error feedback information. 
It also maintains information required by GET and PUT. The RPL is created 
by the user with the RPL macro instruction. Figure 5.73 shows the RPL 
description and format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








1 


RPLID 




Control block identifier = XW 








1 


RPLIDD 


X'00' 


RPL equate 


1 


1 


1 


RPLSTYP 


X'00' 
X'10' 
X'20' 


Release indicator 
VSAM Release 1 
VSAM Release 2 
VTAM 


2 


2 


2 


RPLLEN 




Length of RPL 


4 


4 


4 


RPLRBA 




RBA of last record processed 


4 


4 


4 


RPLDDDD 




DD field 


8 


8 


4 


RPLARG 




Pointer to search argument 


12 


C 


8 


RPLRCD 




Record description 


12 


C 


4 


RPLAREA 




Address of the caller's work 
area 


16 


10 


4 


RPLRLEN 




Length of record 


20 


14 


4 


RPLBUFL 




User buffer size 


24 


18 


4 


RPLACB 




Address of the caller's ACB 


24 


18 


4 


RPLDACB 




Catalog compatibility 


28 


1C 


1 


RPLSTRID 




RPL string identifier 


29 


ID 


1 


RPLREQ 




Request type* 








RPLPOINT 


XW 


POINT request 








RPLGET 


XW 


GET request 








RPLERASE 


X'08' 


ERASE request 








RPLPUT 


X'OC 


PUT request 








RPLUPDTE 


X'OC 


Update request 








RPLINSRT 


X'10' 


Insert request 








RPLCHECK 


X'14' 


Check request 








RPLRCLSE 


X'18' 


RCLOSE request 








RPLENDRQ 


X'lC 


ENDREQ request 








RPLFRCIO 


X'lC 


FORCIO request 








RPLVERFY 


X'20' 


VERIFY request 








RPLPUTL 


X'24' 


PUT locate request 








RPLWRBFR 


X2C 


Write buffer request 


30 


IE 


.2 


RPLKEYL 




Key length 


32 


20 


2 


RPLOPTCD 




Option codes 


* 


This value may be altered internally by VSAM, 


for example, X'24' from applica- 




tion 


program is 


changed to X'OC by IKQRQA 
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Request Parameter List (RPL) description and format (part 1 of 4) 
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Offset 




Hex. 




Dec Hex Bytes 


Field Name 


Digit 


Description 


32 20 1 


RPLOPTl 




First byte of options 




RPLKEY 


X'80' 


Keyed access 




RPLADR 


X'40' 


Addressed access 




RPLSEQ 


X'20' 


Sequential 




RPLDIR 


X'10' 


Direct processing 




RPLASY 


X'08' 


Asynchronous 




RPLSKP 


X'04' 


Skip sequential access 




RPLCNV 


X'02' 


CNV access (RBA) 




RPLUPD 


x'or 


Update 


33 21 1 


RPLOPT2 




Second byte of options 




RPLKGE 


X'80' 


Search key greater than or 
equal 




RPLGEN 


X'40' 


Generic key request 




RPLNSP 


X'20' 


Note string position 




RPLNUP 


X'10' 


No update 




RPLLOC 


X'08' 


Locate mode 




RPLUBF 


X'04' 


User buffers 




RPLBWD 


X'02' 


Backward processing 




RPLLRD 


x'or 


Last record processing 


34 22 1 


RPLHLD2 


X'FF 


Second test and set byte (RPL 
not available) 






X'00' 


RPL available 


35 23 1 


RPLHLD 


X'FF 


Test and set byte (RPL held - 
request not completed) 






X'00' 


Request completed 


36 24 1 


RPLFLAG 




Flag byte 




RPLECBPR 


X'80' 


CMS ECB indicator 


37 25 3 


RPLFDBK 




Error feedback area 


37 25 1 


RPLFDB1 




Error class (return) code 


37 25 1 


RPLRTNCD 




Error class code 


Error class codes (stored from Register 15) 








RPLNOERR 


X'00' 


No error detected 




RPLNORPL 


X'04' 


RPL held by another request 




RPLLOGER 


X'08' 


Logical error 




RPLPHYER 


x'oe 


Physical error 




RPLVABND 


X'3C 


TP I/O prohibited 


38 26 1 


RPLFDB2 




Function type code 




RPLFUPG 


X'04' 


Upgrade processing 




RPLFAIX 


X'02' 


AIX processing 




RPLFINC 


x'or 


Upgrade set is incorrect 


39 27 1 


RPLFDB3 




Error type code 


39 27 1 


RPLERRCD 




Error type code 


39 27 1 


RPLFDBKC 




Error type code 


The following equates 


are for the various feedback returns that may be set for offset 39 


(27). They fall into the three categories shown. 




Returns that are not errors (Register 15 = X'00') 






RPLEOV 


X'04' 


EOV called during request 




RPLDPKEY 


X'08' 


Duplicate key (in AIX record) 




RPLNEWCA 


X'10' 


Index full - CA split required. 



Figure 5.73 



Request Parameter List (RPL) description and format (part 2 of 4) 
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Offset 




Hex. 




Dec Hex Bytes 


Field Name 


Digit 


Description 


Logical errors (register 15 


- X'08') 








RPLEOFDS 


X'04' 


End of data set encountered 




RPLEODER 


X'04' 


End of data set encountered 




RPLDUPRC 


X'08' 


Duplicate record 




RPLDUP 


X'08' 


Duplicate record 




RPLSEQCK 


x'oe 


Sequence error 




RPLNRFND 


X'10' 


No record found 




RPLNOREC 


X'10' 


No record found 




RPLEXCTL 


X'14' 


Data already in exclusive 
control 




RPLNVOLM 


X'18' 


Volume or extent unavailable 




RPLNRSPA 


x'ie 


No DASD space available 




RPLNOEXT 


x'ie 


No DASD space available 




RPLSPACE 


x'ie 


No DASD space available 




RPLINRBA 


X'20' 


Invalid RBA specified 




RPLNKEYR 


X*24' 


No key range for new record 




RPLNOVIR 


X'28' 


Insufficient virtual storage 




RPLWRKAS 


X'2C 


User's work area not large 
enough 




RPLCDLOD 


X'30' 


CDLOAD failure 




RPLVLERR 


X'34' 


Internal VSAM logic error 




RPLNOPLH 


X'40' 


PLH in use (no string available) 




RPLNOPEN 


X'44' 


Access type not requested at 
Open 




RPLKEYES 


X'48' 


Keyed request for ESDS 




RPLADRKS 


X'4C 


ADR or CNV insert for KSDS 




RPLINERS 


X'50' 


Illegal ERASE request 




RPLINLOC 


X'54' 


Illegal locate mode specification 




RPLNOPOS 


X'58' 


Positioning error 




RPLNGUPD 


X'5C' 


No valid GET UPD issued 




RPLUPDKC 


X'60' 


Key change during update 




RPLLENCN 


X'64' 


Length change for addressed 
update 




RPLCONOP 


X'68' 


Improper or conflicting RPL 
options 




RPLIMRCL 


X'6C 


Improper RECLEN specified 




RPLIMGKL 


X'70' 


Improper generic key length 
specified 




RPLINLD 


X'74' 


Illegal request during data set 
load 




RPLCATLG 


X'80' 


Internal catalog call failure 




RPLSRLOC 


X'84' 


Illegal locate mode 




RPLSRADR 


X'88' 


Illegal request for spanned 
record 




RPLINCSR 


X'8C 


Inconsistent spanned record 




RPLNOBAS 


X'90' 


No base record 




RPLMAXPT 


X'94' 


Maximum of pointers exceeded 




RPLNOBUF 


X'98' 


No buffers available (LSR only) 




RPLINVRR 


X'CO' 


Invalid relative record number 




RPLRRADR 


X'C4' 


Illegal address requested 
(RRDS) 




RPLIPATH 


X'C8' 


Illegal path access 




RPLINBWD 


X'CC 


Illegal backward mode request- 
ed 
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Request Parameter List (RPL) description and format (part 3 of 4) 



Section 5. Data Areas 5.149 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 


Physical errors 


(register 15 


- X'OC) 












RPLRDERD 

RPLRDERI 

RPLRDERS 

RPLWTERD 

RPLWTERI 

RPLWTERS 


X'04' 
XW 
X'OC 
X'lO' 
X'14' 
X'18' 


Data read error 
Index read error 
Sequence set read error 
Data write error 
Index write error 
Sequence set write error 


40 


28 


4 


RPLCHAIN 




Pointer to next RPL 


44 


2C 


1 


RPLAIXID 
RPLAXPKP 


X'01' 


AIX information byte 
Prime key pointers are used 
(base cluster is a KSDS) 


45 


2D 


1 






Reserved 


46 


2E 


2 


RPLAIXPC 




Number of base cluster pointers 
in the AIX record 


48 


30 


1 


RPLXID 




Transaction ID 


49 


31 


3 






Reserved 


52 


34 





RPLEND 




End of RPL 



Figure 5.73 



Request Parameter List (RPL) description and format (part 4 of 4) 



Resource Pool Header (RPHD) 



The VS AM Resource Pool Header contains general information concerning 
the VSAM Resource Pool. Its address is stored in the AMBL. 

Figure 5.74 shows the description and format. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 





2 


RPHDASTR 




Number of active strings 


2 2 


2 


RPHDMSTR 




Maximum number of strings 
ever simultaneously active 


4 4 


2 






Reserved 


6 6 


2 


RPHDSTNO 




Total number of PLHs in the 
resource pool 



Figure 5.74 



Resource Pool Header (RPHD) description and format 



Resource Sharing Control Block (RSCB) 



The Resource Sharing Control Block provides exclusive control facilities for 
the VSAM shared resources. The VSRT points to the RSCB. 

Figure 5.75 shows the description and format. 
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Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








4 


RSCBRBA 




RBA to be held in exclusive 
control 


4 


4 


7 


RSCBDSID 




Data set identifier 


4 


4 


4 


RSCBCAT 




Catalog ACB pointer 


8 


8 


3 


RSCBDSCI 




CI number of data set compo- 
nent 


11 


b 


1 


RSCBCSID 




ID of string using field 
RSCBGATE (for a control area 
split) 


12 


C 


4 


RSCBECB 




ECB used by IKQBFA and 
IKQCAS 


12 


C 


1 






Reserved 


13 


D 


1 


RSCBSTID 




ID of string (set by IKQBFA) 


14 


E 


1 


RSCBCOM 
RSCBWAIT 


X'80' 


Communication byte 
Wait flag 


15 


F 


1 


RSCBGATE 




Exclusive control byte: 
XW = ECB is free 
X'FF' = ECB is in use 



Figure 5.75 



Resource Sharing Control Block (RSCB) description and format 



Track Hold Block (THB) 



The THB contains information necessary to do track hold. The PLH points to 
the THB. The THB is created by Open and released by Close. Figure 5.76 
shows the description and format of the THB. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








1 


THBID 


X'88' 


Control block identification 


1 


1 


1 


THBFLAG 




Flag byte 








THBACTV 


X'80' 


This THB is active 








THBPSUDO 


X'40' 


Track hold not issued 








THBREAL 


X'20' 


Track hold issued 


2 


2 


2 


THBLEN 




Length of THB 


4 


4 


2 






Unused 


6 


6 


2 


THBTID 




Task ID 


8 


8 


16 


THBCCB 




CCB area 


24 


18 


8 


THBCCW 




CCW area 


24 


18 


1 


THBCCWOP 




CCW operation code 



Figure 5.76 



Track Hold Block (THB) description and format (part 1 of 2) 
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Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 


25 


19 


3 


THBCCWAD 




CCW argument address 


28 


1C 


1 






CCW flags 


29 


ID 


1 






Unused 


30 


IE 


2 


THBCCWCT 




CCW byte count 


32 


20 


20 


THBIODRB 




IODRB area 


32 


20 


4 






Unused 


36 


24 


8 


THBARG 




MBBCCHHR 


44 


2C 


4 






RBA to be held 


48 


30 


4 






Unused 


52 


34 


48 


THBSAVE 




Save area for 12 registers 


100 


64 


4 


THBNTHB 




Address of the next THB 



Figure 5.76 



Track Hold Block (THB) description and format (part 2 of 2) 



Upgrade Set Block (USB) 



The USB declaration maintains information required by PUT and ERASE 
requests to the base cluster. The USB is created by OPEN (IKQOPNUS). 
Figure 5.78 shows the description and format. 



Offset 






Hex. 




Dec 


Hex 


Bytes 


Field Name 


Digit 


Description 








1 


USBID 




USB identifier 








USBIDD 


X'EO' 


USB equate 


1 


1 


1 


USBACT 




Active byte, test and set 


2 


2 


2 


USBLEN 




Length of this block 


4 


4 


2 


USBMAXDB 




Max. data buffer in upgrade set 


6 


6 


.2 


USBMAXIB 




Max. index buffer in upgrade 
set 


8 


8 


4 


USBWAPTR 




Pointer to work area pool 


12 


C 


2. 


USBMIN 




Min. required record length 


14 


E 


2 


USBWALEN 




Work area length 


16 


10 


4 


USBPLH 




Pointer to common USB PLH 


20 


14 


4 


USBRPL 




Pointer to RPL 


24 


18 


4 


USBDBHD 




Pointer to data buffer header 


28 


1C 


4 


USBIBHD 




Pointer to index buffer header 



Figure 5,77 



Upgrade Set Block (USB) description and format (part 1 of 2) 
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Offset 




Hex. 


Dec Hex 


Bytes 


Field Name Digit Description 






Begin of First/only Index Entry 


32 20 




USBAIX 




4 


USBACB Pointer to ACB 
USBLAST X'80' Last entry indicator 


36 24 


2 


USBRKP Relative key position 


38 26 


2 


USBKL Key length 
Further Alternate Index entries 


40 28 


variable 





Figure 5.77 



Upgrade Set Block (USB) description and format (part 2 of 2) 



VSAM Shared Resource Table (VSRT) 



The VSAM Shared Resource Table contains the addresses of the resource 
part of the resource pool (PLH pool, buffer pool, the RSCB, and CPA pool), 
together with the addresses of various control blocks built during processing 
of the BLDVRP macro. 

The VSRT is contained in the phase IKQVRT and is loaded by means of 
CDLOAD when required. 

Figure 5.78 shows the format and description. 



Offset 
Dec Hex 


Bytes 


Field Name 


Hex. 
Digit 


Description 








1 


VSRTBKID 


X'15' 


Control block identifier 


1 


1 


1 






Reserved 


2 


2 


2 


VSRTLEN 




Length of VSRT 


4 


4 


4 


VSRTID 




Control block name 'VSRT' 


8 


8 


4 






Reserved 


12 


C 


1 


VSRTFLG1 
LSR 


X'40' 


Flag byte 1 

LSR pool indicator 


13 


D 


1 


VSRTFLG2 




Flag byte 2 


14 


E 


2 


VSRTUNCT 




Number of data sets opened 
with the LSR option 


16 


10 


4 


VSRTECB 




ECB for the VSRT 


18 


12 


1 


VSRTCOM 
VSRTWAIT 


X'80' 


Communication byte 
Wait flag 


19 


13 


1 


VSRTGATE 




Exclusive control gate: 
X'00' = ECB is free 
X'FF' = ECB is in use 



Figure 5.78 



VSAM Shared Resource Table (VSRT) description and format (part 1 of 2) 
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Offset 
Dec Hex 


Bytes 


Hex. 
Field Name Digit 


Description 


20 


14 


4 


VSRTRP 


Address of the control block 
part of the resource section of 
theVRP 


24 


18 


4 


VSRTRLEN 


Length of the control block part 


28 


1C 


4 


VSRTPLHA 


Address of the PLH pool in the 
resource section 


32 


20 


1 


VSRTSTRN 


Total number of PLHs required 
for all data sets sharing the re- 
source pool 


33 


21 


1 


VSRTKL 


Maximum key length of the 
data sets sharing the resource 
pool 


34 


22 


2 


VSRTPLHL 


Length of each PLH in the PLH 
pool 


36 


24 


4 


VSTRSCB 


Address of the RSCB 


40 


28 


4 


VSRTBUFH 


Address of buffer pool 


44 


2C 


4 


VSRT1STB 


Address of first buff er 


48 


30 


4 


VSRTMBSZ 


Maximum buffer size in buffer 
pool 


52 


34 


2 


VSRTSPNO 


Number of subpools in buffer 
pool 


54 


36 


2 


VSRTBFNO 


Number of buffers in buffer 
pool 


56 


38 


4 


VSRTBFLN 


Length of the buffer part of the 
resource section 


60 


3C 


4 


VSRTCPAH 


Address of the channel program 
area pool in the resource section 


64 


40 


4 


VSRTCPAL 


Length of the channel program 
area pool 


68 


44 


4 


VSRTTHBA 


Address of the THB pool 


72 


48 


4 


VSRTTHBL 


Length of the THB pool 



Figure 5.78 VSAM Shared Resource Table (VSRT) description and format (part 2 of 2) 
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> 



User's record 
management request: 












1 VSAM 

■ user: 


GET, PUT, POINT, ERASE, or ENDREQ 






AMBL 




1 


tData 
AMDSB 


1 J 


I 








Rl V 




) 




tRPL 




1 


tlndex 
AMDSB 


ISAM I 
user: j 


RPL w 




tPLHs 




Describes the 
VSAM record 
processing 
request 




Rl 




AMDTF 




tACB 


tDTFIS 










I \ 








/ 


t Exclusive 
control list 








RPLAD 










tACB 




ACBAD 




















DTFIS % 


/ 




















DTFISAD 












c 














AMDTFAD 




IIPPRCPR 






ACB >f 












\ 


Describes the 
VSAM data 
set 






IKQVSM 


CIPROCAD 






Branch 
vector 






* 




\ 






I , 


\ 




> 


LOGMODAD 






1 ) 






/ 




} 




tAMBL 






Address 
table 














Note: Present 
only if using IIP. 


) 


t Record 
management 
load module 


















_ . -i 






FYT ST 




tEXLST 






— — * w 






User exit 
routines 


DOS/VS ' 
















tLERAD 






OAL 








Loc. 22 




COMREG 




AJNCHT 










tSYNAD 


















j 


j 7 


tEODAD 
















tEXCPAD 
















tJRNAD 



See Figure 5.80 
Data and index 
control block 
structure 
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VSAM control Mock structure for a key-sequenced data set 
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1 * 
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PLHs 








Describes 
physical disk 
attributes 
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s 
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tUSB 1 














Index AMDSB 
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Data ARDBs 
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i 
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block structure 
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t Current ARDB 
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n 






N 


1 


1 2 
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-J£- 
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t Index ARDB 
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1 














Information 
about buffers 
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Data and index control block structure 
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Multiple string control block structure 
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Base cluster to alternate index control block structure 
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Catalog management control blocks 
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Caller-supplied control blocks for catalog management 



Section 6. Diagnostic Aids 



This chapter provides several aids that can be useful when trying to diag- 
nose difficulties with VSAM modules. These aids include: 

• A list of macro instructions (Figure 6.1) issued by VSAM users, mo- 
dules or other macros and their use. 

• Cross reference tables (Figures 6.2 and 6.3) showing the VSAM mo- 
dules and the macros they issue. 

• A description of the Catalog Communication Area, Register Save Area 
and a list of error codes (Figure 6.4), set in the CCA by catalog 
mangement modules, together with the reason codes belonging to each 
error code. 

• A list of return codes (Figure 6.5) set in register 15 which indicate 
DADSM conditions when processing is completed. 

• A list of error codes (Figure 6.6) set in the RPL which indicate record 
management errors. The list shows also the relationship between inter- 
nal and external error codes. 

• A list of error codes (Figure 6.7) showing record management modules 
and the error code(s) they might issue. 

• A list of error codes (Figure 6.8) showing record management modules 
and the error code(s) they might issue when manipulating control 
blocks. 

• A list of error codes (Figure 6.9) which may be issued by OPEN 
modules. 

• A list of error codes (Figure 6.10) which may be issued by CLOSE and 
TCLOSE modules. 

• A list of error codes (Figure 6.11) which may be issued by the SHOW- 
CAT module. 

• A list of error codes (Figure 6.12) which may be issued by the 
BLDVRP and DELVRP modules. 

• A description of service aid phases and how to use them. 
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Additional Aids 



Further aids can be found in other parts of the book and in the program 
listings. These include: 

• Register contents on entry to a module, which are under Input in the 
module prologues. 

• Use of registers and equated names for registers, which can be found 
under Notes in the module prologues. 

• Error codes, which are under Exit-Error in the module prologues. 

• A list, which is in the Directory, of modules, their component, their 
entry points, and their associated method of operation and program 
structure diagrams. 

• A cross-reference list, which is in the Directory, of catalog external 
entry points and their associated modules. 



Macro-to-Module Relationships 



The following list in Figure 6.1 contains the macro instructions issued by 
VSAM users, modules, or other macros. Their types are identified as 
follows: 

G - generating macro 

SA - DOS/VS action macro 

M - mapping macro 

I - internal (called by another macro) 

A - VSAM action macro 

S - copy source book macro 



6.2 DOS/VS LIOCS Volume 4 



Macro 


Type 


SVC Use 


ACB 


G 


Generate an ACB 


ASYSCOM 


SA 


Get address of systems communications region 


CANCEL 


SA 


Cancel a task 


CATLG 


A 


Load address of catalog parameter list (CTGPL) 
into Rl and invoke catalog management 


CCB 


G 


Build a CCB 


CDLOAD 


SA 


65 Load module(s) 


CLOSE 


SA 


2 Disconnect a user's program from a VSAM data 
set 


COMRG 


SA 


33 Get DOS/VS communication region address 


DEQB 


SA 


Free B-transient 


DTFCN 


SA 


SYSLOG DTF 


ENDREQ 


SA 


Free a PLH and terminate processing on 
associated string 


ENQB 


SA 


Hold B-transient 


EOJ 


SA 


End of job 


ERASE 


SA 


Delete a record 


EXCP 


SA 


Execute channel program 


EXLST 


G 


Generate EXLST 


FREEVIS 


SA 


62 Free virtual storage 


GENCB 


A 


Generate a control block 


GET 


SA 


Retrieve a record 


GETVIS 


SA 


61 Get virtual storage 


IGGCAXWA 


M 


Map catalog auxiliary work area (CAXWA) 


IGGCCA 


M 


Map catalog communications area (CCA) 


IGGMCDCL 


M 


Issue the following macros to define the com- 
monly used declarations for VSAM catalog man- 
agement modules: IGGCAXWA, IGGCCA, 
IGGMCTRC, IKQACB, IKQAMCBS, 
IKQCOMRG, IKQCTGFL, IKQCTGFV, 
IKQCTGPL, IKQVRGN 


IGGMCMDM 


M 


Map the VSAM catalog management commonly 
used record structures 


IGGMCMWA 


M 


Map the VSAM catalog management services 
work area 


IGGMCTRC 


M 


Map catalog return codes 


IGGMDLWA 


M 


Delete work area layout 


IGGMDRWA 


M 


Map the VSAM catalog DSCB read-in work 
area 


IGGMEND 


G 


Generate exit code at the end of catalog 
management modules 


IGGMGVO 


M 


Map the volume information group occurrence 


IGGMNAME 


I 


Generate catalog module name for error and 
reason codes 


IGGMODUL 


G 


Generate header code for catalog modules 



Figure 6.1 



Macro types and uses (part 1 of 4) 
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Macro 


Type SVC Use 


IGGMPROC 


G 


Generate header code for catalog internal 
procedures 


IGGMSAWA 


M 


Map the VSAM catalog management suballocate 
work area 


IGGMUPDE 


M 


Issue IGGMVEDC, IGGMCDCL, 
IGGMCMDM, IKQAMDSB, and IGGMSAWA 
to define the commonly used declarations for 
VSAM catalog management Update-Extend mo- 
dules 


IGGMVEDC 


M 


Map the volume catalog record 


IIPAMDTF 


G/M 


Generate/map AMDTF table 


IIPDTF 


G/M 


Generate/map DTF table 


IIPPRAT 


G/M 


Generate/map address list 


IKQACB 


M 


Map ACB 


IKQACBG 


I 


Generate ACB (called by IKQACB) 


IKQAIR 


M 


Map alternate index record 


IKQAMBL 


M 


Map AMBL 


IKQAMCBS 


M 


Map AMCBS 


IKQAMDSB 


M 


Map AMDSB 


IKQARDB 


M 


Map ARDB 


IKQAREX 


M 


Map EXLST argument entry 


IKQARGH 


M 


Map argument header 


IKQBHD 


M 


Map buffer header 


IKQBKPHD 


M 


Map header for CCW area 


IKQBLARD 


G 


Build an ARDB 


IKQBUFE 


M 


Map BCB 


IKQCBMTB 


G 


Define table of constants for control block 
manipulation modules 


IKQCB1 


I 


Transform operands for control block manipula- 
tion macro instructions GENCB, TESTCB, 
MODCB, SHOWCB, IKQCB2, and IKQER- 
MAC 


IKQCB2 


I 


Scan keywords and generate code for control 
block manipulation macro instructions GENCB, 
TESTCB, MODCB, SHOWCB, IKQCB1, and 
IKQERMAC 


IKQCCB 


M 


Map CCB 


IKQCCBCW 


M 


Map CCB 


IKQCCW 


M 


Map CCW 


IKQCGETC 


S 


Obtain storage in which to copy old ARDB 


IKQCIW 


M 


Map control interval split work area 


IKQCLCOR 


S 


Get address of space in which to build EDB(s) 


IKQCLNUP 


S 


Disconnect ACB and AMBL 


IKQCLRLS 


S 


Free storage obtained by Open and/or EOV 


IKQCLWA 


M 


Close work area 



Figure 6.1 



Macro types and uses (part 2 of 4) 
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Macro 


Type 


SVC Use 


IKQCOMB 


G 


Generate a combination name entry for the 
VSAM catalog dictionary 


IKQCOMRG 


M 


Map DOS/VS communication region 


IKQCTGFL 


M 


Map field parameter list (CTGFL) 


IKQCTGFV 


M 


Map catalog field vector table (CTGFV) 


IKQCTGPL 


M 


Map catalog parameter list (CTGPL) 


IKQDEVT 


A 


65 Read label cylinder and/or determine the device 
type for the file-ID (IKQDEVT uses CDLOAD) 


IKQEDB 


M 


Map EDB 


IKQEDBLD 


G 


Build EDB 


IKQEQU 


M 


Map register equates 


IKQERC 


M 


Internal error codes equate 


IKQERMAC 


I 


Issue M-notes (assembler macro error messages) 
for control block manipulation macro instruc- 
tions GENCB, TESTCB, MODCB, SHOWCB, 
IKQCB1, and IKQCB2 


IKQEXLG 


I 


Generate EXL (called by IKQEXL) 


IKQEXLST 


M 


Map EXLST 


IKQEXP 


M 


Description of EXP AD parameter list 


IKQFCDB 


M 


Map CCW blocks in CCW pool 


IKQFMT1 


M 


Map format-1 DSCB 


IKQFMT3 


M 


Map format-3 DSCB 


IKQFMT4 


M 


Map format-4 DSGB 


IKQFNDLB 


S 


Find LUB (logical unit block) for symbolic unit 


IKQIOARG 


M 


Map DASD address 


IKQIODRB 


M 


Map I/O driver block 


IKQIORQU 


M 


Map register equates 


IKQIOWKA 


M 


Map I/O work area in PLH 


IKQIXHDR 


M 


Map index record header 


IKQJIB 


M 


Map JIB (job information block) 


IKQJRNDS 


M 


Parameter list for journalling 


IKQLBRC 


M 


Map label cylinder record 


IKQLPMB 


M 


Map LPMB 


IKQLUB 


M 


Map locial unit block 


IKQMDADS 


M 


Map DADSM parameter list (interface block to 
DADSM) 


IKQMSGPL 


M 


OPEN/CLOSE message primary list 


IKQOAL 


M 


Open ACB list 


IKQOPCLR 


M 


Register equates 


IKQOPCLW 


M 


Map of common section of work area 


IKQOPLCT 


M 


Map fields located by catalog 


IKQOPNWA 


M 


Map Open work area 



Figure 6.1 Macro types and uses (part 3 of 4) 
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Macro 


Type 


SVC 


Use 


IKQPLH 


M 




Map PLH 


IKQPUB 


M 




Map physical unit block 


IKQRDF 


M 




Map RDF and CIDF fields 


IKQRLSE 


M 


64 


Dequeue a system resource by means of a 
RELEASE macro 


IKQRPL 


M 




Map RPL 


IKQRPLG 


I 




Generate RPL (called by IKQRPL) 


IKQRQM 


G 




Generate modules IKQRQA and IKQRQB 


IKQTHB 


M 




Map THB 


IKQUSB 


M 




Upgrade set block 


IKQUSE 


A 


63 


Enqueue a system resource by means of a USE 
macro 


IKQVLST 


M 




Map list of volume unit, symbolic unit, and 
volume time stamp 


IKQVOL1 


M 




Map volume- 1 label 


IKQVRGN 


M 




Map anchor table 


IKQVSMDP 


A 




Map VSAM dump 


LOAD 


A 




Load a phase 


MAPCOMR 


M 




Map partition COMREG layout 


MAPPIB 


M 




Map program information block 


MODCB 


A 




Modify a control block 


OPEN 


SA 


2 


Connect a user's program to a VSAM data set 


POINT 


SA 




Position VSAM at a record 


POST 


SA 




Post an ECB 


PUT 


SA 




Store a new or updated record 


RELEASE 


A 


64 


Dequeue a system resource 


RPL 


G 




Generate an RPL 


SHOWCB 


A 




Display a control block 


SYSCOM 


M 




Map system communication region layout 


TCLOSE 


SA 




Purge buffer and update catalog (no disconnect) 


TESTCB 


A 




Test a control block 


USE 


A 


63 


Enqueue a system resource 


VERIFY 


A 




Build calling sequence for VSAM function 
VERIFY 


WAIT 


SA 


7 


Wait on a CCB for I/O to complete 



Figure 6.1 Macro types and uses (part 4 of 4) 
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Macro-to-module relationships for catalog and DADSIM components (part 3 of 4) 
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Macro-lo-module relationships for catalog and DADSIM components (part 4 of 4) 
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Figure 6.3 



Macro-to-module relationships for all VSAMI modules except catalog and DADSM (part I of 6) 
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Macro-I o-module relationships for all VSAIY1 modules e\cep( catalog and DADSM (pari 2 of 6) 
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Figure 6.3 



Macro-to-module relationships for all VSAIM modules except catalog and DADSM (part 3 of 6) 
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IMacro-lo-module relationships for all VSAM modules except catalog ami DADSM (pari 4 of 6) 
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IMacro-to-module relationships for all VSAM modules except catalog and DADSIM (part 5 of 6) 
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Macro-to-module relationships for all VSAM modules except catalog and DADSM (pah 6 of 6) 
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Catalog Communication Area Register Save Area 



A catalog communication area (CCA) is built for every call to catalog 
management. The CCA contains a register save area (CCAREGS) that 
allows the PSR (programming systems representative) to follow the flow of 
control from one catalog management procedure to another, through each 
procedure called to process the request. 

The contents of the first three words in the CCA field named CCAREGS 
are as follows: 

• the first word contains the contents of register 13, which is a pointer to 
the user's save area, and 

• the second and third words are unused. 

If a catalog management procedure is entered from another catalog manage- 
ment procedure, the fourth and subsequent words are used as three-word 
catalog save areas defined as follows: 

• the first word contains the contents of register 12, which is the calling 
procedure's base address, 

• the second word contains the contents of register 13, which is a pointer 
to the previous 12-byte entry in the register save area (CCAREGS), 
and 

• the third word contains the contents of register 14, which is the return 
address (in the calling procedure). 

Immediately after registers 12, 13, and 14 are saved (at register 13 4- 12), 
register 12 is updated to contain the called procedure's base address. 
Register 13's value is increased by 12, so that it points to the latest entry in 
CCAREGS. While a catalog management procedure is processing, register 
1 1 contains a pointer to the beginning of the CCA. 

Note that backward movement is not recorded in the trace table. For 
example, if procedure B returns to procedure A, the return is not shown in 

the register save area. 



Error Code-to-Module Relationship (Catalog Management) 



The error codes issued by VSAM catalog modules are set in the CCACD1 
field of the CCA and transferred to register 15 on exit from catalog manag- 
ment. The reason codes are set in the CCAREASN field of the CCA. They 
are passed back to the user via AMS or Record Management. 

Figure 6.4 contains the definitions of the error codes. To each error code 
belong one or several reason codes. Along with the reason code the module 
which detected the error is also shown. It is identified by the last two 
letters of its name. 
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The PL/S names are those names to which the catalog management error 
codes are equated. To find the assembler instructions which set the error 
code, first reference the PL/S statement, then relate the PL/S statement to 
the appropriate assembler language statement. 



PL/S Name 
for Code 


Error Code Reason 
Dec Hex Codes 


Module 
Name 


Description 


RCCAT 


4 4 2 


AC 
AD 
AE 

AH 


Error when opening a catalog. 




4 


AE 
CS 


Error when closing a catalog. 




8 


AH 


Internal error - an ACB was supplied 
to catalog management but its ID was 
not X'AO'. 

Can also be caused by a problem 
program overlaying core it does not 
own. 




10 


AH 


The user catalog entry in the master 
catalog cannot be found. The user has 
either made a spelling error, has ex- 
ported the user catalog, or has more 
than one master catalog and has 
executed IPL using the wrong one. 


RCENT 


8 8 2 


AF 


During catalog DELETE, the cluster 
record for the catalog cannot be 
found at its normal location (3rd 
self-describing record). 




4 


AG 


The catalog I/O routine read a record 
from the catalog and found it to be a 
free record. Since this never occurs 
during normal processing, an internal 
error is returned. 




6 


CG,AN,BG, 
BN 


A request to read a record resulted 

in a no record found error from VSAM. 




8 


AL,AT,BD, 
CA,CG 


A request to place a record by key into 
a catalog resulted in a duplicate key 
error from VSAM. 




12 


CB 


An internal error has occurred indi- 
cating that a record thought to be on 
the buffer chain is not present. 


RCNOTCYL 


16 10 


AT 


The AMS cylinder parameter was used 
but the extents found on the correspond- 
ing DLBL and EXTENT statement do 
not start or end on a cylinder boundary. 

This error can only occur during 
DEFINE CATALOG, DEFINE SPACE 
or DEFINE UNIQUE. 



Figure 6.4 



Catalog Management error code-to-module relationship (part 1 of 9) 
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PL/S Name 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCINSP 


20 


14 




CG 


Insufficient direct access space available 
to extend the catalog or CRA. 
(Reason codes are from Record Manage- 
ment — see Figure 6.6) 

To correct this situation a DEFINE 
SPACE is needed to provide more space 
for suballo cation. 


RCIOL 


24 


18 


2 


AG,AZ,CG 


I/O error during a LOCATE. 








4 


C9 


I/O error during a CATALOG VERIFY 
operation. 


RCIONL 


28 


1C 


2 


AG 


I/O error but not during LOCATE 
processing. 








4 


AG,CG 


I/O error during EXCP during catalog 
open (non-build case). 


RCINCPL 


32 


20 


2 


BC 


Internal error indicating that catalog 
management was unable to return the 
requested data in the catalog parameter 
list (CPL) for update extend. 


RCDSNF 


36 


24 


2 


BD 


Incorrect record type read. 








4 


BN 


Data set not found in the VTOC. 


RCVLSZ 


40 


28 





AL,BG,AZ 
CX 


Internal workarea provided was too 
small. 


RCVLSM 


44 


2C 


2 


AF 


It has been detected during DELETE 
CATALOG that the CTGWKA work 
area is too small. The user (AMS) has to 
provide a larger area. 


RCINFUNC 


48 


30 


2 


AB 


An invalid CPL has been passed to the 
catalog management driver. 








4 


AT 


During DEFINE, an incorrect master 
catalog ACB was found. 








6 


BD 


Alter of non-VSAM data sets is not 
allowed. 








8 


BD 


Alter of catalog name is not allowed. 








20 


CL 


Forced delete space is not allowed on 
catalog volume. 


RCIOU 


52 


34 




A7,BD,BN 
A6,AF 


I/O error during VTOC processing 
(Reason codes from DADSM — see 
Figure 6.5) 


RCSEC 


56 


38 


2 


BM 


All attempts to provide a password via 
the system operator are used without a 
successful compare. 








6 


BM 


No prompt allowed and password not 
provided via the catalog parameter list. 








8 


BM 


USVR requested stop. 








12 


A7 


Security violation from DADSM scratch. 



Figure 6.4 



Catalog Management error code-to-module relationship (part 2 of 9) 
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PL/S Name 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCINENT 


60 36 


2 


BC 


Invalid entry type for EXTRACT. 






4 


BG,BE 


Invalid entry type 'C or non-VSAM. 






6 


BD 


Invalid entry type 'C for alter of 
attributes. 






8 


BD 


Invalid 'C or T entry type for alter 
buffer size. 






10 


BD 


'C record invalid for alter of AMDSB. 






12 


BE 


No alter volume allowed on 'C'-type 
records. 






14 


BE 


Test CPL error during ADD volume. 






16 


CA,CD 


AIX G record association is not 
'D'lTl'C (AIX is not a KSDS). 






18 


CA,CD 


Upgrade set Y record association not 
D|I. 






20 


CA,CD 


'Y' association in base cluster data 
record does not point to a 'Y' record. 






22 


CA,CD 


'D' association in 'C record does not 
point to a 'D' record. 






24 


BD 


Upgrade or update for a record which is 
not a 'G' or 'R'. 






26 


BD 


Alter of exception exit but the record is 
not 'D' or T. 






28 


BD 


Alter of average record size but the 
record is not 'D' or T. 






30 


BD 


Alter of expire date but the record is not 
'C or 'G' or 'R\ 






32 


AH 


DEFINE, DELETE, ALTER of non- 
VSAM entry prohibited in recoverable 
catalog. 


RCNAME 


64 40 


2 


BL 


Test field name not present in group 
space header. 






4 


BE 


Association names do not exist. 


RCNOSP 


68 44 


2 


BB 


Cannot extend a unique file. 






4 


BB 


No secondary extent value specified. 






6 


BB 


No space for suballocation. 






12 


BB 


More than 1 6 extents/volume for 
reusable file. 
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Catalog Management error code-to-module relationship (part 3 of 9) 
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PL/S Name 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCNMNTD 


72 


48 




A7 

A6 
AQ 

CG, BL 
BN, 


Volume not mounted. 

The reason codes come from 
$$BOVS01 and are: 

• Register 15 contains X'08': 
invalid or unassigned 
symbolic unit 

• Register contains X'04': 
catalog time stamp greater 
than time stamp in the 
volume's format 4 DSCB. 


RCRELOP 


80 


50 





CA 


Related object is reusable. 








2 


CA 


Related object is a RRDS. 








4 


CA 


Related object does not exist. 








6 


CA,CP 


AIX/PATH not allowed to be built 
over a catalog. 








8 


CA 


Name of AIX/PATH and related object 
are identical. 








10 


CA,CP 


No pointer to a related object of an 
AIX/PATH. 








12 


CA,CP 


AIX not being built over a base cluster, 
or related path object not a cluster or an 
AIX. 


RCDATE 


84 


54 





AF,BG 


Expiration date not reached. 


RCCRAOP 


88 


58 





CO 


Open of CRA failed. 








2 


- 


I/O error in CRA. 








4 


CO 


Internal call to CO for CRA open has 
conflicting parameters. 








6 


A6 


Space of less than one cylinder for CRA 
is not allowed. 


RCDSEXT 


92 


5C 





BB 


Attempt was made to exceed the 
maximum number of extents. 


RCSPANCK 


96 


60 





BX,CA 


Prime key as specified for spanned 
record is not completely contained in 
the first control interval of the record 








4 


CY 


Maximum logical record size for 
spanned records exceeds CA size. 








6 


CA 


AIX key for spanned records is not 
completely contained within the first 
control interval of the base cluster 
record. 








8 


CA 


One of the following: 
The AIX key is not completely con- 
tained within the base cluster record, or 
the maximum record size for defining 
an alternate index is too small. 


RCRECVOL 


100 


64 





A6 


Attempt was made to define a unique 
file on a volume owned by a recover- 
able catalog. 

You must define space before any 
unique files can be defined. 
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PL/SName 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCCATEX 


104 


68 





AL 


The master catalog is already open but a 
request has been made for master 
catalog DEFINE. 


RCINFNAM 


108 


6C 





AY 


Invalid field name. 


RCINFPL 


112 


70 


2 


AY 


Invalid group code in FPL. 








4 


AY 


Invalid update request. 


RCCATBAL 


116 


74 


— 


— 


Catalog out of balance (not used by 
DOS/VS). 


RCSYSFLD 


120 


78 





AX 


Non-existent field being modified. 


RCINCI 


124 


7C 


2 


AG,CG 


Invalid RBA return code from record 
management. 








4 


AG 


Catalog build open processing but 
specified CI was greater than 9. 








6 


AG 


CCR record ('L') read by error. 


RCBLKVCK 


128 


80 


— 


— 


Validity check on user block (not used 
by DOS/VS). 


RCINPTR 


132 


84 


2 


AL,BH 


No pointer to VOLSER list. 








4 


AL 


No FPL to AMDSB of data. 








6 


AL 


No FVT from cluster level. 








8 


AL 


No pointer in FPL to data set attribute. 








10 


AL 


No FPL for volume space parameters. 








12 


AL 


No pointer to expiration date value. 








14 


AL 


No pointer to creation date in FPL. 








16 


BH 


No pointer to device type in FPL. 








18 


BH 


No FPL in FVT. 








20 


AL 


No pointer to the workarea. 








22 


AL 


No pointer to password data of related 
object. 








24 


AL 


No pointer to owner ID in FPL. 








26 


BX 


No pointer to cluster space parameter in 
FPL. 








28 


BX 


No pointer to data space parameter in 
FPL. 








30 


BX 


No pointer to index space parameter in 
FPL. 








32 


AN 


No buffersize FPL in data FVT. 








34 


AN 


No buffersize FPL in cluster FVT. 








36 


AN 


No buffersize FPL in index FVT. 








38 


BX 


No logical record size FPL in cluster or 
data FVT. 








40 


BH 


No pointer to data set file sequence 
number in volume list FPL. 


RCMISPAR 


136 


88 


2 


AL 


No length for volume serial list area. 








4 


AL 


Missing DNAME parameter with 
DEFINE UNIQUE FILE. 








6 


AL 


Missing cluster entry name. 








8 


AL 


Missing space parameter in space FVT. 
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PL/S Name 
for Code 



Error Code 
Dec Hex 



Reason 
Codes 



Module 
Name 



Description 



RCMISPAR 



136 88 



RCINCNPM 



140 8C 



10 



32 

34 
36 



AL 



12 


AL 


14 


AL 


16 


BX 


18 


BX 


20 


AN 


22 


BD 




BL 


24 


BH 


26 


BH 


28 


CA 


30 


CP 


2 


AL 


4 


AL 


6 


AL 


8 


AL 


10 


BX 


12 


AN 


14 


BX 


16 


BX 


18 


BX 


20 


AN 


22 


AP 




AQ 


24 


AP,AT 


26 


AL 


28 


BH 


30 


BH 



AN 

BX 
AT 



Missing VOLSER list pointer in space 
FVT. 

Missing DNAME pointer in space FVT. 

No length in volume list from cluster 
FVT. 

No space parameter on 'C or 'D' FVT. 

Average logical record size missing. 

No key specified. 

Unique file needs DLBL statement for 
rename; or 
DLBL-statement missing. 

No entries in volume list. 

No entries in device type list. 

AIX name missing. 

Path entry name missing. 

Index FVT found for RRDS or ESDS. 

Keyrange is invalid. 

Keyranges found on both data and 
cluster FVT. 

Workarea too small. 

Space parameters found on both cluster 
and data FVT. 

Buffersize specified more than once. 

Average logical record size specified on 
index FVT. 

Average logical record not valid for 
CATALOG DEFINE. 

Average logical record size specified on 
cluster and data FVT. 

Inconsistent key length specified in 'D' 
and T FVT. 

Inconsistent VOLSER lists with different 

name in each list; or 

DLBL and volume list do not match. 

Primary allocation for data space less 
than required for the catalog. 

Invalid space request type for catalog 
DEFINE. 

Unequal number of VOLSER and file 
sequence numbers in list entries. 

More device type entries than 
VOLSER's. 

Invalid keyposition specified on 'D' 
or T. 

Invalid space request type on DEFINE. 

The number of keyranges and the 
number of VOLSER's are not equal. 
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PL/S Name 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCINCNPM 


140 


8C 


38 


AL 


Unique attribute is not allowed for 
catalog DEFINES. 








40 


AL,CP,BH 
BG,BD,CA 


FILE was not specified for a 
recoverable catalog. 








42 


AL 


RRDS has spanned attribute. 








44 


AL 


RRDS has a maximum record length 
which is not equal to the average record 
length. 








46 


BD 


An attempt was made to specify an 
exception exit for a data set which was 
originally defined with a DOS/VS 
Release earlier than Release 31. 


RCINENTN 


144 


90 


2 


AL,CA,CP 
AL 


AIX/PATH name is invalid, first 
character must be alphabetic. 








4 


AL 


Unique name is invalid because it uses 
Z999999, which is restricted. 








6 


AL 


Data and index names not allowed for a 
catalog. 


RCVOLOWN 


148 


94 





A6 


Volume already owned by another 
catalog. 


RCDNECAT 


152 


98 





AF 


Non-empty catalog cannot be deleted. 


RCNOSPSA 


156 


9C 





AU 


No space available within the catalog 
for suballo cation. 


RCVNDSPD 


160 


A0 





BL,BN 


Volume record not deleted from the 
catalog because some file still owns 
space on the volume. All empty data 
spaces on this volume have been deleted. 


RCINSSWA 


164 


A4 


2 


AQ,AT,AC 
AD,AH,A7 
AS,BB,BD 
BE 5 BM,B8 
C9,BG,BN 
CB,CD,CO 
CY 


Catalog management GETVIS error: 
A continuous area of virtual 
storage of the requested size 
is not available. 








6 


AQ,A6,BE> 
BU 


DADSM GETVIS error: As 

above, but the call came from DADSM. 








8 


CG 


Record management GETVIS error: 
As above, but the call came from record 
management. 


RCINVDTY 


168 


A8 


2 


BX,AP 


Device type not supported. 








4 


BH 


Invalid device name. 


RCDUPNVL 


172 


AC 


4 


BD,BN,AQ 


Duplicate name in VTOC. 


RCNSPVTC 


176 


BO 





AQ 


No space available in the VTOC. 


RCDSO 


184 


B8 


2 


CX 


The catalog is in use by some partition. 
Until the number of users is zero, the 
catalog cannot be deleted. 








4 


CX 


The data or index component (or both) 
is (are) in use and the file cannot be 
deleted. 
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PL/S Name 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCCATUNA 


188 


BC 


2 


AB,CG 


No RPL available for processing, request 
ignored. 








4 


AJ 


Suballocate failure. 


RCMLRSZ 


192 


CO 





BX 


Maximum logical record size exceeds 
allowable maximum. 


RCMCISZD 


196 


C4 





BX 


CI size too large for allowable maximum 
for data component. 


RCMCISZI 


200 


C8 





BX 


CI size too large for index device type. 


RCKEYINC 


204 


cc 





BX 


Key extends beyond the end of the 
maximum logical record. 


RCBUFSIZ 


208 


DO 





BX 


Bufferspace too small for minimum 
number of CIs. 


RCSIZCAL 


212 


D4 


2 


BX 


Not enough parameters specified in 
DEFINE. 








4 


CY 


Specified and default values result in 
only one CI per CA for a KSDS or 
zero CI per CA for an ESDS. 








6 


CY 


For a non-unique KSDS, the index CI 
size is too small, and an attempt to 
reduce the number of data CIs failed. 








8 


CY 


For a unique KSDS, the index CI size 
is too small. The number of data CIs 
cannot be reduced as their size is fixed 
at one cylinder. 








10 


CY 


Buffer space too small for a non-unique 
data set. 








12 


CY 


Buffer space too small for a unique data 
set. 


RCEXTOVL 


216 


D8 


2 


AQ 


Overlap on: 

a. VTOC 

b. Expired secure file 

c. Expired file 

d. Unexpired secure file 

e. Unexpired file 

f. New extents 


RCINEXT 


220 


DC 


- 


- 


Invalid EXTENT card. 


RCMXGRP 


224 


E0 





AW 


Maximum number of group occurrence 
pointers have been processed. 








2 


AW 


More than 1 25 AIXs in the upgrade set. 


RCLOCKER 


228 


E4 





A7,AL,BL 


Time of day clock hardware error. 


RCRCDLDF 


232 


E8 




AQ,BM,BH 
CX,CG 


CD LOAD error, reason is: 

a. from CDLOAD 

b. if no reason is available 


RCINDER 


240 


F0 


4 


AQ,AF,AH 
AP,AE,A7 
BX,BG,B8 
BL,BN CO 
CS 


IKQVLAB error (see Figure 6.9). 








6 


AQ,A7 
BL,B8,AT 


No extents found. 
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PL/S Name 
for Code 


Error Code 
Dec Hex 


Reason 
Codes 


Module 
Name 


Description 


RCINDER 


240 FO 
(Cont.) 


8 


AQ,AT,A8 
BL 


Invalid device type, or 

IKQVLAB error during device type 

processing. 








10 


AT,AQ 


Too many extents, or 
Duplicate volume serial numbers. 








12 


AT 


Number of tracks required by the Access 
Method Services command exceeds 
DLBL total per volume. 








14 


BG 


No DLBL found for unique file. 








16 


BG 


Unable to scratch because DLBL is 
missing. 








18 


BG 


Unable to open for ERASE because 
DLBL is missing. 








20 


BN 


System LUB not found. 








22 


AH 


Catalog name in DLBL and CPL do not 

match. 








24 


AH 


Master catalog DLBL not found. 








26 


AH 


User or job catalog DLBL not found, or 
job catalog required but not found. 








28 


AH 


DLBL catalog name is missing. 








30 


AH 


Volume serial number in extent state- 
ment for job catalog does not match 
volume serial in the entry for this job 
catalog in master catalog. 








32 


CO 


DLBL missing so volume serial number 
cannot be found and consequently CRA 
cannot be opened. 


RCEFRMPH 


242 


F2 




BG 


Physical I/O error occurred while trying 
to erase the data set being deleted. 
(Reason codes are from VSAM record 
management - see Figure 6.6.) 


RCEF 


244 


F4 




BG 


This ACB could not be opened (OPEN 
failed while trying to erase). The address 
of the catalog ACB or the CI number 
may be wrong. (Reason codes from 
OPEN - see Figure 6.9.) 


RCENQ 


246 


F6 


16 


AB 


Catalog management was unable to gain 
exclusive control of a resource. 


RCVOLENT 


248 


F8 





AR,AT,BX 
BN 


Volume entry does not exist in 
this catalog. 


RCEFRM 


250 


FA 




BG 


VSAM record management has found an 
error during ERASE. (Reason codes from 
VSAM record management — see 
Figure 6.6.) 


RCEE 


252 


FC 





AH 


Early exit. (Internal indicator; if found 
in CCACD1, it does not indicate an 
error, but that the last O/C/EOV request 
for catalog open has completed.) 
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Return 








Code 






Module 


Routine (Reg.15) 


Dec. 


Meaning 


IKQWDSOO* 


X'OO' 


00 


Write completed successfully 




X'OC 


12 


VTOC I/O error 




X'10' 


16 


Duplicate name on volume 




X'14' 


20 


VTOC full 




X'40' 


64 


GETVIS failed 


IKQRDSOO 


X'OO' 


00 


Successful read 




X'04' 


04 


I/O error reading VOL1 label 




X'08' 


08 


Volume not mounted 




X'OC 


12 


VTOC I/O error 




X'2C 


44 


DSCB not found 




X'30' 


48 


Invalid request 




X'34' 


52 


DADRADDR not on but DADBYPS 




X'40' 


64 


is 

GETVIS failed 


IKQCOV00* 


X'OO' 


00 


No overlap found 




X'18' 


24 


Overlap on expired file 




x'ie 


28 


Overlap on unexpired file 




X'20' 


32 


Overlap on protected unexpired file 




X'24' 


36 


Overlap on VTOC 




X'38' 


56 


Overlap on expired protected file 




X'40' 


64 


GETVIS failed 


IKQRENOO* 


X'OO' 


00 


Rename successful 




X'08' 


08 


Volume not mounted 




X'40' 


64 


GETVIS failed 




X'44' 


68 


Security violation 


IKQSCROO* 


X'OO' 


00 


Scratch successful 




X'08' 


08 


Volume not mounted 




X'40' 


64 


GETVIS failed 




X'44' 


68 


Security violation 


IKQALLOO* 


X'OO' 


00 


Successful allocate 




X'08' 


08 


Volume not mounted 




X'28' 


40 


No extents given in EXTENT card 




X'40' 


64 


GETVIS failed 




X'48' 


72 


CDLOAD failed 


IKQVTCOO 


X'OO' 


00 


Return codes have no meaning; 00 is 
always returned 


IKQPOPOO* 


X'OO' 


00 


Successful DSCB build 




X'08' 


08 


Volume not mounted 




X'40' 


64 


GETVIS failed 


*Note: These modules also return codes issued by other internally called modules. 
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Error Code-to-Moduie Relationship (Record Management) 



There are internal and external error codes. Internal error codes are set in 
register 15 by record management modules and passed to IKQERH for 
handling. Three classes of internal error codes exist: 

• Specification errors 

(with a value from X'01' to X'lF') 

• Processing errors 

(with a value from X'20' to X'3F') 

• I/O errors 

(with a value from X'40' to X'5F') 

External error codes are set in the RPL (see section Data Areas) and 
register 15 by IKQERH, according to the internal error codes, and passed 
back to the user. Figure 6.6 shows the Record Management internal - 
external error code relationship. 



Internal error 
codes 
(IKQERC macro) 


External error codes 
(IKQRPL macro) 


Meaning 


Symbolic 






Symbolic 






code 


R15 


R15 


name 


RPL 




E01 


X'01' 


X'04' 


- 


- 


RPL held by another request 


E02 


X'02' 


X'02' 


- 


- 


Reserved 


E03 


X'03' 


X'08' 


RPLNOPLH 


X'40' 


No PLH available 


E04 


X'04' 


X'08' 


RPLNOPEN 


X'44' 


CNV processing not requested 


E05 


X'05' 


X'08' 


RPLNOPEN 


X'44' 


Keyed processing not requested 


E06 


X'06' 


X'08' 


RPLNOPEN 


X'44' 


Output not requested 


E07 


X'OT 


X'08' 


RPLRRADR 


X'C4' 


Invalid address requested 


E08 


XW 


X'08' 


RPLKEYES 


X'48' 


Keyed access requested for ESDS 


E09 


X'09' 


X'08' 


RPLADRKS 


X'4C 


ADR or CNV insert for KSDS 


E10 


X'OA' 


X'08' 


RPLINERS 


X'50' 


Illegal ERASE request 


Ell 


X'OB' 


X'08' 


RPLINLOC 


X'54' 


Illegal Locate mode specification 


E12 


X'OC 


X'08' 


RPUNLD 


X'74' 


Illegal request during data set load 


E13 


X'OD' 


X'08' 


RPLNOPOS 


X'58' 


No keyed positioning done 


E14 


X'OE' 


X'08' 


RPLNOPOS 


X'58' 


No sequential positioning done 


E15 


X'OF 


X'08' 


RPLNGUPD 


X'5C 


No valid GET UPD issued 


E16 


X'10' 


X'08' 


RPLUPDKC 


X'60' 


Key change during update 


E17 


x'ir 


X'08' 


RPLLENCN 


X'64' 


Length change for addressed update 


E18 


X'12' 








Reserved 


E19 


X'13' 


X'08' 


RPLCONOP 


X'68' 


Improper RPL-option (BWD) 


E20 


X'14' 


X'08' 


RPLCONOP 


X'68' 


Improper or conflicting RPL options, in- 
valid transaction ID or LRU percentage 
value, or WRTBFR without LSR/DFR 


E21 


X'15' 


X'08' 


RPLIMGKL 


X'70' 


Improper generic key length 


E22 


X'16' 


X'08' 


RPLIMRCL 


X'6C 


Improper RECLEN 


E23 


x'ir 


X'08' 


RPLINERS 


X'50' 


Invalid ERASE request (AIX) 
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Internal error 
codes 
(IKQERC macro) 


External error codes 
(IKQRPL macro) 


Meaning 


Symbolic 






Symbolic 






code 


R15 


R15 


name 


RPL 




E24 


X'18' 








Reserved 


E25 


X'19' 


X'08' 


RPLNOPOS 


X'58' 


Invalid switching FWD-BWD 


E26 


X'lA' 








Reserved 


E27 


X'lB' 


X'08' 


RPLINVRR 


X'CO' 


Invalid RR number (RRDS) 


E28 


x'ie 


X'08' 


RPLIPATH 


X'C8' 


Invalid path access (AIX) 


E29 


X'lD' 


X'08' 


RPLINBWD 


x'ce 


Illegal PUT in BWD-mode 


E30 


X'IE' 








Reserved 


E32 


X'20' 


X'08' 


RPLINRBA 


X'20' 


Invalid RBA 


E33 


X'21' 


X'08' 


RPLNRFND 
RPLNOREC 


X'10' 


No record found 


E34 


X'22' 


X'08' 


RPLEOFDS 
RPLEODER 


X'04' 


End of data set encountered 


E35 


X'23' 


X'08' 


RPLWRKAS 


X'2C 


User's work area not large enough 


E36 


X'24' 


X'08' 


RPLSEQCK 


x'oe 


Sequence error 


E37 


X'25' 


X'08' 


RPLDUPRC 
RPLDUP 


X'08' 


Duplicate record 


E38 


X'26' 


X'08' 


RPLNKEYR 


X'24' 


No key range for new record 


E39 


X'27' 


X'08' 


RPLNOVIR 


X'28' 


Insufficient virtual storage 


E40 


X'28' 


X'08' 


RPLNRSPA 
RPLNOEXT 
RPLSPACE 


x'ie 


No DASD space available 


E41 


X'29' 


X'08' 


RPLNVOLM 


X'18' 


Volume or extent unavailable 


E42 


X'2A' 


X'08' 


RPLCDLOD 


X'30' 


CDLOAD failure 


E43 


X'2B' 


X'08' 


RPLVLERR 


X'34' 


No BCB available or invalid attempt to 
insert RRDS after preformat 


E44 


X'2C 


X'08' 


RPLEXCTL 


X'14' 


Exclusive control failure 


E45 


X'2D' 


X'08' 


RPLCATLG 


X'80' 


Internal catalog call failure 


E46 


X'2E' 


X'08' 


RPLSRLOC 


X'84' 


Illegal GET in LOC-mode 


E47 


X'2F 


X'08' 


RPLINCSR 


x'se 


Inconsistent spanned record 


E48 


X'30' 


X'08' 


RPLSRADR 


X'88' 


Illegal addr. retrieval for spanned records 
KSDS 


E49 


X'31' 


X'08' 


RPLNOBAS 


X'90' 


No base record for associated AIX point- 
er 


E50 


X'32' 








Reserved 


E51 


X'33' 


X'08' 


RPLMAXPT 


X'94' 


Max. no of AIX pointers exceeded 


E52 


X'34' 


X'08' 


RPLNOBUF 


X'98' 


No buffers available (LSR) 


E64 


X'40' 


x'oe 


RPLRDERD 


X'04' 


Data read error 


E65 


X'41' 


x'oe 


RPLRDERI 


X'08' 


Index read error 


E66 


X'42' 


x'oe 


RPLRDERS 


x'oe 


Sequence set read error 


E72 


X'48' 


x'oe 


RPLWTERD 


X'10' 


Data write error 


E73 


X'49' 


x'oe 


RPLWTERI 


X'14' 


Index write error 


E74 


X'4A' 


x'oe 


RPLWTERS 


X'18' 


Sequence set write error 



Figure 6.6 



Record Management internal/external error code relationship (part 2 of 2) 



Section 6. Diagnostic Aids 6.29 



Module 


Internal error code(s) 


IKQAIX 


E49 


IKQBFAOO 


E43, E44 


IKQCASOO 


E42, E39 


IKQCIR 


E42 


IKQCISOO 


E39, E42, -1 


IKQEDX 


E39, E41, E42, E45 


IKQEOV 


E39 


IKQERH 


E01, E33,E34 


IKQGNXOO 


E64 


IKQGPT 


E32, E33, E34, E36, E48 


IKQIOAOO 


E32, E41, E42, E65, E66 


IKQIOBOO 


E64, E65, E66, E72, E73, E74 


IKQIXEOO 


E39, E44, E45, -5 


IKQIXFOO 


-5 


IKQJRN 


E39, E42 


IKQKRD 


E38 


IKQMDY 


E43 


IKQNCAOO 


E39, E42, E45 


IKQNEX 


E39, E40, E42, E45 


IKQPFOOO 


E39, E42,E45 


IKQRBA 


E39, E45 


IKQRCLOO 


E39 


IKQRQB 


E03, E04, E05, E06, E07, E08, E09, E10, Ell, E12, E13, E14, 15, 




E16, E17, E19, E20, E21, E22, E23, E25, E27, E28, E29, E32, E35, 




E39, E42, E52 


IKQRRP 


E42, E45 


IKQRTV 


E35 


IKQSPMOO 


E42 


IKQSRG 


E35, E44, E46, E47 


IKQSRT 


E36, E37 


IKQUPD 


E34 


IKQUPG 


E22, E39, E44, E51 


IKQVSM 


EOl, E03, E39 


Note: A value of minus is no error code but an internal VSAM interface return code. 



Figure 6.7 



Record Management internal error code-to-module relationship 
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Return 




Error 






Code 




Code 




Module 


(Reg. 15) 


Meaning 


(Reg. 0) 


Meaning 


IKQGEN 


X'OO' 


Successful completion 








X'04' 


An error has been 


x'or 


Invalid function type code 






detected 


X'02' 
X'03' 
X'08' 
X'09' 
X'OA' 
X'OE' 
X'OF' 


Invalid control block type-code 

Invalid keyword type-code 

Not enough virtual storage available 

User area too small 

Exit address is not specified in the input 

Inconsistent parameters 

The user area is not on a fullword 

boundary 




X'08' 


Invalid use of the 
execute form of this 
macro instruction. 




Since the return code is set by 

the macro expansion and not 

by IKQGEN, R0 contents do not indicate 

an error code. 




X'OC 


CDLOAD failure 




The return code is set by the macro 
expansion, not by IKQGEN, and R0 con- 
tains the return code from CDLOAD. 


IKQTMSD 


X'OO' 


Successful completion 


- 


- 


or 


X'04' 


An error has been 


x'or 


Invalid function type-code. 


IKQTMSF 




detected 


X'02' 
X'03' 
X'04' 

X'05' 
X'06' 

X'07 
X'09' 
X'OA' 
X'OB' 
X'OC 
X'OD' 

X'OE' 
X'OF' 

X'20' 


Invalid control block type code. 

Invalid keyword type-code 

Control block not of type 

specified 

The ACB is closed; it must be open 

The cluster is not key-sequenced (does not 

include an index) 

The EXLST entry is not present 

User area is too small (SHOWCB) 

Exit address is not specified in the input 

The RPL is active 

The ACB is open; it must be closed 

The exit address is not in the control 

block 

Inconsistent parameters 

The user area is not on a fullword 

boundary 

The parameter 'STRMAX' was specified, 

but LSR is not active. 




X'08' 


Same as for IKQGEN 


- 


Same as for IKQGEN 




X'OC 


Same as for IKQGEN 


- 


Same as for IKQGEN 



Figure 6.8 



Control block manipulation error code-to-module relationships (Record Management) 
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Error 


Return 


Issuing 




Code 


Code 1 


Module 




(ACBERFLG) (Reg.15) 




Meaning 


X'04' 


X'08' 


IKQOPN 


This ACB is already open 


X'OE' 


X'08' 


IKQOPN 


The symbolic unit in the DLBL 






IKQOPNCT 


statement is invalid 


X'OF 


X'08' 


$$BOVS03 


No job information blocks (JIBs) are 
available from the label information cylin- 
der 


x'ir 


X'08' 


$$BOVS03 


The address in the ASSIGN 






IKQLAB 


statement for the logical 






IKQOPN 


unit was IGN (assignment 






IKQOPNOV 


ignored) 


X'12'2 


X'08' 


$$BOVS03 


The address in the ASSIGN statement 






IKQOPN 


for the logical unit was UA 






IKQOPNOV 


(logical unit unassigned) 


X'22'2 


X'08' 


IKQLAB 


The volume serial numbers in the 






IKQOPNOV 


EXTENT statement do not match those 
in the catalog entry 


X'32' 


X'08' 


$$BOVSAM 


One or more VSAM processing modules 






IKQOPNHC 


cannot be loaded because VSAM=YES 






IKQOPNOV 


was not specified in the FOPT macro 






IKQOPNRD 


at system generation or the user's parti- 
tion is too small 


X'50' 


X'08' 


IKQOPNOV 


An attempt was made to assign more than 
one volume of a multivolume data set to 
one unit when direct or keyed processing 
was specified in the ACB 


X'5C 


X'04' 


IKQOPN 


LSR was specified in the ACB macro, but 
no message area was specified 


X'60' 


X'04' 


IKQOPNHC 


A data set which is unusable (due to a 
failure in recovery) was opened for input 


X'64' 


X'04' 


IKQOPN 


Open encountered an empty alternate 
index in the upgrade set 


X'68' 


X'04' 


IKQOPNOV 


The time stamp of the data set's volume 
does not match the system time stamp in 
the volume catalog entry 


X'6C 


X'04' 


IKQOPN 


The system time stamps in the catalog 
entries for the data and index components 
of a data set do not match. This indicates 
that the data has been updated separately. 
Note: No warning is given if the index 
time stamp is greater than the data time 
stamp. 


X'6E' 


X'08' 


IKQOPN 


An attempt was made to open an empty 
data set for input only; or to open a data 
set which was not closed properly after 
initial loading. 


X'74' 


X'04' 


IKQOPNHC 


The data set was not closed the last time 
it was processed. 



Figure 6.9 



OPEN error code-to-module relationships (part 1 of 3) 



6.32 DOS/VS LIOCS Volume 4 



ERROR 


Return 






Code 


Code 1 


Issuing 




(ACBERFLG) (Reg.15) 


Module 


Meaning 


X'75' 


X'08' 


IKQLAB 


The symbolic unit specified in the 






IKQOPNOV 


EXTENT statement is not a 






IKQOPNRD 


valid device type 


X'80' 


X'08' 


IKQLAB 


The DLBL statement is missing or the 
filename in the DLBL does not match the 
ACB 


X'84' 


X'08' 


IKQLAB 


A permanent I/O error occurred while 
VSAM was reading the label information 
cylinder 


X'88' 


X'08' 


$$BOVSAM 


VSAM could not obtain a 






IKQOPN 


continuous area of virtual 






IKQOPNAI 


storage of the size required 






IKQOPNHC 


for work areas, control blocks, 






IKQOPNNC 


or buffers 






IKQOPNOV 








IKQOPNRD 








IKQOPNRP 








IKQOPNUS 








IKQLAB 








IKQSTM 




X'90' 


X'08' 


IKQOPNHC 


A permanent I/O error occurred 






IKQOPNAI 


while VSAM was reading or 






IKQOPNUS 


writing a catalog entry 


X'94' 


X'08' 


IKQOPN 


No valid entry was found in the 






IKQOPNHC 


catalog for this ACB or 






IKQOPNOV 


for the alternate index structure 






IKQOPNAI 


related to this ACB 


X'98' 


X'08' 


IKQOPNHC 


Security verification failed: the password 
specified in the ACB, or supplied by the 
operator, for a specific level of access 
does not match the corresponding pass- 
word in the catalog entry 


X'AO' 


X'08' 


IKQOPNAI 


The operands specified in the ACB are 






IKQOPN 


inconsistent with each other or with 
information in the catalog entry, such as 
keyed processing specified for an ESDS 
or DFR specified when LSR is inactive. 


X'Al' 


X'08' 


IKQOPN 


User buffers were specified with keyed 
access (they may be specified only with 
CNV access) or with LSR 


X'A4' 


X'08' 


IKQOPNRD 


A permanent I/O error occurred while 
VSAM was reading the volume label of 
the volume containing the data set 


X'A8' 


X'08' 


IKQOPN 


The data set is not available 






IKQOPNHC 


because it is being updated, loaded, 






IKQOPNRD 


or reset by (and under exclusive control 
of) another ACB or because it has been 
flagged read only by Access Method Ser- 
vices 


X'B4' 


X'08' 


IKQOPN 


An error occurred while a 






IKQOPNCT 


catalog was being opened 






IKQOPNHC 








IKQOPNAI 





Figure 6.9 



OPEN error code-to-module relationships (part 2 of 3) 



Section 6. Diagnostic Aids 6.33 



ERROR Return 
Code Code 1 
(ACBERFLG) (Reg.15) 


Issuing 
Module 


Meaning 


X'CO' 


X'08' 


IKQOPNHC 


A data set which is unusable (because of a 
failure in recovery) was opened for output 


X'C4' 


X'08' 


IKQOPN 


Access to data was requested via an 
empty alternate index 


X'D4' 


X'08' 


IKQOPN 


LSR is specified, but the data set being 
opened is empty (which implies that it is 
to be loaded). 


X'D8' 


X'08' 


IKQOPNRP 


LSR is specified, but the keylength of the 
data set being opened is greater than the 
maximum keylength specified for the re- 
source pool. 


X'DC 


X'08' 


IKQOPNRP 


LSR is specified, but the CI size of the 
data set being opened is greater than the 
largest buffer size specified for the re- 
source pool. 


X'E4' 


X'08' 


IKQOPNRP 


LSR is specified, but there is no resource 
pool defined; may also be caused by prob- 
lems while loading the Resource Table. 


X'E8' 


X'08' 


IKQOPNRD 


Reset was specified for a non-reusable 
data set and the data set is not empty 


1 The contents of register 


15 have the following meaning: 


XW 
XW 


Open was successfully completed 

All ACBs were opened successfully, but one or more ACBs had a 


XW 


warning message 

One or more ACBs were nol 


> successfully opened 


Note that register 15 contains the worst return code encountered while opening a list 
of ACBs. This means that some of the ACBs in the list may have been opened 
successfully, even though register 15 contains X'04' or X'08\ 


2 This code 


is ignored by < 


DPEN, but is meaningful to catalog and DADSM routines. 



Figure 6.9 



OPEN error code-to-module relationships (part 3 of 3) 
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Error Return 
Code Code 
(ACBERFLG) (Reg.15) 


Issuing 
Module 


Meaning 


X'02' 


X'02' 


TKQCLOOO 


Invalid control block ID or ACB address 
not in OAL 


XW 


X'04' 


IKQCLOOO 
$$BOVSAM 


ACB is already closed or invalid 
control block structure 


X'88' 


X'08' 


IKQCLOOO 
IKQCLCAT 


VSAM could not obtain a continous 
area of virtual storage large enough for 
the work area 


XW 


X'08' 


IKQCLCAT 


A permanent I/O error occurred while 
VSAM was reading or writing a catalog 
entry. 


X'B8' 


X'04' 


IKQCLOOO 


An internal error occurred while VSAM 
was completing outstanding I/O requests 


X'BC 


X'D4' 


IKQCLOOO 


The ACB is busy; it is being used, for 
example, by a SHOWCB or TESTCB ma- 
cro 


X'E4' 


X'08' 


IKQCLOOO 


Resource pool is invalid 



Figure 6.10 CLOSE and TCLOSE error code-to-module relationships 
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Return 
Code 
(Reg. 15) 



Issuing 
Module 



Meaning 



X'OO' 
X'04' 



IKQSCAT 
IKQSCAT 



X'08' 


IKQSCAT 


x'oe 


IJQSCAT 


X'14' 


IKQSCAT 


X'18' 


IKQSCAT 


x'ie 


IKQSCAT 


X'20' 


IKQSCAT 


X'28' 


IKQSCAT 


X'2C 


IKQSCAT 



Request successfully completed 

The specified work area is less than the minimum size 
(64 bytes) or too small to display all associated objects 
(in this case, as many objects as possible are dis- 
played). 

Either the ACB address is invalid, or the VSAM 
master catalog does not exist or could not be opened. 

CDLOAD failure while VSAM routines were being 
loaded 

The specified object or control interval does not exist. 

An I/O error occurred while accessing the catalog. 

The specified CI number is invalid. 

The specified object is not a cluster, data set, index, 
alternate index, path, or upgrade set. 

The SHOWCAT module received an unexpected error 
code from catalog management. 

Error while searching the label cylinder for the data 
set name 



Note: 



In the case of return codes OC, 14, 18, 1C, or 28, the SHOWCAT work area 
contains the return code and reason code issued by catalog management and 
the ID of the module in which the error was detected. In the case of return 
code X'2C, the work area contains the return code from IKQLAB, as shown 
in Figure 6.9. The format of the work area is then: 



Offset Length 



Description 

Length of work area 

Catalog management or IKQLAB return code 

Catalog management reason code 

Catalog management module ID 



Figure 6.11 



SHOWCAT error code-to-module relationships 



6.36 DOS/VS LIOCS Volume 4 



Return 
Code 
Macro (Reg. 15) 


Issuing 
Module 


Description 


BLDVRP X'OO' 


IKQBRP 


Request was successfully completed 


xw 


IKQBRP 


A resource pool already exists for the 
partition 


x'oe 


IKQBRP 


CDLOAD failure 


X'14' 


IKQBRP 


STRNO is specified as less than one or more 
than 255 


X'18' 


IKQBRP 


The specified BUFFERS parameter is invalid 


DELVRP X'OO' 


IKQDRP 


Request was successfully completed 


X'04' 


IKQDRP 


There is no resource pool to be deleted 


X'08' 


IKQDRP 


There is at least one open data set still using 
the resource pool 


x'oe 


IKQDRP 


CDLOAD failure 



Figure 6.12 



Error codes for BLDVRP and DELVRP macros 
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Service Aids 



Service aid phases are available for: 

Enabling and disabling snap dumps within the VSAM component. 

Obtaining snap dumps of control blocks. 

Using UPSI to obtain diagnostic information for the VSAM catalog. 

Maintaining DSCBs in the VTOC and VOL1 labels on DASD, 

Loading a VSAM phase or a program you have written. 

The service aid phases IKQVDUMP and $$BCVS03 are included in the 
link-edit of VSAM. The other three phases, IKQVEDA, IKQVDU, and 
$$BCVS04 can be placed in the core image library by executing the follow- 
ing job. 



/ JOB 

/ OPTION 

INCLUDE 
* 


JOBNAME 

CATAL 

IKQCLNLK 


/ EXEC 


LNKEDT,REAL 


S 





Enabling and Disabling Snap Dumps 



The following snap points are available in VSAM. Each snap ID, if enabled 
with IKQVEDA, will produce the result indicated. If VSAM is running in the 
SVA, it must be reloaded from the core image library after the snap dump has 
been enabled in order to activate the dump. 

Snap number Result of Enabling this Snap 



0001 



0002 

0003 

0004 
0005 
0006 

0007 



This snap allows Catalog Management diagnostic informa- 
tion to be obtained. (See section Using UPSI to obtain 
Diagnostic Information for the VSAM Catalog for details.) 

As snap 0001 uses the UPSI byte, it cannot be run when the 
user program in the partition also uses the UPSI byte. 

This snap enables the Buffer Manager trace, which provides 
the current usage of VSAM buffering. 

This snap enables the CLOSE control block dump at the 
beginning of CLOSE processing. 

This snap enables the VSAM I/O trace facility. 

This snap enables the I/O error trace. 

This snap enables the OPEN control block dump facility 
when open processing is complete. 

This snap enables the OPEN error trace. Control blocks are 
printed if an error occurs during open processing. 
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0008 This snap enables the Catalog Management I/O trace. All 
I/O operations done by catalog management are printed on 
SYSLST. 

0009 This snap enables the VSAM Record Management error 
handler trace, allowing display of control blocks for any error 
detected by VSAM record management. 

0010 This snap disables automatic close 
IKQVEDA is called by: 

// EXEC IKQVEDA 

The routine will print on SYSLOG: 

ENTER FUNCTION ENABLE I DISABLE I END 

You must enter either: 

ENABLE SNAP = xxxx 

( where xxxx is one of the snap numbers ) 

or 

DISABLE SNAP = xxxx 
or 

END (to terminate processing). 
The program will look for a private core image library and print: 

NO PRIVATE CORE IMAGE LIBRARY ASSIGNED 

if it cannot be found and will then look in the core image library for the 
VSAM phase needed. 

If the phase needed cannot be found in a library the program will inform 
you with the following message: 

phase NOT FOUND IN THE SYSTEM PRIVATE 

CORE IMAGE LIBRARY (where phase is the actual phase name) 

Any error in input will result in the INVALID REPLY message and the 
ENTER FUNCTION message is reissued. 

The program can only be ended by the END reply as noted earlier. 

The following examples illustrate the use of IKQVEDA to enable and 
disable SNAP 0001: 

// EXEC IKQVEDA 

ENTER FUNCTION ENABLE I DISABLE I END 

ENABLE SNAP =0001 

NO PRIVATE CORE IMAGE LIBRARY ASSIGNED 

SNAP 0001 ENABLED 

ENTER FUNCTION ENABLE I DISABLE I END 

DISABLE SNAP =0001 

NO PRIVATE CORE IMAGE LIBRARY ASSIGNED 

SNAP 0001 DISABLED 

ENTER FUNCTION ENABLE I DISABLE I END 

END 
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Obtaining Snap Dumps of Control Blocks 



IKQVDUMP enables you to print out snap dumps of record management and 
catalog control blocks. Code is provided at certain points in VSAM modules 
which is nonoperational so far as normal execution of the modules is con- 
cerned. Refer to Enabling and Disabling Snap Dumps, above. 

IKQVDUMP is called by the following sequence of instructions (see also 
Loading a VSAM phase or a Program You Have Written): 



LA 
SVC 



1 ,PARMLIST 
2 



PARMLIST DC 
DC 



CL8 ! $$BCVS03 ! 
CL8 ' IKQVDUMP * 



B transient 

phase that provides dump 

of control blocks 



When the program has completed processing, $$BCVS03 returns the 
program to the instruction immediately following the SVC instruction. 

Note that IKQVDUMP requires SYSLST to be assigned to a printer; 
assigment to disk or tape will result in an error. 

Figure 6.11 shows the description and format of the parameter list that 
follows the two phase names in the above calling sequence. 



Offset 


Bytes and 






Dec Hex 


Bit Pattern 


Field Name 


Description 





1 


PARMSW1 


First byte of parameter list 




1... .... 


PARMAMBL 


Dump the AMBL 




.1 


PARMACB 


Dump the ACB 




..1. .... 


PARMAMDS 


Dump the AMDSB 




...1 .... 


PARMARDB 


Dump the ARDB 




.... 1... 


PARMBCB 


Dump the BCB 


). 


.... .1.. 


PARMBUFE 


Dump the buffer 




1. 


PARMEDB 


Dump the EDB 




1 


PARMLPMB 


Dump the LPMB 


1 1 


1 


PARMSW2 


Second byte of parameter list 




1 


PARMCCW 


Dump the CCW 




.1 


PARMPLH 


Dump the PLH 




..1. .... 


PARMBHD 


Dump the BHD 




...1 .... 


PARMRPL 


Dump the RPL 




.... 1... 


PARMEXCP 


Dump the EXCPAD work area 




1.. 


PARMCAT 


Dump the catalog blocks 




1. 


PARMDATA 


Dump the non-catalog blocks 




1 


PARMTHB 


Dump the THB 


2 .2 


1 


PARMSW3 


Third byte of parameter list 




1 


PARMOPEN 


Dump the open work area 




.1 


PARMCLOS 


Dump the close work area 




..1. .... 


PARMCIW 


Dump the control interval split area 




...1 .... 


PARMVLST 


Dump the volume list 




.... 1... 


PARMREGS 


Dump the registers 




.... .1.. 


PARMCECL 


Dump the control interval exclusive 
control list 




1. 


PARMODLB 


Dump the open DLBL 




.... ...1 


PARMREQR 


Dump the requester's registers 



Figure 6.13 



IKQVDUMP parameter list description and format (part 1 of 3) 
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Offset 


Bytes and 






Dec 


Hex 


Bit Pattern 


Field Name 


Description 


3 


3 


1 


PARMSW4 


Fourth byte of parameter list 






1 


PARMPAMB 


1= Pointer to start dump is in parameter 

list (PARMAMBA) 

0= Pointer to start dump is in register 1 1 






..1 


PARMCCAA 


l=Pointer to CCA 
0=Pointer to AMBL 






...1 .... 


PARMRTNA 


Call the test routine 






.... 1... 


PARMHDID 


Dump the header ID 






.X.. .XXX 




Available 


4 


4 


4 


PARMAMBA 


Pointer to start dump 


8 


8 


4 


PARMID 


Pointer to header 


8 


8 


1 


PARMIDLN 


Length of the header 


9 


9 


3 


PARMID AD 


Address of the ID 


12 


C 


1 


PARMSW5 


Fifth byte of parameter list 






1 


PARMCCA 


Dump the CCA 






.1.. .... 


PARMCADL 


Dump the CCA DLBL 






..1 


PARMCADP 


Dump the CCA DADSM parameter list 






...1 .... 


PARMCARA 


Dump the CCA record areas 






.... 1... 


PARMCPL 


Dump the catalog parameter list 
(CTGPL) 






1.. 


PARMPLDN 


Dump the CTGPL data set name 






1. 


PARMPLNN 


Dump the CTGPL new name 






1 


PARMPLPW 


Dump the CTGPL password 


13 


D 


1 


PARMSW6 


Sixth byte of parameter list 






1 


PARMPLCN 


Dump the CTGPL catalog name 






.1 


PARMPLCI 


Dump the CTGPL control interval 
number 






..1 


PARMPLDL 


Dump the CTGPL file CTGDDNM field 






...1 .... 


PARMPLWA 


Dump the CTGPL work area 






.... 1... 


PARMCFL 


Dump the catalog field parameter list 
(CTGFL) 






1.. 


PARMFLFD 


Dump the CTGFL fields 






1. 


PARMFLFN 


Dump the CTGFL field name 






X 




Available 


14 


D 


1 


PARMSW7 


Seventh byte of the parameter list 






1 


PARMCFV 


Dump the catalog field vector table 
(CTGFV) 






.1 


PARMFVDL 


Dump the CTGFV file name 






..1 


PARMFVEN 


Dump the CTGFV entry name 






...1 .... 


PARMFVKR 


Dump the CTGFV key range list 






.... 1... 


PARMFVVL 


Dump the CTGFV volume serial list 






1.. 


PARMDPDL 


Dump the DADSM parameter list DLBL 






1. 


PARMDPIO 


Dump the DADSM parameter list I/O 






1 


PARMDPWA 


area 

Dump the DADSM parameter list work 

area 



Figure 6.13 



IKQVDUMP parameter list description and format (part 2 of 3) 
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Offset 


Bytes and 






Dec Hex 


Bit Pattern 


Field Name 


Description 


15 F 


1 


PARMSW8 


Eighth byte of parameter list 




1 


PARMDPSV 


Dump the DADSM parameter list save 
I/O area 




.1 


PARMCBS 


Dump the AMCBS 




..1 


PARMCAXW 


Dump the CAXWA 




...1 .... 


PARMCXRL 


Dump the CAXWA RPL 




.... 1... 


PARMCXDR 


Dump the CAXWA DSCB read-in work 
area (DRW A) 




1.. 


PARMCMSW 


Dump the CMS work area 




XX 




Available 


16 10 


8 


PARMRTNN 


Name of test routine 



Figure 6.13 



IKQVDUMP parameter list description and format (part 3 of 3) 



Testing if a Dump is Required 



IKQVDUMP allows a phase to be called before a dump is taken to see if a 
dump is desired. (The name of the test routine must be inserted into the 
parameter list at field name PARMRTNN.) The phase can use any logic to 
determine whether a dump is needed, and this logic will override a call for a 
dump if it is not needed. If a is returned in register 15, the dump will be 
taken; if register 15 holds a nonzero return, the dump will not be taken. 

The registers on entry to the test routine have the following contents: 

R2 = Pointer to the parameter list 
Rll = Caller's register 11 
R13 = Pointer to 18-word save area 
R14 = Return address of calling phase 
R15 = Address of entry point 



Using UPSI to Obtain Diagnostic Information for the VSAM Catalog 



Manipulation of the UPSI job control statement enables you to screen catalog 
return codes and obtain a snap dump, cancel a job (which causes a full dump 
to be taken), or simply continue processing. You must first use IKQVEDA to 
enable Snap = 0001. Otherwise the UPSI statement will be inoperative. As 
snap 0001 uses the UPSI byte, it cannot be run when the user program in the 
partition also uses the UPSI byte. 

The purpose of this service aid is to diagnose catalog errors that occur while 
running any program that causes the VSAM catalog to execute. Typically this 
would be an Access Method Services module or a record management pro- 
gram you have written. 

The // UPSI nnnnnnnn job control statement must precede the // EXEC 
[progname] statement. If no UPSI statement is included, the default is 
// UPSI 00000000 (see type 3 request below). 
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On exit from catalog management after processing, a message will be printed 
out depending on the type of UPSI bit setting you have selected. Some 
messages require a reply from the operator. The return codes in the message 
are obtained from register 15. The format is: * 

** NNN,MN,RRR,FFFF,CCCCCCCCCCCCCCCC 

where 

NNN is the return code in decimal 

MN are the last two characters of the module name which issued the 

error. This is blank in case of error code 0. 

RRR is the reason code in decimal 

FFFF is one of the following catalog management functions that had 

been processed: 

DEFC (define catalog) 

DEFA (define non-VSAM data set) 

DEFS (define space) 

DEF (define VSAM data set) 

ALT (alter) 

DELC (delete catalog) 

DELS (delete space) 

DEL (delete VSAM or non-VSAM data set) 

LSTC (list catalog) 

UPD (update or update-extend) 

LOC (locate) 

C...C is either the control interval number in decimal or the first 16 
characters of the data set name or volume serial number in EBCDIC. 

If a reply is required from the system operator for certain types of requests, 
the operator must enter one of the following replies from the system con- 
sole: 

• Type in SNAP to get a snap dump by means of IKQVDUMP (see 
IKQVEDA for enabling snap dumps). The message will then be re- 
peated and the operator should press the END key to continue process- 
ing. 

• Type in CANCEL to cancel the job and obtain a full dump. 

• Press the END key to resume processing. 

The following paragraphs describe the four types of UPSI settings you can 
use to elicit a message and/or to determine the degree of return code 
screening done: 

Type 1 UPSI Setting. If you want to obtain an operator message for all 
VSAM catalog return codes (including 0), you must include one of the 
following statements: 

// UPSI 11000000 No reply is required from the operator 

// UPSI 01100000 A reply is required from the operator 
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Type 2 UPSI Setting. An operator message is issued only if the return code 
is not for the following statements: 

// UPSI 10000000 No reply is required from the operator 

// UPSI 01000000 A reply is required from the operator 

Type 3 UPSI Setting. An operator message is not issued if one of the 
following conditions exists: 

1. the Access Method Services command being processed was a LISTCAT 
and the return code is 8, or 

2. the return code is 0, 40, 68, or 160 

(these codes occur during normal processing and are, therefore, excluded). 

If neither of these conditions exists, an operator message is issued for the 
following statements: 

// UPSI 00000000 No reply is required from the operator 

// UPSI 01 1 1 0000 No reply is required from the operator 

Type 4 UPSI Setting. If you want an operator message on a specific return 
code, you must include the following statements: 

// UPSI OOnnnnnn nnnnnn is set to the value, in binary, of the code 
divided by 4. A reply is required from the operator 



Maintaining DSCBs in the VTOC and VOL1 Labels on 
DASD 



A VSAM DADSM service aid has been provided to assist the programmer 
and operator in maintaining the VTOC and VOL1 labels on DASD devices. 

The following procedures should be followed to use IKQVDU at the system 
console for such maintenance. The key difference in the three procedures is 
the presence, or absence, of a // UPSI job control statement. Steps of the 
procedure in lower case letters are typed in at the console; steps in upper case 
letters are printed out. 
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Procedure 1 

// assgn sys000,x f cuu' 
(press END key) 

// upsi 1 

(press END key) 




u want 



// exec ikqvdu,size=auto 
(press END key) 



Explanation 

cuu points at the v< 
to use. 



This job control stalmentls option- 
al. If it is included, lie following 
events take place oimhe vllume 
that was assigned to^SWDO: 

• The VSAM volume ownership bit 
and CRA TT pointer in the F4 
DSCB are reset. 

• The entire VTOC is scratched, 
that is, empty DSCBs are written 
over existing Fl, F2, and F3 
DSCBs, with the exception of 
DSCBs that have names starting 
with the characters 'DOS.' or 
'PAGE'. 

• An operator authorization prompt 
is issued if the DSCB to be 
scratched is security protected. 

Start execution of the IKQVDU 
phase 



Procedure 2 

// assgn sys000,x f cuu' 
(press END key) 

// upsi 1 1 

(press END key) 



// exec ikqvdu, size=auto 
(press END key) 



Explanation 

cuu points at the volume you want 
to use. 

This job control statement is option- 
al. If it is included, the following 
events take place on the volume 
that was assigned to SYS000: 

• The VSAM volume ownership bit 
and CRA TT pointer in the F4 
DSCB are reset. 

• The entire VTOC is scratched, 
that is, FO DSCBs are written 
over existing Fl, F2, and F3 
DSCBs, with the exception of 
DSCBs that have names starting 
with the characters 'DOS.' or 
TAGE'. 

Start execution of the IKQVDU 
phase. 



Procedure 3 

// assgn sys000,x' cuu' 
(press END key) 



Explanation 

cuu points at the volume you want 
to use. 



Section 6. Diagnostic Aids 6.45 



// exec ikqvdu,size=30k 
(press END key) 

SPECIFY FUNCTION OR REPLY 
'?' FOR OPTIONS READY 
■p 

(press END key) 



Start execution of the IKQVDU 
phase. 

The character ? causes a list of the 
various functions that IKQVDU 
performs to be printed out at the 
system console. 



TO SET THE VOLUME OWNERSHIP FLAG REPLY 'SET OWNERSHIP' 

TO SET THE CRA POINTER REPLY 'SET OWNERSHIP' 

TO RESET THE VOLUME OWNERSHIP FLAG AND CRA POINTER REPLY 

'RESET OWNERSHIP' OR 'RESET CRA 1 
TO SET THE- SECURITY FLAG IN A F1 DSCB REPLY 'SET 

SECURITY' 
TO RESET THE SECURITY FLAG IN A F1 DSCB REPLY 'RESET 

SECURITY' 
TO REMOVE A DSCB FROM THE VTOC REPLY 'SCRATCH' 
TO RENAME A DSCB REPLY 'RENAME' 
TO ALLOCATE A DSCB REPLY 'ALLOCATE' 
TO REINITIATE PROCESSING REPLY 'RESTART' 
TO ALTER OR DISPLAY A DASD VOL1 LABEL 
REPLY 'CLIP LABEL=SER=N . . N ' OR 'CLIP LABEL=DISPLAY ' 
TO TERMINATE PROCESSING REPLY 'END' 

READY 



You can avoid printing out this list of functions simply by specifying the function 
you wish as follows: 



Procedure 

set ownership 
(press END key) 



reset CRA or 
reset ownership 



set security 
(press END key) 



reset security 
(press END key) 



scratch dsn=dsname 
(press END key) 



Explanation 

Causes the VSAM ownership bit to 
be set in the F4 DSCB and option- 
ally allows the user to set the CRA 
TT pointer. 

Causes the VSAM ownership bit 
and CRA TT pointer to be reset in 
the F4 DSCB. 

Causes the security bit to be set in 
the Fl DSCB. 

When the console responds with 
ENTER DSN, reply with the data 
set name of the DSCB to be modi- 
fied. 

Causes the security bit in the Fl 
DSCB to be reset. 

When the console responds with 
ENTER DSN, reply with the data 
set name of the DSCB to be modi- 
fied. 

Causes the DSCB with the specified 
data set name to be scratched. 
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] 



scratch vtoc 
(press END key) 



rename 

(press END key) 



allocate 

(press END key) 



Causes the entire VTOC t6 be 
scratched with the exception of data 
set names starting with the{ charac- 
ters 'DOS.' and 'PAGE', fn addi- 
tion, an operator-authorization 
prompt will be issued if, the DSCBis 
security-protected or describes a 
catalog. 

Causes the DSNAME portion of the 
Fl DSCB to be changed. 

When the console responds with 
ENTER OLD DSN, reply with the 
data set name of the DSCB to be 
changed. 

When the console responds with 
ENTER NEW DSN, reply with the 
new data set name. 

Causes a new DSCB to be created 
and written in the VTOC. In order 
to utilize this function, a 
DLBL/EXTENT job control state- 
ment must be provided (see 
DOS/VS System Control 
Statements, GC33-5376). 

When the console responds with 
ENTER FILENAME, reply with 
the same filename as that in the 
DLBL statement referred to above. 

When the console responds with 
ENTER NEW DSN, reply with the 
data set name of the data set to be 
created. 



restart 

(press END key) 



clip label=display 
(press END key) 

clip label=ser=n. .n 
(press END key) 



When the console responds with 
DO YOU WISH TO SECURITY 
PROTECT THIS DATA SET? re- 
ply YES or NO. A reply of YES 
causes the data security bit to be set 
in the Fl DSCB. A reply of NO 
causes the data security bit to be re- 
set in the Fl DSCB. 

Causes processing to be reinitiated 
with a READY prompt. This key- 
word can be used as a response to 
any operator prompt. 

Causes the volume serial number to 
be displayed on the system console. 

Causes the existing volume serial 
number to be changed to the one 
specified as n..n. 
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end 

(press END key) 



Causes processing to terminate. 



If an error occurs during execution of IKQVDU, 

** ERROR* * DADSM RETURN CODE IS nnn message 

prints out on the system console. The following shows the message code 
(nnn), the associated message, and the action required to correct the condi- 
tion. 

Example: 

** ERROR** DADSM RETURN CODE IS 020 VTOC FULL 



004 I/O ERROR WHILE READING VOLUME LABEL 

Action: If the problem was not caused by a hardware error, restore the 
volume. 

008 VOLUME NOT MOUNTED 

Action: Mount the correct volume. 

012 I/O ERROR ON VTOC 

Action: If the problem was not caused by a hardware error, restore the 
volume. 

016 DUPLICATE NAME ON VOLUME 

Action: Choose another filename or scratch the original file from the 
volume. If duplication is due to key ranges, ensure each UNIQUE key 
range is on a separate volume. 

020 VTOC FULL 

Action: Delete any non-VSAM files or VSAM data spaces no longer 
needed from the volume to make additional Format 1 labels available, or 
reinitialize the volume with a larger VTOC. 

024 EXTENT OVERLAPS EXPIRED FILE 

Action: Examine the VTOC listing to determine where the overlap occur- 
red. Correct the EXTENT statement causing the error. To delete the 
expired file, open a DTF using the same file-ID as that of the expired file, 
and instruct the operator to reply DELETE to message 4n33A when it is 
issued. 

028 EXTENT OVERLAPS UNEXPIRED FILE 

Action: Compare the high and low extent limits on the EXTENT statement 
or LSERV output with the file or data space limits on the VTOC display. 
If the extents overlap, correct the EXTENT statement in error. 

032 EXTENT OVERLAPS PROTECTED UNEXPIRED FILE 

Action: Examine the VTOC to determine where the overlap occurred. 
Correct the EXTENT statement causing the error. If necessary, use another 
volume. 

036 EXTENT OVERLAPS VTOC 

Action: Execute LVTOC. The Format 4 label (the first label in the VTOC 
display) contains the extent limits of the VTOC. If the program being 
executed uses a temporary label set and overlaps the VTOC, correct the 
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EXTENT statements that overlap. If the job uses standard or partition 
standard labels, use the LSERV output to correct the extents of the over- 
lapping file, VSAM data space, or UNIQUE VSAM file. Then rebuild the 
appropriate label tracks. 

040 REQUIRED EXTENTS MISSING 

Action: If temporary labels were used, match the extents on the incoming 
EXTENT card with the extents in the LVTOC output. If standard 
(permanent) labels were used, match the extents in the LSERV output with 
those in the LVTOC output. 

044 DSCB NOT FOUND 

Action: Use the LVTOC output to check for all file labels used in OPEN 
macros. If the file has been destroyed, it was probably due to deletion of 
overlapping extents on an unexpired file, and the file must be rebuilt. 

056 EXTENT OVERLAPS PROTECTED EXPIRED FILE 

Action: Examine the VTOC listing to determine where the overlap occur- 
red. Correct the EXTENT statement causing the error. If it is not neces- 
sary to save the expired file, open a DTF using the same file-ID as that of 
the expired file, and instruct the operator to reply DELETE to message 
4n33A when it is issued. 

064 GETVIS FAILURE ENCOUNTERED 

Action: Allocate GETVIS area. If VSAM is running in the SVA, re-IPL 
and specify a new value for SET SVA. If VSAM is running in a partition, 
rerun the job in a larger partition. 

072 CDLOAD FAILURE ENCOUNTERED 

Action: Either the CDLOAD directory or the GETVIS area is full. Allo- 
cate more space. 

080 OVERLAP AMONG NEW EXTENTS 

Action: If DLBL and EXTENT statements are included in the program, 
determine the conflicting extents and correct them. If a standard label set is 
being used, use the LSERV output to locate and correct the conflicting file 
extents, and rebuild the standard label tracks. 



Loading a VSAM Phase or a Program You Have Written 



If you want to load and transfer control to and from a selected VSAM phase 
or a program you have written, you can use B-transient $$BCVS03 without 
destroying any registers in the following calling sequence: 





LA 
SVC 


1 , PARMLIST 
2 


PARMLIST 
RTNNAME 

USERLIST 


DC 
DC 

DC 


CL8'$$BCVS03' 
CL8 ' XXXXXXXX ' 



B transient 

Name of phase or program 
you have written 
Parameter list for phase 
' XXXXXXXX ' 
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When control is received by 'XXXXXXXX', the registers have the follow- 
ing contents: 

RO = Address of a work area (the size of the work area is speci- 
fied by a halfword at offset 4 of XXXXXXXX' phase) 
Rl =b Pointer to user's parameter list (USERLIST) 
R2-13 = Remain the same as they were when SVC 2 was issued 
R14 -as Return address of calling module 
R15 = Address of entry point in XXXXXXXX' 

Control is returned from 'XXXXXXXX' by a BR 14 instruction. 



6.50 DOS/VS LIOCS Volume 4 



Glossary 



Definitions of Terms Used In This Book 



Access Method Services: A multifunction service program 
that defines VSAM data sets and allocates space for them, 
converts indexed sequential data sets to key-sequenced data 
sets with indexes, modified data-set attributes in the catalog, 
recognizes data sets, facilitates data portability between 
operating systems, creates backup copies of data sets and 
indexes, helps make inaccessible data sets accessible, and 
lists data-set records and catalog entries. 

address direct access: The retrieval or storage of a data 
record identified by its RBA (relative byte address) inde- 
pendent of the record's location relative to the previously 
retrieved or stored record. (See also keyed direct access, 
addressed sequential access, and keyed sequential access.) 

addressed sequential access: The retrieval or storage of a 
data record in its entry (RBA) sequence relative to the previ- 
ously retrieved or stored record. (See also keyed sequential 
access, addressed direct access, and keyed direct access.) 

allocation chain (AC): All allocation units containing con- 
trol blocks for the same ACB. 

allocation unit (AU): One or more pages of virtual storage 
containing control blocks referenced by record manage- 
ment. 

alternate index: A collection of index entries, related to a 
give base cluster and organized by a key other than the 
prime key of the associated base data records. Its function is 
to provide an alternate means of locating records in the data 
portion of the base cluster. 

alternate index upgrade: The process of reflecting changes 
made to a base cluster in its associated alternate index(es). 
(See also upgrade set.) 

alternate key: A key, other than the prime key, used to 
form an alternate index. 

application: As used in this publication, the use to which an 
access method is put or the end result that it serves; contrast- 
ed to the internal operation of the access method. 



base cluster: A key-sequenced or entry-sequenced data set 
over which one or more alternate indexes are built. 

candidate volume: A direct-access storage volume that has 
been defined in a VSAM catalog as a VSAM volume; VSAM 
can automatically allocate space on this volume, as needed. 
(See also overflow volume.) 

catalog: (See VSAM catalog.) 

cluster: A combination of related VSAM data sets, identi- 
fied by one name in the VSAM catalog, that is, a key- 
sequenced data set and its index or an entry-sequenced data 
set alone. 

collating sequence: An ordering assigned to a set of items, 
such that any two sets in that assigned order can be collated. 
As used in this publication, the order defined by the 
System/370 8-bit code for alphabetic, numeric, and special 
characters. 

component: As used in this manual, a group of modules 
that perform a function, such as Open. 

compression: (See key compression.) 

control area: A group of control intervals used as a unit for 
formatting a data set before adding records to it. Also, in a 
key-sequenced data set, the set of control intervals pointed 
to by a sequence-set index record; used by VSAM for distrib- 
uting free space and for placing a sequence-set index record 
adjacent to its data. 

control-area split: The movement of the contents of some 
of the control intervals in a control area to a newly created 
control area, to facilitate the insertion or lengthening of a 
data record when there are no remaining free control inter- 
vals in the original control area. 

control interval: A fixed-length area of direct-access storage 
in which VSAM stores records and distributes free space. It 
is the unit of information transmitted to or from direct- 
access storage by VSAM, independent of blocksize. 



backward processing: A variation of sequential processing, 
whereby the previous, rather than the next, record in the 
entry, key, or relative-record sequence is retrieved. 

base catalog record: The first catalog record (control inter- 
val) that describes the VSAM object. This record contains 
the object's data set name, cluster name, or volume serial 
number in the ENTNAME field. This record also contains 
the header fields required for the object. The base catalog 
record can contain group occurrence pointers that point to 
group occurrences in the base catalog record, or that point 
to group occurrences in extension records (vertical exten- 
sion). The base catalog record's extension pointer can point 
to a control interval that continues the information (group 
occurrence pointers) contained in the base catalog record 
(horizontal extension). 



control interval access: The retrieval or storage of the con- 
tents of a control interval. 

control-interval split: The movement of some of the stored 
records in a control interval to a free control interval, to 
facilitate the insertion or lengthening of a record that won't 
fit in the original control interval. 

CRA: Catalog recovery area. An entry-sequenced data set 
which exists on each volume owned by a recoverable cata- 
log, including the catalog volume itself. The CRA contains 
records which describe the volume and the data sets on the 
volume. 

data integrity: Preservation of data or programs for their 
intended purpose. As used in this publication, the safety of 
data from inadvertent destruction or alteration. 
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data record: A collection of items of information from the 
standpoint of its use in an application and not from the 
standpoint of the manner in which it is stored (see also 
stored record). 

data security: Prevention of access to or use of data or 
programs without authorization. As used in this publication, 
the safety of data from unauthorized use, theft, or purpose- 
ful destruction. 



generic key: A high-order portion of a key, containing 
characters that identify those records that are significant for 
a certain application. For example, it might be desirable to 
retrieve all records whose keys begin with the generic key 
AB, regardless of the full key values. 

group code: A code that identifies the type of group occur- 
rence. (See Field Name Dictionary for a list of group 
codes.) 



data set: The major unit of data storage and retrieval in the 
operating system, consisting of data in a prescribed arrange- 
ment and described by control information to which the 
system has access. As used in this publication, a collection 
of fixed- or variable-length records in direct-access storage, 
arranged by VSAM in key sequence or in entry sequence. 
(See also key-sequenced data set and entry-sequenced data 
set.) 

data space: A storage area defined in the volume table of 
contents of a direct-access volume for the exclusive use of 
VSAM to store data sets, indexes, and catalogs. 

direct access: The retrieval or storage of data by a refer- 
ence to its location in a data set rather than relative to the 
previously retrieved or stored data. (See also addressed 
direct access and keyed direct access.) 



group occurrence: Related fields of information in catalog 
records. See Group Occurrences in Catalog Records 
in the Data Areas section for further details. 



group occurrence pointer: A field used to identify and 
locate a group occurrence by its displacement from the be- 
ginning of the record's group occurrences (the group occur- 
rence is in the same control interval as the group occurrence 
pointer) or by a control interval number (the group occur- 
rence point is in the base catalog record or its extension and 
the group occurrence is in an extension record). Group 
occurrence pointers are grouped by type code and are in 
ascending sequence by sequence number. 

high-used RBA: The next byte past the end of the last con- 
trol interval containing significant data, for ESDA; other- 
wise, the RBA at which the last SEOF is written. 



distributed free space: Space reserved within the control 
intervals of a key-sequenced data set for inserting new re- 
cords into the data set in key sequence; also, whole control 
intervals reserved in a control area for the same purpose. 

entry-sequence: The order in which data records are physi- 
cally arranged in direct-access storage, without respect to 
their contents. (Contrast to key sequence.) 

entry-sequenced data set: A data set whose records are 
loaded without respect to their contents, and whose relative 
byte addresses cannot change. Records are retrieved and 
stored by addressed access, and new records are added at the 
end of the data set. 

exclusive control: (See hold.) 

extension record: The continuation of a catalog record that 
contains group occurrence pointers and their group occur- 
rences. Group occurrence pointers in an extension record 
always point to group occurrences within the extension 
record. The extension record's extension pointer can point 
to a control interval that contains part of a group occurrence 
too large to fit in the extension record (horizontal exten- 
sion). 

extent: A continuous space allocated on a direct-access 
storage volume, reserved for a particular data space or data 
set. 

external procedure: A procedure that can be called by any 
other VSAM procedure; a procedure whose name is in the 
module's (assembler listing) "external symbol dictionary." 

field: In a record or a control block, a specified area used 
for a particular category of data or control information. 

file: (See data set.) 

free space: (See distributed free space.) 
free space percentage: (See packing factor.) 
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high-water RBA: The high-used RBA of a data set. 

hold: Exclusive control exercised over data or index during 
an update, erase, or insert operation to prevent another 
request from making interim changes between initiation and 
completion of the original request. 

horizontal extension: An extension record pointed to by a 
catalog record's extension field. (See also vertical exten- 
sion.) 

horizontal pointer: A pointer in a sequence set index record 
that gives the location of the next index record in the same 
sequence set; used for keyed sequential access. 

index: As used in this publication, an ordered collection of 
pairs, each consisting of a key and a pointer, used by VSAM 
to sequence and locate the records of a key-sequenced data 
set; organized in levels of index records. (See also index 
level, index set and sequence set.) 

index entry: A key and a pointer paired together, where the 
key is the highest key (in compressed form) entered in an 
index record in the next lower level or contained in a data 
record in a control interval, and the pointer gives the loca- 
tion of that index record or control interval. 

index level: A set of index records that order and give the 
location of records in the next lower level or of control inter- 
vals in the data set that it controls. 

index record: A collection of index entries that are re- 
trieved and stored as a group. (Contrast to data record.) 

index replication: The use of an entire track of direct-access 
storage to contain as many copies of a single index record as 
possible; reduces rotational delay. 

index set: The set of index levels above the sequence set. 
The index set and the sequence set together comprise the 
index. 



integrity: (See data integrity.) 

internal procedure: A procedure that can be called only by 
another procedure within the module. (See also external 
procedure.) 

I/O threshold: The maximum number of buffers that can 
be filled with data before I/O will be started. 

ISAM interface: A set of routines that allow a processing 
program coded to use ISAM (Indexed Sequential Access 
Method) to gain access to a VSAM key-sequenced data set. 

job catalog: A catalog made available for a job by means of 
the filename IJSYSUC in the corresponding DLBL job state- 
ment. 

key: One or more characters within an item of data that are 
used to identify it or control its use. As used in this publica- 
tion, one or more consecutive characters taken from a data 
record, used to identify the record and establish its order 
with respect to other records. (See also key field and generic 
key.) 

key compression: The elimination of characters from the 
front and the back of a key that VSAM does not need to 
distinguish the key from the preceding or following key in an 
index record; reduces storage space for an index. 

key-field: A field located in the same position in each 
record of a data set, whose contents are used for the key of 
the record. 

key-sequence: The collating sequence of data records, 
determined by the value of the key field in each of the data 
records. May be the same as, or different from, the entry 
sequence of the records. 

key-sequenced data set: A data set whose records are load- 
ed in key sequence and controlled by an index. Records are 
retrieved and stored by keyed access or by addressed access, 
and new records are inserted in the data set in key sequence 
by means of distributed free space. Relative byte addresses 
of records can change. 

keyed direct access: The retrieval or storage of a data 
record by use of either an index that related the record's key 
to its relative location in the data set, or a relative-record 
number, independent of the record's location relative to the 
previously retrieved or stored record. (See also addressed 
direct access, keyed sequential access, and addressed se- 
quential access.) 

keyed sequential access: The retrieval or storage of a data 
record in its key or relative-record sequence relative to the 
previously retrieved or stored record, as defined by the se- 
quence set of an index. (See also addressed sequential ac- 
cess, keyed direct access, and addressed direct access.) 

mass sequential insertion: A technique VSAM uses for 
keyed sequential insertion of two or more records in se- 
quence into a collating position in a data set; more efficient 
than inserting each record directly. 



module: As used in this manual, a program unit that is 
identifiable by means of a symbolic name starting with 
IGGO or IKQ. 

nonunique: Space for a nonunique data set or index must be 
a suballocation from existing data spaces. 

object: As used in this manual, a cluster, a data set, an 
index, a catalog, or a data space. 

overflow volume: When space on a candidate volume is 
allocated by VSAM, that volume is then termed an overflow 
volume. (See also candidate volume.) 

Overlapped operation: An operation in which processing 
continues without waiting for completion of input or output 
which had been initiated. 

packing factor: Percentage of the data object's space alloca- 
tion to be reserved during its initial loading and during sub- 
sequent reorganization. (See also distributed free space.) 

password: A unique string of characters stored in a catalog 
that a program, a computer operator, or a terminal user 
must supply to meet security requirements before a program 
gains access to a data set. 

physical record: The smallest readable or writable unit of 
data that is stored on a direct-access storage device. Records 
are separated from each other by interrecord gaps. 

pointer: An address or other indication of location. For 
example, an RBA is a pointer that gives the relative location 
of a data record or a control interval in the data set to which 
it belongs. (See also horizontal pointer and vertical pointer.) 

portability: The ability to use VSAM data sets with differ- 
ent operating systems. Volumes whose data sets are cata- 
loged in a user catalog can be demounted from storage de- 
vices of one system, moved to another system, and mounted 
on storage devices of that system. Individual data sets can be 
transported between operating systems using Access Method 
Services. 

prime index: The index of a key-sequenced data set which is 
a base cluster, and thus has one or more alternate indexes. 
(See also index, alternate index.) 

prime key: The key which is used to form the prime index. 
(See also key, alternate key.) 

procedure: A functional unit of VSAM code that is entered 
only at one entry point and exits at the end of the procedure 
(the last line of the procedure's code). The procedure can 
call (transfer control, with a return to the procedure expect- 
ed) other procedures within the module (internal calls) and 
can call other procedures in other VSAM modules (external 
calls). (See also internal procedure and external procedure.) 

RBA: Relative byte address. The displacement of a data 
rcord or a control interval from the beginning of the data set 
to which it belongs; independent of the manner in which the 
data set is stored. 



master catalog: The main VSAM catalog, that contains 
extensive data set and volume information required by 
VSAM to be able to locate data sets to allocate and deallo- 
cate storage space, to verify the authorization of a program 
or operator to gain access to a data set, and to accumulate 
usage statistics. (See also job catalog, user catalog.) 



record: (See index record, data record, physical record, 
stored record.) 

recoverable catalog: A catalog defined with the recoverable 
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attribute. Duplicate catalog entries are stored in CRAs, and 
can be used to recover data in the event of a catalog failure. 
(See also CRA.) 

recovery mode: A user option that causes the data object's 
initial allocation of space to be written throughout with 
special records, the last of which is set to and is termed the 
SEOF (software end of file) record. This must be done if 
VERIFY is to be used. (See also speed mode.) 

relative byte address: (See RBA.) 



or stored record. (See also addressed sequential access and 
keyed sequential access.) 

skip sequential access: Keyed sequential retrieval or stor- 
age of records in ascending, non-consecutive sequence (with 
skips); VSAM scans the sequence set to find a record or a 
collating position. 

slot: A fixed-length, numbered space in a relative-record 
data set which accepts one data record. (See also relative- 
record data set, relative-record number.) 



relative-record data set: A data set whose records are load- 
ed into fixed-length slots and numbered by the relative num- 
bers of the slots they occupy. 

relative-record number: A number that identifies not only 
the slot, or data space, in a relative-record data set but also 
the record occupying the slot. Used as a key for keyed access 
to a relative-record data set. 



software end of file: A control interval with a C1DF of 
that marks the end of preformatted records in a data object's 
initial allocation of space when the user specifies recovery 
mode of processing. (See also recovery mode.) 

spanned record: A logical record whose length exceeds the 
control interval size and thus crosses, or spans, one or more 
control interval boundaries within a single control area. 



relative repetition number: An integer representing the 
position of a particular field in a group of repeating fields. 
For example, in EOV, the relative repetition number 
(RELREPNO) of a particular volume in the catalog data 
record of a particular cluster is that number of its occurrence 
in the volume repeating group. EOV uses the RELREPNO 
to obtain information about a particular volume in order to 
update the ARDB and EDB. 

replication: (See index replication.) 

reusable data set: A VSAM data set which can be reused as 
a work data set, regardless of its old contents. 

routine: As used in this manual, an ordered set of instruc- 
tions that may have frequent use, generally internal usage 
within a module. 

scratch (adj.): Used to describe the contents of a buffer that 
are no longer valid. 

scratch (v.): In buffer management, used to indicate that a 
buffer contains nothing of significance; in DADSM, to re- 
move a DSCB. 

section: A subdivision of an index record used to expedite 
location of the place in an index record where an entry-by- 
entry key search can begin. 

security: (See data security.) 

SEOF: (See software end of file.) 

sequence set: The lowest level of the index of a key- 
sequenced data set; it gives the locations of the control inter- 
vals in the data set and orders them by the key sequence of 
the data records they contain. The sequence set and the 
index set together comprise the index. 

sequential access: The retrieval or storage of a data record 
in either its entry sequence, its key sequence, or its relative- 
record number sequence relative to the previously retrieved 



stored record: A data record, together with its control 
information, as stored in a direct-access storage device. 

string: A string is a single record or a sequentially ordered 
set of records in a data set. The maximum number of strings 
(STRNO) to be processed concurrently in a data set is estab- 
lished when a data set is opened. The number of active RPLs 
determines the number of concurrent strings being processed 
at any point in time. 

unique : ( 1 ) A unique data space is occuplied by only one 
VSAM data set, and cannot be shared with other data sets. 
(2) A unique alternate key is one which occurs in only one 
data record in the base cluster. The alternate index record 
containing this key thus has only one pointer to the base 
cluster. 

upgrade set: All the alternate indexes that VSAM has been 
instructed to update whenever there is a change to the data 
of the related base cluster. 

user catalog: An optional catalog used in the same way as 
the master catalog and pointed to by the master catalog. It 
lessens the contention for the master catalog and facilitates 
volume portability. 

vertical extension: An extension record pointed to by a 
group occurrence pointer in the object's base catalog record 
or its horizontal extension. (See also base catalog record 
and horizontal extension.) 

vertical pointer: A pointer in an index record of a given 
level that gives the location of an index record in the next 
lower level or the location of a control interval in the data 
set controlled by the index. 

VSAM catalog: A key-sequenced data set containing exten- 
sive data-set and volume information that VSAM requires to 
locate data sets, to allocate and deallocate storage space, to 
verify authorization of a program or operator to gain access 
to a data set, and to accumulate usage statistics for data sets. 
(See also master catalog, job catalog, user catalog.) 
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Index 



This index lists the modules by their descriptive 
names, followed by their symbolic names. The 
symbolic names, together with further information 
about the modules, can be found in the module 
directory in the Directory chapter. 

$$B message routine (IIPBMROO) * 

abbreviations XIX 

acronyms XIX 

ACB (Access Method Control Block) 5.62 

Access Method Block List (AMBL) 5.60 

Access Method Control Block (ACB) 5.62 

Access Method Control Block Structure (AMCBS) 5.67 

Access Method Data Statistics Block (AMDSB) 5.68 

Access Method Define the File Table (AMDTF) 5.71 

add group occurrence (modify) (IGGOCLAW) * 

Address Range Definition Block (ARCB) 5.75 

AIX (see alternate index) 

allocate data spaces (IKQALLOO) * 

alter 

catalog field (IGGOCLAX) * 

catalog, remove volume processing (GGOCLBN) * 

CMS, 4th module (IGGOCLCD) * 

processing, catalog (IGGOCLBD) * 

volume processing (IGGOCLBE) * 
alternate index (AIX) 

base cluster control block structure 5.158 

catalog record 5.27 

clean up (IKQCLOCL) * 

define (IGGOCLCA) * 

delete (IGGOCLBG) * 

description 5.11 

evaluation (IKQCLOVY) * 

record 5.11 

routine (IKQAIX) * 

Upgrade routine (IKQUPG) * 

upgrade set determination (IDQOPNUS) * 
AMBL (Access Method Block List) 5.60 
AMCBS (Access Method Control Block Structure) 5.67 
AMDSB (Access Method Data Statistics Block) 5.68 
AMDSB group occurrence 5.42 
AMDTF (Access Method Define the File table) 5.71 
AMDTF (control block (IIPAMT00) * 
ARDB (Address Range Definition Block) 5.75 
association group occurrence 5.42 
attach data set to Resource Pool (IKQOPNRP) * 
authorization, check (IGGOCLBM) * 
automatic close ($$BACLOS) * 

BCB (Buffer Control Block) 5.77 

BHD (Buffer Header) 5.82 

bit mask handler, suballocate (IGGOCLBR) * 

BKPHD (Block Pool Header) 5.81 

BLDVRP (IQKBRP) * 

BLDVRP Parameter List (VRPPL) 5.77 

block dump (IKQDUMP) * 

Block Pool Header (BKPHD) 5.81 

BSPH (Buffer Subpool Header 5.83 

buffer 

allocate 2.33 

control block (BCB) 5.77 

do I/O (IKQBFA) * 



FREEBUFF (IKQFA) * 
get next (IKQGNX00) * 
GETBUFF (IKQBFA) * 
header (BHD) 5.82 
manager (IKQBFA00) * 
manager, LSR (IKQBFB) * 
purge (IKQPBF) * 
read-ahead (IKQBFA) * 
scratch buffer (IKQBFA) * 
scratch buffer (IKQBFB) * 
subpool header (BSPH) 5.83 
writing (IKQBFB) * 
build 

a new control block-GENCB (IKQGEN) * 

DSCBs (IKQPOP00) * 

JIB ($$BOVS03) * 

RDF (IKQBLD) * 

VSAM Resource Pool-BLDVRP (IKQBRP) * 

catalog 
alter 

processing (IGGOCLBD * 

remove volume processing (IGGOCLBN) * 
auxiliary work area (CAXWA) 5.84 
communications area (CCA) 5.86 
control blocks, dump (IKQDUMPC) * 
control record (CCR) 5.29 
define space (IGGOCLAQ) * 
definition processing (IGGOCLAS) * 
delete (IGGOCLAF) * 
description 5.12 
display (IKQSCAT) * 
driver (IGGOCLAB) * 
field 

alter (IGGOCLAX) * 

extract (IGGOCLAZ) * 

modify (IGGOCLAV) * 
first load (IGG0CLC9) * 
high key range of 5.14 
I/O subfunctions (IGGOCLAG) * 
I/O subroutine, 2nd load (IGGOCLCG) * 
locate (IGGOCLAZ) * 
low key range of 5.14 
modify (IGGOCLAV) * 
parameter list (CTGPL) 5.114 
parts of (figure) 5.13 
read/write F4 DSCB (IGGOCLBU) * 
records (see catalog records) 
recovery area (see catalog recovery area) 
search (IGGOCLAH) * 
self -describing part of 5.13 
SHOWCAT (IKQSCAT) * 
suballocate (IGGOCLAR) * 
update (IGGOCLAV) * 
update (IKQRBA) * 
update-extend (IGGOCLBB)* 
update for sharing (IKQRBA) * 
user 

description 5.12 

module (IKQOPNUC) * 
catalog/DADSM interface to mount volume ($$BOVS01) 
catalog management overview 2.68, 3.10, 5.159 
catalog management services overview 2.112 
catalog records 

copies of in CRA 5.16 
formats 5.17 
types 5.13 



For further information, see the module directory in the Directory chapter. 
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group occurrences in (see group occurrences) 

retrieve (IGGOCLAH) * 
catalog recovery area (CRA) 

copies of catalog records in 5.16 

define 

1st module (IGGOCLCR) * 
2nd module (IGGOCLCS) * 

description 5.15 

open (IGGOCLCD) * 

self describing part of 5.15 
CAXWA (Catalog Auxiliary Work Area) 5.84 
CCA (Catalog Communication Area) 5.86 

save area 6.17 
CCB (Command Control Block) 5.98 
CCW (Channel Command Word) 5.100 
CCW Skelton DSECT (CWS) 5.101 
CCW Skeletons 5.102 
Channel Command Word (CCW) 5.100 
check authorization (IGG0CLBM) * 
check for overlapping extents (IKQCOV00) * 
CIDF (Control Interval Definition Field) 5.3 
CILOAD (IKQCIS00) * 
CINSRT (IKQCIS00) * 
CINTRY (IKQCIS00) * 
CISPL2 (IKQCIS00) * 
CIW (Control Interval Work Area) 5.109 
clean up 

after open failure (IKQOPNDO) * 

alternate index (IKQCLOCL) * 

define (IGG0CLA8) * 
close 

automatic ($$BACLOS) * 

catalog interface function (IKQCLCAT) * 

interface ($$BCVSAM) * 

ISAM interface program (IIPCLS00) * 

record management (IKQRCL00) * 

work area 5.107 
cluster 

alternate index control block structure 5.158 

define (IGG0CLAL) * 

release (IKQLASMD) * 

switch to next (IKQOPNNC) * 
cluster catalog record 5.19 
CMS 

alter, 4th module (IGGOCLCD) * 

define 

1st module (IGG0CLAL) * 
2nd module (IGG0CLAN) * 
3rd module (IGG0CLAP) * 
4th module (IGG0CLBX) * 
5th module (IGG0CLBY) * 
6th module (IGG0CLCY) * 

define space (part 1) (IGG0CLAQ) * 

define space (part 2) (IGG0CLA6) * 

delete (IGG0CLCX) * 

delete (part 2) (IGG0CLA7) * 

delete space (1st module) (IGG0CLBL) * 

delete space (2nd module ) (IGG0CLCL) * 
driver (IGG0CLAT) * 
combination names in field name dictionary 5.51 

example (figure) 5.52 
Command Control Block (CCB) 5.98 
common exit ($$BCVS02) * 
complete define of an entry (IGGOCLAK) * 
component index 4.5 
console file, DTF (IKQDCN) * 
control area 

description 5.5 

format data (IKQPFO00) * 

get new (IKQNCA00) * 

split (IKQCAS00) * 
control block 



allocate 2.33 

directory 4,21 

generate a new (IKQGEN) * 

manipulation macros 3.4 

modify, display or test (IKQTMS) * 

structures 5.155-5.160 
control blocks, description and format 

ACB 5.62 

AMBL 5.60 

AMCBS 5.67 

AMDSB 5.68 

AMDTF 5.71 

ARDB 5.75 

BCB 5.77 

BHD 5.82 

BKPHD 5.81 

CAXWA 5.84 

CCA 5.86 

CCB 5.98 

CCW 5.100 

CCW skeletons 5.102 

CIW 5.109 

close work area 5.107 

CTGFL 5.125 

CTGFV 5.126 

CTGPL 5.114 

CWS 5.101 

DTFIS 5.118 

EDB 5.121 

EXCPAD Parameter List 5.122 

EXLST 5.123 

FCDB 5.124 

IOARG 5.128 

IODRB 5.128 

IOWKA 5.129 

LPMB 5.130 

OAL 5.131 

OPNWA 5.131 

PLH 5.139 

RPL 5.147 

RPHD 5.150 

RSCB 5.150 

THB 5.151 

USB 5.152 

VSRT 5.153 
control interval 

definition field (CIDF) 5.3 

description 5.2 

format index (IKQPFO00) * 

scan (IKQSCN) * 

space reclamation (IKQCIR) * 

split (IKQCIS00) * 

work area (CIW) 5.109 
control record (CCR) 5.29 
CPL (see also CTGPL) 5.114 

scan (IGG0CLAY) * 
CRA (see catalog recovery area) 
create JIB ($$BJIB00) * 
CTGFL (Field Parameter List) 5. 125 
CTGFV (Field Vector Table) 5.126 
CTGPL (Catalog Parameter List) 5.114 
CWS (CCW Skeleton DSECT) 5.101 

DADSM Parameter List 5.116 

allocate data spaces (IKQALL00) * 
build DSCBs (IKQPOP00) * 
overlapping extents (IKQCOV00) * 
overview 2.178,3.12 
parameter list 5.116 
read DSCBs (IKQRDS00) * 
rename (IKQREN00) * 
scratch DSCBs (IKQSCR00) * 
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VTOC (IKQVTCOO) * 

write DSCBs (IKQWDSOO) * 
data and index entries, define and build (IGGOCLAJ) * 
data areas 

alternate index 5.11 

catalog 5.12 

catalog recovery area 5.15 

control blocks 5.60 

directory 4.21 

index 5.6 
data catalog record 5.21 
data control area, format (IKQPFO00) * 
data set 

control area 5.5 

control interval 

definition field 5.3 
description and format 5.2 

description 5.2 

directory entry group occurrence 5.48 

information,derived 5.48 

information in catalog, locate (IKQOPNHC) * 

non-VSAM, define (IGGOCLBH) * 

record 

definition field 5.3 
description and format 5.2 
data set 

rename (IKQREN00) * 

reset reusable (IKQOPNRD) * 
data space 

allocate (IKQALL00) * 

define (IGGOCLAQ) * 

delete (IGGOCLBL) * 

group occurrence 5.46 

information, derived 5.47 
define 

alternate index (IGGOCLCA) * 

and build data and index entries (IGGOCLAJ) * 

catalog open and build (IGGOCLAE) * 

clean up (IGG0CLA8) * 

CMS 

1st module (IGGOCLAL) * 
2nd module (IGGOCLAN) * 
3rd module (IGGOCLAP) * 
4th module (IGGOCLBX) * 
5th module (IGGOCLBY) * 
6th module (IGGOCLCY) * 

CRA 

1st module (IGGOCLCR) * 
2nd module (IGGOCLCS) * 

non-VSAM data set (IGGOCLBH) * 

of an entry, complete (IGGOCLAK) * 

path (IGGOCLCP) * 

space, catalog (IGGOCLAQ) * 

space, part 2 (CMS) (IGG0CLA6) * 

space recovery (IGG0CLB8) * 

the file indexed sequential table (DTFIS) 5.118 
definition processing, VSAM catalog (IGG0CLA5) * 
delete (IGGOCLBG) * 

AIX (IGGOCLBG) * 

catalog (IGGOCLAF) * 

CMS (IGGOCLCX) * 

JIB (IKQJIBFF) * 

part 2, CMS (IGG0CLA7) * 

path (IGGOCLBG) * 

space (IGGOCLBL) * 

space, CMS 2nd module (IGGOCLCL) * 

VSAM Resource Pool-DLVRP (IKODRP) * 
delete/build JIBs for VSAM ($$BOVS03) * 
delete/insert (modify) (IGGOCLBW) * 
deleted CRA, mark ($$BCLCRA) * 
derived data set information 5.48 
derived data space information 5.47 



device name table (IKQDNT) * 
device type routine (IKQVDTPE) * 
diagnostic aids 

CCA save area 6.17 
enable and disable (IKQVEDA) * 
I/O routine for ($$BCVS04) * 
error code-to-module relationships 
catalog management 6.17 
CLOSE and TCLOSE 6.35 
control block manipulation 6.31 
DADSM 6.27 
OPEN 6.32 

record management 6.28 
macro-to-module relationships 
catalog and DADSM 6.7 
others 6.11 
diagnostic information, using UPSI to obtain 6.42 
directories 

component index 4.5 
control block 4.21 
IIP phase-to-module index 4.4 
module 4.9 
routine 4.16 

VSAM phase-to-module index 4.1 
disabling snap dumps 6.38 

display a control block (SHOWCB) (IKQTMS) * 
display catalog information (SHOWCAT) (IKQSCAT) * 
DLVRP (IKQDRP) * 
driver 

catalog (IGGOCLAB) * 
CMS (IGGOCLAT) * 
VSAM request (IKQVSM) * 
DSCBs 

build (IKQPOP00) * 
maintaining in VTOC 6.44 
read (IKQRDS00) * 
scratch (IKQSCR00) * 
write (IKQWDSOO) * 
DTF console file (IKQDCN) * 

DTFIS (Define The File Indexed Sequential table) 5.118 
dump 

block (IKQDUMP) * 

catalog control blocks (IKQDUMPC) * 

snap 

disabling 6.38 
enabling 6.38 
obtaining 6.40 
testing if required 6.42 

EDB (extent definition block) 5.121 

chain, summarize JIBs for(IKQJIBSM) * 

extend (IKQEDX) * 
enable and disable VSAM diagnostic aids (IKQVEDA) * 
enabling snap dumps 6.38 
end of message interface ($$BODADE) * 
enter index (IKQIXE) * 
entry 

index 5.9 

field name dictionary 5.49 

point directory 4.16 

section 5.9 

translation, volume (IGGOCLBS) * 
ERASE (IKQMDY) * 
error 

exit (IKQERX) * 

handler (IKQERH) * 
error code-to-module relationships 

BLDVRP 6.37 

catalog management 6.17 

CLOSE and TCLOSE 6.35 

control block manipulation 6.31 

DADSM 6.27 
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DLVRP 6.37 

OPEN 6.32 

record management 6.28 

SHOWCAT 6.36 
evaluation, AIX (IKQCLOVY) * 
EXCPAD parameter list 5.122 
exit 

common ($$BCVS02) * 

error (IKQERX) * 

JRNAD (IKQJRN) * 

list (EXLST) 5.123 
extend EDB (IKQEDX) * 
extension catalog record 5.24 
extent 

check for overlapping (IKQCOV00) * 

definition block (see EDB) 

get new (IKQNEX) * 

manage space within (IKQSPMOO) * 

open volume (IKQOPNOV) * 

release 2.109 
extract catalog field (IGGOCLAZ) * 

field 

control and data block (FCDB) 5.124 

extract catalog (IGGOCLAZ) * 

modify catalog (IGGOCLAV) * 

name dictionary 

combination names in 5.51 
description and format 5.49 
examples 5.58 

parameter list (CTGFL or FPL) 5.125 

vector table (CTGFV or FVT) 5.126 
flowcharts, program 3.32 
format 

data CA or index CNV (IKQPFO00) * 

index (IKQIXF) * 

of catalog records 5.17 

of control blocks 5.60 
FPL (field parameter list) 5.125 
free 

catalog record 5.26 

data-control-interval pointer 5.8 
FREEBUFF (IKQBFA) * 
FVT (Field Vector Table) 5.126 
F4DSCB, catalog read/write (IGGOCLBU) *' 

GENCB: Build a new control block (IKQGEN) * 
get 3.18 

backwards function (IKQLCP) * 
new control area (IKQNCA00) * 
new extent (IKQNEX) * 
next buffer and read ahead (IKQGNX00) * 
spanned record (IKQSRG) * 
GETBUFF (IKQBFA00) * 
GETNXT (IKQGNX00) * 
GET PREVIOUS (IKQLCP) * 
get/point (IKQGPT) * 
group occurrence 

add (modify) (IGGOCLAW) * 
description 5.37 
format and description 
AMDSB 5.42 

association information 5.42 
data set directory entry 5.48 
data space 5.46 
password information 5.45 
space map 5.45 
volume information 5.43 
in extension records 5.38 



high-key-range of catalog 

(see also low key-range of catalog) 

description 5.14 

relationship to other parts of catalog (figure) 5.13 

true-name catalog record 5.17 

HP (see ISAM interface program) 
IKQVDU service aid 6.44 
IKQVDUMP service aid 6.40 
index 

alternate 5.11 

catalog record 5.27 

control interval, format (IKQPFO00) * 

component 4.5 

create entry (IKQIXE00) * 

description 5.6 

enter (IKQIXE) * 

entry 5.9 

entry section 5.10 

example (figure) 5.6 

format (IKQIXF) * 

phase-to-module 4.1 

record 5.7 

routine 4.16 

search (IKQIXS) * 

sequence set 5.6 

set 5.6 
insert (IKQSRT) * 
interface 

catalog/DADSM to mount volume ($$BOVS01) * 

close $$BCVSAM) * 

end of message ($$BODADE) * 

function, close catalog (IKQCLCAT) * 

open ($$BOVSAM) * 

start of message ($$BODADS) * 

TCLOSE ($$BTCLOS) * 
IOARG (I/O Arguments) 5.128 
IODRB (I/O Driver Block) 5.128 
IOWKA (I/O Work Area) 5.129 
I/O manager (IKQIOA00) * 
I/O manager, I/O error analysis (IKQIOB00) * 
I/O routine for IKQVEDA ($$BCVS04) * 
I/O subfunctions, catalog (IGGOCLAG) * 
I/O subroutine (2nd module), VSAM catalog 

(IGGOCLCG) * 
ISAM interface program (IIP) 

control block (IIPAMT00) * 

close (IIPCLS00) * 

phase-to-module index 4.4 

open (IIPOPN00) * 

overview 2.42, 3.8 

processor, messages (IIPPRCMR) * 

processor, processing (IIPPRCPR) * 

$$B message routine (IIPBMR00) * 

JIB 

create ($$BJIB00) * 

delete ($$BJIBFF) * 
JIBs 

delete/build for VSAM ($$BOVS03) * 

summarize for EDB chain (IKQJIBSM) * 
JRNAD exit (IKQJRN) * 

in EXLST 5.123 

key range determination routine (IKQKRD) * 
key ranges of catalog 5.14 

interrelationships (figure) 5.13 
KSDS control block structure 5.155 

label cylinder, look at (IKQLAB) * 
LISTCAT processing (IGGOCLBQ) * 
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LKMOD routine ($$BCVS03) * 

loading a VSAM phase or program you have written 6.49 

locate 

catalog information (IGGOCLAZ) * 
data set information in catalog (IKQOPNHC) * 
direct (IKQLCD) * 
next (IKQLCN) * 
previous (IKQLCP) * 
Logical-to-Physical Mapping Block (LPMB) 5.130 
look-aside 

file table (IKQLASFT) * 
module (IKQLASMD) * 
look at label cylinder (IKQLAB) * 
low key range of catalog 

(see also high-key range of catalog) 
description 5.12 
catalog records in 5.14 
alternate index 5.27 
cluster 5.19 
control (CCR) 5.29 
data 5.21 
extension 5.24 
free 5.26 
index 5.28 
non-VSAM 5.17 
path 5.30 
upgrade set 5.36 
user-catalog 5.31 
volume 5.33 
volume extension 5.36 
relationship to other parts of catalog (figure) 5.13 
LPMB (Logical-to-Physical Mapping Block) 5.130 
LSR buffer management (IKQBFB) * 

macro-to-module relationships 

catalog and DADSM modules 6.7 

modules except catalog and DADSM 6.11 
maintaining DSCBs and VOL1 labels 6.44 
maintenance utility, VTOC (IKQCLEAN) * 
manage space within extents (IKQSPM00) * 
manager 

buffer (IKQBFA00) * 

I/O (IKQIOA00) * 
mark deleted CRA ($$BCLCRA) * 
master catalog 

open (IGGOCLAD) * 

search (IGGOCLAC) * 
message routine 

$$B (IIPBMR00) * 

open/close (IKQOCMSG) * 
Method of Operation diagrams 2.1 

reading 2.1 

symbols used 2.2 
MODCB, SHOWCB, TESTCB: Modify, display, or test a 
control block (IKQTMS) * 
modify (IKQMDY) * 

a control block (MODCB) (IKQTMS) * 

catalog field (IGGOCLAV) * 

control interval (IKQMDY) * 

volume entry translation (IGGOCLBT) * 
module 

directory 4.9 

prologues 3.1 

-to-phase index, IIP 4.4 

-to-phase index, VSAM 4.1 
mount 

volume (IKQEOV) * 

volume, catalog/DADSM interface to ($$BOVS01) * 

new extent, get (IKQNEX) * 
next cluster (IKQOPNNC) * 
non-VSAM 



catalog record 5.17 

data set, define (IGGOCLBH) * 

open 2.23, 3.5 

ACB list (OAL) 5.131 

catalog recovery area (IGG0CLCO) * 

failure, clean up after (IKQOPNDO) * 

function (IKQOPN) * 

IIP (IIPOPN00) * 

interface ($$BOVSAM) * 

master catalog (IGGOCLAD) * 

volume extent (IKQOPNOV) * 

work area (OPNWA) 5.131 
open/close 
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VTOC (IKQVTC00) * 
OPNWA (Open Work Area) 5.131 
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overview 

catalog management 2.68, 3.10 

catalog management services 2.112 

control block manipulation 3.4, 5.155-5.160 

DADSM 2.178, 3.12 

ISAM interface program 2.42, 3.8 

OPEN 2.23, 3.5 

POINT 3.16 

record management 2.202 

VSAM 2.4 

password check (IGG0CLBM) * 
password group occurrence 5.45 
path 
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define (IGG0CLCP) * 
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processing (IKQAIX) * 
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alternate index 5.11 
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retrieve spanned records (IKQSRG) * 
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VERIFY (IKQVFY) * 
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parameter list (RPL) 5.147 
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Resource Sharing Control Block (RSCB) 5.150 
retrieve (IKQRTV) * 
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RPL (Request Parameter List) 5.147 
RSCB (Resource Sharing Control Block) 5.150 
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CPL (IGG0CLAY) * 
scratch DSCBs (IKQSCR00) ■ * 
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catalog (IGG0CLAH) * 



master catalog (IGG0CLAC) * 
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disabling 6.38 
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split 

control area (IKQCAS00) * 
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